VBS怎样将用户4次输入改成1次输入？

zengfuyang · 发表于 2012-8-23 18:03:16

本帖最后由 zengfuyang 于 2013-3-24 16:27 编辑

现在我有4条让用户输入的语句，因为4次输入太麻烦，想一次性输入，可以吗？代码如下：
strOne = InputBox("Please type one string","Input")

strTwo= InputBox("Please type two string","Input")

strThree = InputBox("Please type three string","Input")

strFour = InputBox("Please type you four string","Input")

求大神帮忙啊！

broly · 发表于 2012-8-29 22:59:51

Dim arr
arr = Array("One","Two","Three","Four")
For var = 0 To UBound(arr)
Execute("str"&arr(var)&" = InputBox(""Please type " & _
LCase(arr(var))&" string"",""Input"")")
Next

复制代码

broly · 发表于 2012-8-29 23:09:16

理解错误。

Dim str,arr
str = InputBox("多次输入，用'#'字符隔开","Input")
arr = Split(str,"#")
For Each var In arr
MsgBox var
Next

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] VBS怎样将用户4次输入改成1次输入？

浏览过的版块