VBA InputBox 输入框

显示输入框，接收用户输入，返回为用户的输入。

语法

InputBox (prompt， [ title ]， [ default ]) As String

显示输入框，输入框的标题栏文字为title，提示信息为prompt，输入框中的默认值为default。

返回值为String类型

如果点击[取消]按钮，则返回空字符串""。

示例

例1：弹出框入框，输入分数，根据分数显示是否及格。

Sub sub4()
  Dim result As String
  result = InputBox("请输入分数", "关关教程")
  Debug.Print result

  Dim score As Integer
  score = CInt(result)
  If score >= 60 Then
    Debug.Print "及格"
  Else
    Debug.Print "不及格"
  End If

End Sub

运行效果：

当输入分数为90时，输出内容：

90
及格

例2：弹出框入框，输入分数，默认值是100。

Sub sub5()
  Dim result As String
  result = InputBox("请输入分数", "关关教程", "100")
  Debug.Print result

  Dim score As Integer
  score = CInt(result)
  If score >= 60 Then
    Debug.Print "及格"
  Else
    Debug.Print "不及格"
  End If

End Sub

运行效果：

当分数输入0分时，输出：

0
不及格