【求大神解救下标越界】~~还有三周要高考了TAT

方便大神调试：
Private Sub Form_click() '10-99
Dim x%(20), i%, flag As Boolean
For i = 1 To 20
x(i) = Int(Rnd * 90) + 10
Text1.Text = Text1.Text & x(i) & " "
If i Mod 10 = 0 Then
Text1.Text = Text1.Text & vbCrLf
End If
Next i
flag = 0
For i = 2 To x(i) - 1
If x(i) Mod i = 0 Then flag = 1
Next i
If flag = 0 Then
For i = 1 To 20
Text2.Text = Text2.Text & x(i) & " "
If i Mod 10 = 0 Then
Text1.Text = Text1.Text & vbCrLf
End If
Next i
End If
End Sub

x（i）>=20
当然会下标越界
这里应该把 ”下标越界”理解为”不能使用指定维”

For j= 2 To x(i) - 1 改成 For j = 2 To Ubound(x(i)) - 1