Private Sub Form_Click()
Dim a As Single, b As Single, c As Single, z As Single
a = InputBox("输入a的值", "")
b = InputBox("输入b的值", "")
c = InputBox("输入c的值", "")
If a < b Then z = a: b = a: b = z '先把这个较小值给z,把a的值给b,然后把较小值z传递给b,保证a最后存储大的数,b存储较小数
If a < c Then z = a: c = a: c = z '同理,先把这个较小值给z,把c的值给b,然后把较小值z传递给c,保证a最后存储大的数,z存储较小数
If b < c Then z = b: b = c: c = z '再处理b和c,保证b存较大数,c存较小数
Print a; b; c '最后a,b,c就是从大到小排列
End Su