题目:从键盘输入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

好象还是不行啊,我分别输入了8 2 9,他显示的结果是9 8 8
是哪里错了啊?

能把错的地方帮我打出来吗,谢谢了,我实在不知道该怎么改~~

谢谢楼上的,我的错误找到了,把a=b写成b=a了,再次谢谢了~~