將數組長度設置爲變量值？

Question

我想知道是否可以將數組的長度設置爲變量值，因爲這對我的當前函數有很大的幫助。

基本上我希望能夠做的是：

q = 2 
Dim AnswerIDs(q) 

然而，這導致一個錯誤，沒有人知道我怎麼能做到這一點？

Answer 1

q = 2 
Dim AnswerIDs() 
Redim AnswerIDs(q) 

Answer 2

你可以做如下：

q = 2 
Dim AnswerIDs(), i 
ReDim AnswerIDs(-1) 
i = 0 
Do While q > i 
    ReDim Preserve AnswerIDs(UBound(AnswerIDs) + 1) 
    AnswerIDs(UBound(AnswerIDs)) = "test" 
    i = i + 1 
Loop