请教高手 用timer依次读出数组中的元素
请问如何用timer依次读出数组中的元素,最好能给出小程序示例,多谢多谢
Option Base 1 Dim N, Ar(6) As Integer Private Sub Form_Load() Text1.Text = "" Timer1.Interval = 1000 Timer1.Enabled = False Dim i As Integer For i = 1 To 6 Ar(i) = i Next N = 1 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text & Ar(N) & " " N = N + 1 If (N > 6) Then Timer1.Enabled = False End If End Sub是不是你想达到的效果?