vb 时间控制问题

来源：百度知道 编辑：UC知道 时间：2024/09/28 14:53:15
vb 时间控制问题

第4秒钟输出“爱”
第8秒钟输出“我”
第12秒钟输出“中”
第16秒钟输出“华”

如何实现
就是不知道timer_timer()
里面怎么写啊

新建工程,1个timer1,然后全部代码:

Dim i%

Private Sub Form_Load()
i = 0
Timer1.Enabled = True
Timer1.Interval = 4000
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i = 4 Then Timer1.Enabled = False
Print Choose(i, "爱", "我", "中", "华")
End Sub

Private Sub Timer1_Timer()
Static i
Select Case i
Case 4
Print "爱"
Case 8
Print "我"
Case 12
Print "中"
Case 16
Print "华"
End Select
i = i + 1
End Sub

Private Sub Form_Load()
i = 0
Timer1.Enabled = True
Timer1.Interval = 4000
End Sub

Private Sub Timer1_Timer()
i = i + 1
timer1.interval=val(timer1.interval)+4000
If i = 4 Then Timer1.Enabled = False
Print Choose(i, "爱", "我", "中", "华")
End Sub

用Timer控件啊,很简单!