在VB中設計倒計時程序

在程序設計時，經常需要用倒計時，倒計時程序一般不能用時間函數來進行設計，常用的方法是在計時器的觸發過程中設置計數
變量來進行控制，程序如下：
Dim hh,mm,ss
Sub Form_ Load()
hh=0:mm=5:ss=0
timer1.Interval=1000
End Sub
Sub Timer1_Timer()
s=IIf(ss<10,"0"&ss,""&ss)
m=IIf(mm<10,"0"&mm,""&mm)
h=IIf(hh<10,"0"&hh,""&hh)
t=h&":"&m&":"&s
Me.Caption=t
ss=ss－1
If hh=0 And mm=0 And ss=－1 Then
msg="練習時間已到，按回車鍵結束!"
MsgBox msg,48,"注意"
End If
If ss=－1 And mm>0 Then mm=mm－1:ss=59
If mm=0 And hh>0 Then hh=hh－1:mm=59
End Sub
程序說明：程序中用到三個窗體級變量hh、mm、ss，它們分別代表初始的小時、分鐘、秒，可根據情況在程序中指定，也可配合文本框在程序開始運行時輸入，程序中用到一個計時器，它每秒鐘被觸發一次，程序運行時在窗體的標題欄動態地顯示倒計時，當計時完畢則顯示對話框提示，同時結束程序的運行。

原文轉自：http://www.anti-gravitydesign.com