Private Sub Timer2_Timer()


gNo = gNo + 1
gNo1 = gNo1 + 1

If gNo = 5 Then
Randomize
Text1.Text = CStr(Rnd * 100)
gNo = 0

End If

If gNo1 = 3 Then

aNo(gNo2) = Text1.Text

gNo1 = 0
gNo2 = gNo2 + 1


End If

End Sub
————————————————————————————————————————————————————
Timer的Interval为100 我定义了一个大小为1000的数组。可是当gNo2的值到1000时，如何进行出错处理。我希望到时数组不再记录数据，但Text中继续显示随机数。
--------------------------------------------------------------------------------------------------------

修改这句：
If gNo1 = 3 Then 改成

If gNo1 = 3 and gNo2 <=1000 Then

Thank you!