vb编程 输入a,b,c三数，输出最大数

Question

急需

Answer 1

打开代码窗口，把下面代码复制进去，单击运行
Private Sub Form_Load()

a = InputBox("请输入第一个数", "")
b = InputBox("请输入第二个数", "")
c = InputBox("请输入第三个数", "")

If a - b > 0 Or a - b = 0 Then
If a - c > 0 Or a - c = 0 Then
MsgBox "最大数是：" & a
Else
MsgBox "最大数是：" & c
End If
Else
If b - c > 0 Or b - c = 0 Then
MsgBox "最大数是：" & b
Else
MsgBox "最大数是：" & c
End If
End If

End Sub

Answer 2

Private Sub Command1_Click()
Dim x%, y%, z%, a%
x = InputBox("输入第一个数")
y = InputBox("输入第二个数")
z = InputBox("输入第三个数")
'按从小到大排序
If x > y Then
a = x
x = y
y = a
End If 'x<y
If y > z Then
a = y
y = z
z = a 'y<z
End If
If x > y Then
a = x
x = y
y = a
End If 'x<y,此处y为原来的z
Print Tab(5); "最大值为:"; z
End Sub

Answer 3

a = InputBox("输入一个数值a", "输入")
b = InputBox("输入一个数值b", "输入")
c = InputBox("输入一个数值c", "输入")
If a > b Then m = a
If m < c Then m = c
Print m

Answer 4

Private Sub Form_Load()
Dim x, y, z
Form1.AutoRedraw = True
x = Val(InputBox("输入x", "x"))
y = Val(InputBox("输入y", "y"))
z = Val(InputBox("输入z", "z"))
Print Tab(10); "x"; Tab(18); "y"; Tab(26); "z"
Print
Print "排序前"; Tab(8); x; Tab(16); y; Tab(24); z
If x < y Then t = y: y = x: x = t
If x < z Then t = z: z = x: x = t
If y < z Then t = z: z = y: y = t
Print
Print "排序后"; Tab(8); x; Tab(16); y; Tab(24); z
End Sub

Answer 5

IIf((IIf(a>b,a,b))>c,IIf(a>b,a,b),c)这个条件函数最为简便。