VB如何循环给变量赋值

Question

public data1(0 to 7) as string
请问各位，在VB中，如何给data1(0)这个变量定时的循环赋值
比如，在data1(0)=1 100Ms之后，在data1(0)=2 100ms之后，data1(0)=3然后再返回data1(0)=1,如此循环

Answer 1

使用Timer，且把Timer的Interval属性设置为100

Answer 2

Private Sub Command3_Click()
Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()
Text2.Text = 22
Timer1.Enabled = False
Timer2.Enabled = TrueEnd SubPrivate Sub Timer2_Timer()
Text2.Text = 55Timer1.Enabled = True
Timer2.Enabled = FalseEnd Sub