本文共计2052个文字，预计阅读时间需要6分41秒，欢迎阅读借鉴、一起学习、进步，内容来自小编精心整理收集，如有不正确和疑问，欢迎指正。
如何使用inputbox？
InputBox 函数\x0d\x0a 在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String.\x0d\x0a\x0d\x0a 语法\x0d\x0a InputBox（prompt[， title] [， default] [， xpos] [， ypos] [， helpfile， context]）\x0d\x0a\x0d\x0a InputBox 函数的语法具有以下几个命名参数的部分描述\x0d\x0a Prompt 必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 （Chr（13））、换行符 （Chr（10）） 或回车换行符的组合 （Chr（13） & Chr（10）） 来分隔。\x0d\x0a\x0d\x0a Title 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。\x0d\x0a Default 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。\x0d\x0a Xpos 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。\x0d\x0a Ypos 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。\x0d\x0a Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context.\x0d\x0a Context 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile.\x0d\x0a\x0d\x0a 举例\x0d\x0a 本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量 MyValue 保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。\x0d\x0a\x0d\x0a Dim Message， Title， Default， MyValue\x0d\x0a Message = "Enter a value between 1 and 3" ' 设置提示信息。\x0d\x0a Title = "InputBox Demo" ' 设置标题。\x0d\x0a Default = "1" ' 设置缺省值。\x0d\x0a ' 显示信息、标题及缺省值。\x0d\x0a MyValue = InputBox（Message， Title， Default）\x0d\x0a ' 使用帮助文件及上下文。“帮助”按钮便会自动出现。\x0d\x0a MyValue = InputBox（Message， Title， ， ， ， "DEMO.HLP"， 10）\x0d\x0a ' 在 100， 100 的位置显示对话框。\x0d\x0a MyValue = InputBox（Message， Title， Default， 100， 100）inputbox问题
vb
弹
inputbox取消
现错误...
想按取消
结束
作,应该
办
调用inputbox
前
加
句：
On Error GoTo errHandler
调用完
再加三行：
exit sub
errHandler:
[***]
注：
1.[***]
想要执行
代码
比
说弹
消息框提示、警告
于
要求
需要写
：exit sub
行
2.errHandler
前
exit sub
让程序
执行（即用户没
点击取消）
跳
错误处理部
代码
inputbox
其
要执行
代码
errHandler
再加
标记（
ggoonn: ）
面放
续代码
再
面
exit sub换
go to ggoonn
总
go to
控制程序跳转
语句
跳转
部
需要
标记（
XXX: ）
知道我说明白没
下面分享相关内容的知识扩展：
关于VBA中InputBox的用法：如何让取消键有作用？ 还有就是变量为什么不能定义成integer？
用amount = Application.InputBox("请输入金额：", Type:=1) ‘不能为空，只能输入数字，否则弹出错误 ，取消就amount =0
Private Sub CommandButton1_Click()
Dim amount As Integer
amount = Application.InputBox("请输入金额：", Type:=1)
End Sub
InputBox函数的返回值类型是（ ）。
A.数值B.字符串C.变体D.数值或字符串(视输入的数据而定)... A.数值B.字符串
C.变体
D.数值或字符串(视输入的数据而定)
【答案】孝山：B
InputBox函数用于在屏幕上显示一个输入框，返回值为用户并磨输入的值，其类型是字绝慎斗符串。
pass=inputbox("输入要打开的批处理文件","测试") set a=wscript.createobject("***.shell") a.run
pass=inputbox("输入要打开的批处理文件","测试")
set a=wscript.createobject("***.shell")
a.run """"&pass&""""
或者 可以更简洁的写成一行:
createobject("***.shell").run """"&inputbox("路径","test")&""""
