控件脱离循环时，vbscript中的动态数组将被清除

Question

我是VBScript的新手。我正在尝试VBScript中的动态数组概念。下面是我的代码。代码：

dim arr()
For i = 0 To 3
    Redim arr(i+1,2)
    arr(i,0)=i
    arr(i,1)=i+1
    MsgBox arr(i,0)&"-"&arr(i,1)
Next
For i = 0 To UBound(arr)
    MsgBox arr(i,0)&" "&arr(i,1)
Next

一旦控制进入第二个循环，存储在arr中的所有值都将丢失。我不明白为什么和怎么做？我尝试添加Preserve关键字，但它抛出下标超出范围的错误。TIA！！！

Answer 1

[哎呀，错过了两个维度]使用ReDim Preserve而不是普通的ReDim。（并去掉Dim语句中的（）。）[/oops]

只能增长动态数组（而不是用（n[，m，..]）调光的固定数组）。维度更大的数组只能增长最后一个维度（docs）。因此：

选项显式

ReDim arr(1, -1) ' <-- dynamic
Dim i
For i = 0 To 3
    ReDim Preserve arr(1, i) ' last dim grows
    arr(0, i) = i
    arr(1, i) = i + 1
Next
For i = 0 To 3
    WScript.Echo i & ":", arr(0, i), arr(1, i)
Next

输出：

cscript 29520636.vbs
0 0 1
1 1 2
2 2 3
3 3 4