这个程序哪里错了？为什么总是提示说下标越界？

Dim y() As Integer
Dim mm() As Integer
Dim ii As Integer
Dim jj As Integer

For ii = 0 To a - 1
ReDim y(ii) As Integer
ReDim mm(ii) As Integer
For jj = 0 To a - 1 - NUM
Picture2.CurrentX = 150 + 300 * ii
mm(ii) = InStr(Text2.Text, ii)
If mm(ii) = 0 Then
y(ii) = 300 * 5 - 150 - 300 * jj
Else
Dim QQ() As Integer
ReDim QQ(ii) As Integer
QQ(ii) = Mid(Text1.Text, mm(ii), 1)
Dim ff As Integer
ff = Val(QQ(ii))
y(ii) = y(ff)
End If
Picture2.CurrentY = Val(y(ii))
Picture2.Print "×"

Next jj

这个程序哪里错了？为什么总是提示说下标越界？ 这个程序哪里错了？ 这个程序哪里错了? 这个程序哪里错了?????????? 哪里错了，这个程序？ 谁帮帮我看看这个程序错在那里了 为什么总是计算不出正确结果 小弟求教：这个程序哪里错了 这个程序哪里错了啊～ 求救！！这个程序哪里错了啊！！！！ 这个程序哪里错了!!!!!!!!!!!!!!!!!! C++的