Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("请输入第一个数字")
b = InputBox("请输入第二个数字")
c = InputBox("请输入第三个数字")
If a > b And a > c Then
Print "最大数字是"; a
End If
If b > a And b > c Then
Print "最大数字是"; b
End If
If c > a And c > b Then
Print "最大数字是"; c
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024