vbs动态数组，asp动态数组

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