求助 下标越界

[playnetboy]

Private Sub Command1_Click()
Dim a(5000) As Long
Dim k As Long
Dim j As Long
k = 0
For j = 0 To 1000
t = 0
For i = 2 To j - 1
If (j Mod i = 0) Then
t = 1
Exit For
End If

If (t = 0) Then
k = k + 1
a(k) = j
End If
Next i
Next j
For q = 0 To k
Print a(j)
Next q
End Sub
运行时提示 a(k) = j 此处下标越界，请教各位大侠

[帝企鹅已被占用]

如有Option base 1， 删除，注意其他的array

[帝企鹅已被占用]

或改成 Dim a(0 to 5000) As Long

[嗷嗷叫的老马]

................帮顶

[波导终结者]

不越界才怪

For i = 2 To j - 1
If (j Mod i = 0) Then
t = 1
Exit For
End If

If (t = 0) Then
k = k + 1
a(k) = j
End If
Next i

k的自加是写在第二层j的循环里，2+2+3+2+3+4+2+3+4+5+....+1000，不越界才怪

[fengfeng28]

楼上说的有理，就拿最后一个循环来说，J=1K
，I=2-J-1,循环了1000*998，下标最大5K，当然越界

[hanvan]

上面加一句 debug.print k
看出错时k值为多少，如果不在0-5000范围内，可不就越界了么

[playnetboy]

谢谢 ，非常感谢