为什么b(n)会下标越界?谢谢!

Option Base 1
Dim a() As Integer, b() As Integer, i%, j%, n%, t As Boolean, sum%, x%
Private Sub Command1_Click()
ReDim a(100) As Integer
Print
Print
j = 0
For i = 1 To 100
a(i) = Int(Rnd * 90 + 10)
j = j + 1
Print a(i);
If j = 10 Then j = 0: Print
Next i
End Sub

Private Sub Command2_Click()
Call sushu
End Sub
Private Sub sushu()
For i = 1 To 100
t = True
For j = 2 To a(i) - 1
If a(i) Mod j = 0 Then t = False: Exit For
Next j
If t = True Then
n = n + 1
b(n) = a(i)
End If
Text1.Text = Text1.Text & " " & b(n)
Next i
End Sub

为什么下标越界 JSP问题 这段代码为什么会数组下标越界 这个程序为什么老下标越界？？ 敢问高手！为什么会有数组下标越界！请详细说一下！深谢！ 下标越界（VB） vb 下标越界 VB数组下标越界 VB 下标越界问题 vb 数组 下标越界 VB编程下标越界