vb程序设计，求三个数的最大值和最小值，代码怎么打，尽量简单点不要太复杂

Question

如题所述

Answer 1

思路，把三个数存放到变量x，y，z，里，然后按照从大到小排列，最后x里是最大值，z里是最小值。
Dim x As Single, y As Single,z As Single
Dim t As Single
x = Val(InputBox("输入第1个数："))
y = Val(InputBox("输入第2个数："))
z = Val(InputBox("输入第3个数："))
If x < y Then
t = x
x = y
y = t
End If
If x < z Then
t = x
x = z
z = t
End If
If y < z Then
t = y
y = z
z = t
End If
Print "最大值：";x
Print "最小值：";z