关于比大小的问题~
题目:从键盘输入3个数,按从大到小的顺序输出!我编了一个程序,可是使出来的是错误的,不知道哪里出错了,
Private Sub Form_Activate()
Dim a As Single, b As Single, c As Single, d As Single
a = InputBox("请输入数字")
b = InputBox("请输入数字")
c = InputBox("请输入数字")
If a > b Then d = a: b = a: b = d
If a > c Then d = a: a = c: c = d
If b > c Then d = b: b = c: c = d
Print a; b; c
End Sub
