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

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

本帖最后由 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")

求大神帮忙啊!

理解错误。
  1. Dim str,arr
  2. str = InputBox("多次输入,用'#'字符隔开","Input")
  3. arr = Split(str,"#")
  4. For Each var In arr
  5. MsgBox var
  6. Next
复制代码
---学无止境---

TOP

  1. Dim arr
  2. arr = Array("One","Two","Three","Four")
  3. For var = 0 To UBound(arr)
  4. Execute("str"&arr(var)&" = InputBox(""Please type " & _
  5. LCase(arr(var))&" string"",""Input"")")
  6. Next
复制代码
---学无止境---

TOP

返回列表