Question

VB常数表达式

Private Sub Cm3_Click()
Dim q As Integer
q = T1.Text
Dim array1(1 To q) As Integer
Dim array2(1 To q) As Integer
Dim array3(1 To q) As Integer
Dim array4(1 To q) As Integer
Dim array5(1 To q) As Integer
For i = 1 To q
array1(i) = 0
array2(i) = 0
array3(i) = 0
array4(i) = 0
array5(i) = 0
Next
End Sub

Private Sub Cm3_Click()这句报的错，他要常数表达式，那位高手帮忙改下，其他有问题的地方也帮忙改下，谢谢！
ReDim a1(1 To q) As Integer
下标越界？

Answer 1

dim要求常数,如需变长度数组需要使用Redim
Dim q As Integer
q = T1.Text
Dim array1() As Integer
Dim array2() As Integer
Dim array3() As Integer
Dim array4() As Integer
Dim array5() As Integer
ReDim array1(1 To q) As Integer
ReDim array2(1 To q) As Integer
ReDim array3(1 To q) As Integer
ReDim array4(1 To q) As Integer
ReDim array5(1 To q) As Integer
For i = 1 To q
array1(i) = 0
array2(i) = 0
array3(i) = 0
array4(i) = 0
array5(i) = 0
Next