Question

VB InputBox函数问题

1、利用InputBox函数输入3个任意整数，并按从大到小的顺序输出。利用MsgBox函数实现输出。
提示：定义变量a、b、c，利用InputBox函数分别赋值，对三个数两两进行比较：
a<b则变量a、b交换，a<c则变量a、c交换，最后比较b<c则变量b、c交换；最后结果变量a>b>c 。利用MsgBox函数顺序输出a、b、c。

Answer 1

Private Sub Command1_Click()
Dim a, b, c, d
a = InputBox("请输入数a")
b = InputBox("请输入数b")
c = InputBox("请输入数c")
If a < b Then d = a: a = b: b = d
If a < c Then d = a: a = c: c = d
If b < c Then d = b: b = c: c = d
MsgBox "a=" + CStr(a) + ";b=" + CStr(b) + ";c=" + CStr(c)
End Sub

Answer 2

Private Sub Form_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim t As Single
a = Val(InputBox("输入第一个数:"))
b = Val(InputBox("输入第二个数:"))
c = Val(InputBox("输入第三个数:"))
If a > b Then t = a: a = b: b = t
If a > c Then t = a: a = c: c = t
If b > c Then t = b: b = c: c = t
MsgBox "从大到小顺序为" & c & " " & b & " " & a
End Sub