zengfuyang 当前离线
列兵
broly (Broly)当前离线
版主
Dim str,arr str = InputBox("多次输入,用'#'字符隔开","Input") arr = Split(str,"#") For Each var In arr MsgBox var Next复制代码
TOP
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复制代码