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

你的代码？
那一部分有问题？

比如这个样子吧

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
只能读出最后一个数

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

是不是你想达到的效果？

你是要做什么呢？

Option Base 1
Dim a(6) As Integer
dim TJS as integer

Private Sub Form_load()
  
   For i = 1 To 6
    a(i) = i
   Timer1.Enabled = True
  Next i
tjs=0
End Sub

Private Sub Timer1_Timer()
if tjs<6 then                           '当时间计算器小于6
  tjs=tjs+1                             '自加1    这条命令与下一条命令执行顺序与你的 数组的所使用的最小 下标有关。
  text1.Text = Str$(a(tjs))             '输出值
end if
end sub

'当你要重新读数时，将 tjs 设置为 0 就可以了。

回4楼。

发完贴才看到你回贴了。
-------------------------
Dim N, Ar(6) As Integer

这句有问题，
应该是 dim N as integer ,ar(6) as integer

你平时一般都是用 C 或类似的语言的吧。

貌似可以这样申明变量！

多谢

多谢

回复 6楼 风吹过b
貌似可以这样申明变量！

这样申明是可以的。
但这样申请的变量。
N  的 变体类型，不是 所希望的 整形数据类型。

VB 里定义变量， 需要针对每个变量指出 数据类型，或使用类型说明符来定义，
如果没有 明确指出类型的数据，均当作变体类型。