vb程序比较大小程序

『壹』 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