帮忙修改程序?
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中继续显示随机数。
--------------------------------------------------------------------------------------------------------