请教高手用timer依次读出数组中的元素 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 请教高手用timer依次读出数组中的元素

标题：请教高手用timer依次读出数组中的元素

取消只看楼主

变成小鸟

等　级：新手上路
帖　子：10
专家分：0
注　册：2010-10-25
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：3

请教高手用timer依次读出数组中的元素

请问如何用timer依次读出数组中的元素，最好能给出小程序示例，多谢多谢

搜索更多相关主题的帖子: timer　元素　

2010-12-04 21:23

变成小鸟

等　级：新手上路
帖　子：10
专家分：0
注　册：2010-10-25

第 2 楼

得分:0

回复 2楼 Artless

比如这个样子吧

Option Base 1
Dim a(6) As Integer

Private Sub Form_load()

   For i = 1 To 6
    a(i) = i
   Timer1.Enabled = True

  Next i

End Sub

Private Sub Timer1_Timer()
For i = 1 To 6
Text1.Text = Str$(a(i))
Next i


End Sub
只能读出最后一个数

2010-12-05 16:10

变成小鸟

等　级：新手上路
帖　子：10
专家分：0
注　册：2010-10-25

第 3 楼

得分:0

回复 4楼 cccool

多谢

2010-12-05 20:00

变成小鸟

等　级：新手上路
帖　子：10
专家分：0
注　册：2010-10-25

第 4 楼

得分:0