大家好，以前很少接触到timer控件的问题，现在请教大家。
我想每隔一秒发送一个数组数组元素，现在程序如下，可是只能发送一个a(0)
Private Sub btnSend_Click(Index As Integer)
        Dim a(5) As String
        Dim n As Integer
        Dim i As Integer
       For i = 0 To n      

           Timer1.Enabled = True
           Timer1.Interval = 1000
           send a(i)
       Next i
   
   End Sub


Private Sub Timer1_Timer()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

[[italic] 本帖最后由 wwzzqq 于 2007-11-27 22:19 编辑 [/italic]]

Private Sub btnSend_Click(Index As Integer)
  
           Timer1.Enabled = True
           Timer1.Interval = 1000
           
   End Sub
Private Sub Timer1_Timer()
      Dim a(5) As String
        Dim n As Integer
        Dim i As Integer
     For i = 0 To n  
      send a(i)
       Next i
End Sub

ls正解

呵呵，谢谢大家啊

可以用变体类型代替数组