2014-06-18 53 views
0

此代碼導致錯誤對我來說:無法在VBScript中的while循環中創建變量?

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循環似乎在搞亂它。有什麼建議麼?謝謝!

+2

以供將來參考:當你寫「導致錯誤」,這是對我們非常有幫助,如果您有關於什麼信息「錯誤」是,所以我們不必猜測。您已經掌握了這些信息,因此絕對沒有理由不把它包含在您的問題中。向我們提供相關信息對您有利;它可以幫助你更快得到答案。發佈時,請記住,我們無法看到您的屏幕或從我們坐的位置讀出您的想法。 –

+0

對不起,我會確保將來做到這一點。 –

回答

2

一旦你調暗了一個數組,它就不能再變暗。但是,它可以是ReDim版。在循環之外調暗它。如果你希望每個循環中清除數組,你可以做下列操作之一:

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

非常感謝! –