Question

vba编程要求比较两个数的大小

vba编程要求比较两个数的大小

Answer 1

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