InputBox 函数

显示一个提示对话框，用户可以在其中输入文字。输入将被指定给变量。

使用 InputBox 语句是通过对话框输入文字的一种便捷方法。单击“确定”或按 Enter 键可以确认输入的内容。输入将作为函数返回值进行返回。如果使用“取消”关闭对话框，InputBox 将返回一个长度为零的字符串 ("")。

语法：

InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]])

返回值：

字符串

参数：

Msg：字符串表达式，即在对话框中显示的消息。

Title：对话框标题栏中显示的字符串表达式。

Default：默认情况下（即用户未输入内容），在文字框中显示的字符串表达式。

x_pos：用于指定对话框水平位置的整数表达式。此位置使用绝对坐标，不参照办公软件应用程序的窗口。

y_pos：用于指定对话框垂直位置的整数表达式。此位置使用绝对坐标，不参照 Office 应用程序的窗口。

如果省略 x_pos 和 y_pos 参数，对话框将显示在屏幕的中心位置，具体位置在 twips 中指定。

示例：

Sub ExampleInputBox

Dim sText As String

    sText = InputBox ("请输入词语: ","亲爱的用户")

    MsgBox ( sText , 64, "词组确认")

End Sub