Private Sub Command1_Click()
Dim a, b, c As Single
a = Val(InputBox("a=", "输入第一个数"))
b = Val(InputBox("b=", "输入第二个数"))
c = Val(InputBox("c=", "输入第三个数"))
Max = a
If b > Max Then
Max = b
End If
If c > Max Then
Max = c
End If
Print "最大的数是……="; Max
End Sub
Private Sub Form_Load()
End Sub