关于比大小的问题~

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

把标红色写成 Print c; b; a

回复：（fukaiminga）关于比大小的问题~

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

请用多行的if语句来做.

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

太可爱了，看看第一行If语句，是不是应该写
If a > b Then d = a: a = b: b = d呢？
而你的是一个很小的错误：
If a > b Then d = a: b = a: b = d

哦，还有一个问题，你做的那个是从小到大的顺序排列a,b,c
而题目要求是从大到小排列
那么应该是如果a<b的话，互换a,b ，对不对？

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

逻辑关系！

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: a = b: 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