VBS 数组

i = 0: nStr = ""
Dim MyArray()
Do
a = InputBox("循环直到输入4为止")
ReDim Preserve MyArray(i)
MyArray(i) = a
i = i + 1
Loop Until a = "4"
For i = 0 To UBound(MyArray)
nStr = nStr & MyArray(i) & ","
Next
MsgBox nStr

补充：--------------------------------------
不一定要 redim 后才能给数组赋值
Dim MyArray(5)
MyArray(0)=455
MyArray(1)=500
.......
因为这时数组中已有元素 0 到 5 号

下面的用法就必须 redim 后才能给数组赋值
dim MyArray()'定义动态数组，此时数组中一个元素都没有
ReDim Preserve MyArray(3)'重定义数组的元素 为  0 到 3 号
MyArray(0)=455
MyArray(1)=500
MyArray(2)=2
MyArray(3)=78


For i = 0 To UBound(MyArray)
nStr = nStr & MyArray(i) & ","
Next
表示：将数组的所有元素用字符串形式连在一起，用“,”分隔，便于显示。
UBound(MyArray) 表示数组元素的最大序号。参见：