语法

　InputBox（prompt[， title] [， default] [， xpos] [， ypos] [， helpfile， context]）

    InputBox 函数的语法具有以下几个命名参数的部分描述

    Prompt 必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 （Chr（13））、换行符 （Chr（10）） 或回车换行符的组合 （Chr（13） & Chr（10）） 来分隔。

    Title 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。

    Default 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。

    Xpos 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。

    Ypos 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

    Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context.

    Context 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile.

    举例

　本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量 MyValue 保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。

    Dim Message， Title， Default， MyValue

    Message = "Enter a value between 1 and 3"   ' 设置提示信息。

    Title = "InputBox Demo"   ' 设置标题。

    Default = "1"   ' 设置缺省值。

    ' 显示信息、标题及缺省值。

    MyValue = InputBox（Message， Title， Default）

    ' 使用帮助文件及上下文。“帮助”按钮便会自动出现。

    MyValue = InputBox（Message， Title， ， ， ， "DEMO.HLP"， 10）

    ' 在 100， 100 的位置显示对话框。

    MyValue = InputBox（Message， Title， Default， 100， 100）

    MsgBox 函数

　在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。

    语法

　MsgBox（prompt[， buttons] [， title] [， helpfile， context]）

    MsgBox 函数的语法具有以下几个命名参数的部分描述：

    Prompt 必需的。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果 prompt 的内容超过一行，则可以在每一行之间用回车符 （Chr（13））、换行符 （Chr（10）） 或是回车与换行符的组合 （Chr（13） & Chr（10）） 将各行分隔开来。

    Buttons 可选的。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则 buttons 的缺省值为 0.

    Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。

    Helpfile 可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context.

    Context 可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile.