Question

用vb6编写倒计时

40秒倒计时，完毕后，重新回到40秒倒计时，循环下去

Answer 1

代码如下：
Private n As Integer
Private Sub Form_DblClick()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
n = 40
End Sub

Private Sub Timer1_Timer()
If n = 0 Then n = 40
Label1.Caption = n
n = n - 1
If n = 0 Then Label1.Caption = "时间到!"
End Sub
说明：
1、一个标签，一个timer1
2、双击窗体，标签显示40，每秒减1
3、显示为0时，显示1秒钟的“时间到！”,然后再从40开始，不断循环...
不难懂吧？