论坛 › 综合交流区 › VB由键盘上任意输入三个数后，找出最大数，并用消息框输出结果

luckin 发表于 2014-3-12 15:11:05

VB由键盘上任意输入三个数后，找出最大数，并用消息框输出结果

Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
a = Val(InputBox("a="))
b = Val(InputBox("b="))
c = Val(InputBox("c="))
   Dim max As Double
    Dim maxpos As Double
    max = a
    maxpos = "第一"
      If max < b Then
      max = b
      maxpos = "第二"
      End If
      If max < c Then
      max = c
      maxpos = "第三"
      End If
      MsgBox "三个数是:" + CStr(a) + "、" + CStr(b) + "、" + CStr(c) + vbCr + "最大数是" + maxpos + "个:" + CStr(max)
    End Sub
错误在哪里？求大神

你亲儿子 发表于 2014-3-12 15:11:06

Dim maxpos As String不是Double类型的改成String 类型的

牡丹花下死做鬼 发表于 2014-3-14 17:50:48

Dim maxpos As Double 这里错误
你后面写的是 maxpos = "第一"
所以不能定义成 Double 得定义成string

查看完整版本: VB由键盘上任意输入三个数后，找出最大数，并用消息框输出结果