Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("输入数字")
b = InputBox("输入数字")
c = InputBox("输入数字")
If a > b Then
max = a
Else
max = b
End If
If c > max Then
max = c
End If
Print max
End SubEnd Sub