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) 表示數組元素的最大序號。參見：