哪位高手知道这个程序有什么错误
Private Sub Command1_Click()
Dim a()
ReDim a(n)
a(0) = 96
For i = 1 To n
If a(i) > 1000 Then
Text3.Text = a(i - 1)
Else
a(i - 1) = a(i - 2) + 5
End If
Next i
End Sub
Private Sub Command1_Click()
Dim a()
ReDim a(n)
a(0) = 96
For i = 1 To n
If a(i) > 1000 Then
Text3.Text = a(i - 1)
Else
a(i - 1) = a(i - 2) + 5
End If
Next i
End Sub