broly

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"")")
NextCOPY

broly

理解错误。

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