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) 表示数组元素的最大序号。参见：