将数组长度设置为变量值？

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