自己添加一个Command1控件，代码如下：
Private Sub Command1_Click()
Dim a%, b%, c%, t%
a = InputBox("输入第一个值：")
b = InputBox("输入第二个值：")
c = InputBox("输入第三个值：")
If a > b Then
t = a: a = b: b = t
End If
If b > c Then
t = b: b = c: c = t
End If
If a > c Then
t = a: a = c: c = t
End If
Print a; "<"; b; "<"; c
End Sub
?晕你们考试啊
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024