求助 下标越界
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 此处下标越界,请教各位大侠