Question

判断三个数字大小用vb解决

Private Sub Command1_Click()
a = InputBox("第一个数字为：")
b = InputBox("第二个数字为：")
c = InputBox("第三个数字为：")
If a > b And b > c Then
c1 = a
c2 = b
c3 = c
ElseIf a > c And c > b Then
c1 = a
c2 = c
c3 = b
ElseIf b > a And a > c Then
c1 = b
c2 = a
c3 = c
ElseIf b > c And c > a Then
c1 = b
c2 = c
c3 = a
ElseIf c > a And a > b Then
c1 = c
c2 = a
c3 = b
Else
c1 = c
c2 = b
c3 = a
End If
Label3.Caption = c1
Label5.Caption = c2
Label7.Caption = c3
End Sub
这是判断三个数字大小的程序，但是执行时a>c>b存在问题，不知道为什么，求解！

Answer 1

a = InputBox("第一个数字为：")
b = InputBox("第二个数字为：")
c = InputBox("第三个数字为：")
改为
a = Val(InputBox("第一个数字为："))
b = Val(InputBox("第二个数字为："))
c = Val(InputBox("第三个数字为："))

InputBox的返回值是字符串，而字符串的大小比较与数字的大小比较是不同的，比如
作为数字 11 > 2
作为字符串 "11" < "2"
用Val()函数是强制把字符串转化为数字

Answer 2

搞这么复杂干嘛了。。。。。

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("请输入一个整数：")
b = InputBox("请输入一个整数：")
c = InputBox("请输入一个整数：")
Print a, b, c
If a < b Then
d = a
a = b
b = d
End If
If a < c Then
d = a
a = c
c = d
End If
If b < c Then
d = b
b = c
c = d
End If
Print a, b, c
End Sub

Answer 3

同意楼上。

Answer 4

同意思yiyiarrow 的