Question

此代码对我造成错误：

i = 0
Set colors = CreateObject("Scripting.Dictionary")
Do While i < 7
    If True Then
        Dim a(1)
        a(0) = "go"
        a(1)  = "tRY"
        colors.Add "space", a
    End If
    i = i + 2
Loop

我不太清楚为什么。我需要做类似的事情，我为每个键初始化一个数组的字典，但是while循环似乎搞乱了它。有什么建议？谢谢！

Answer 1

一旦你对阵列变暗，它就不能再变暗了。但是，它可以ReDim。在循环外面调暗它。如果要在每个循环期间清除阵列，可以执行以下操作之一：

ReDim a(1)    ' ReDim without 'Preserve' will clear the array
' or
Erase a

无法在VBScript中的while循环中创建变量？

1 个答案: