Sub t()
Dim a, b, i
a = "lison83"
b = "vba"
i = 0
Do While Not IsNumeric(a)
If i > 0 Then
MsgBox "输入的值有误，请重新输入！"
End If
a = InputBox("请输入第一个数", "提示")
i = i + 1
Loop
i = 0
Do While Not IsNumeric(b)
If i > 0 Then
MsgBox "输入的值有误，请重新输入！"
End If
b = InputBox("请输入第二个数", "提示")
i = i + 1
Loop
If a > b Then
MsgBox "第一个数大"
ElseIf a = b Then
MsgBox "俩数一样大"
Else
MsgBox "第二个数大"
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024