一個(gè)文本控件text1顯示倒計(jì)時(shí) 一個(gè)定時(shí)器控件定時(shí)，一個(gè)按鈕控件觸發(fā)倒計(jì)時(shí)事件Dim i As Integer '全局變量Private Sub Command1_Click() Text1.Text = 10 '文本初始值10 Timer1.Enabled = True '開(kāi)定時(shí)器 Timer1.Interval = 1000 'MS單位 i = 10 ' i賦初始值End SubPrivate Sub Form_Load() Text1.Text = "" '文本初始值空值End SubPrivate Sub Timer1_Timer() i = i - 1 '每到1s響應(yīng)定時(shí)器，響應(yīng)次數(shù)+1 Text1.Text = i If i = 0 Then Timer1.Enabled = False '關(guān)定時(shí)器 End IfEnd Sub