关于VB的计时器问题

Question

我写了一个计时器，目的让他每隔一秒显示一次时间，一共显示3次Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
aaa
End Sub
Private Sub aaa()
Dim i As Integer
 
For i = 1 To 3    If i = 1 Then
    Form1.Timer1.Enabled = True    End If
    If i = 2 Then
    Form1.Timer1.Enabled = True
    End If
    If i = 3 Then
    Form1.Timer1.Enabled = True
    End If
Next i
     
End Sub
Private Sub Timer1_Timer() Text1.Text = Time()Timer1.Enabled = False
End Sub可是他只显示了最后一次的时间，而前两次并没有时间间隔，请高人指点

Answer 1

我想了个本办法，呜呜呜。
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = FalseTimer2.Interval = 100
Timer2.Enabled = FalseTimer3.Interval = 100
Timer3.Enabled = FalseTimer4.Interval = 100
Timer4.Enabled = FalseTimer5.Interval = 100
Timer5.Enabled = FalseTimer6.Interval = 100
Timer6.Enabled = FalseTimer7.Interval = 100
Timer7.Enabled = False
aaa
End Sub
Private Sub aaa()
Form1.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() Text1.Text = 1
Form1.Timer2.Enabled = True
Timer1.Enabled = False
End SubPrivate Sub Timer2_Timer()
 Text1.Text = 2
Form1.Timer3.Enabled = True
Timer2.Enabled = False
End SubPrivate Sub Timer3_Timer()
 Text1.Text = 3
Form1.Timer4.Enabled = True
Timer3.Enabled = False
End SubPrivate Sub Timer4_Timer()
 Text1.Text = 4
Form1.Timer5.Enabled = True
Timer4.Enabled = False
End SubPrivate Sub Timer5_Timer()
 Text1.Text = 5
Form1.Timer6.Enabled = True
Timer5.Enabled = False
End SubPrivate Sub Timer6_Timer()
 Text1.Text = 6
Form1.Timer7.Enabled = True
Timer6.Enabled = False
End SubPrivate Sub Timer7_Timer()
 Text1.Text = 7
 aaa
Timer7.Enabled = False
End Sub

Answer 2

Dim i As Integer
Private Sub Form_Load()
i = 0
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
If i = 3 Then
Timer1.Enabled = False
Else
 Text1.Text = Time()
i = i + 1
Print i
    
End IfEnd Sub
才学，可能不大规范。

Answer 3

Private Sub Form_Load()
   Timer1.Enabled = False
   Timer1.Interval = 1000
   Text1.Text = Time
   Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
   Static Num As Byte
   Text1.Text = Time
   Num = Num + 1
   If Num = 2 Then
      Timer1.Enabled = False
      Num = 0
   End If
End Sub

Answer 4

Private Sub Form_Load()
    Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
    Static d As Integer
    d = d + 1
    If d = 3 Then Timer1.Enabled = False    
    Text1.Text = Time()
End Sub

Answer 5

我郁闷，我一直以为timer只运行一次，没想到只要不为假，他会不断的循环