本示例显示了使用 InputBox 函数提示用户输入值的各种方式。 如果省略了 x 和 y 位置，对话框将自动在各个轴居中。 该 MyValue 变量包含用户在选择"确定"或按 Enter 键时输入的值。 如果用户选择"取消 "， 则返回零长度字符串。

代   码:

Dim Message, Title, Default, MyValue
Message = "输入1-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)

图   示: