vb比较三个数的大小程序

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim max As Integer
Dim n As String
a = Val(InputBox("输入第1个整数", "Input"))
b = Val(InputBox("输入第2个整数", "Input"))
c = Val(InputBox("输入第3个整数", "Input"))

max = a
n = "一"
If b > max Then
max = b
n = "二"
End If
If c > max Then
max = c
n = "三"
End If

MsgBox "三个数是：" & a & "," & b & "," & c & vbCrLf & "最大的数是第" & n & "个：" & max
End Sub

Private Sub Command1_Click()
    Dim a(2) As Integer
    Dim i%, iMax%
    For i = 0 To 2
        a(i) = InputBox("输入第" & i +&n