LabTime.Caption=Time

　　For i=1 To 60

　　Beep

　　Next

　　End Sub

　　我們將計時器控件Interval屬性的值設置為l000. Enabled屬性設置為True在程序運行后，每隔一秒就觸發一次Timerl_Timer事件，該事件中的代碼就運行一次。因此，每隔一秒，第二個標簽控件的Caption屬性就被刷新一次，這樣，看上去就像一個跳動著的電子表。

　　Beep方法用來發出蜂鳴聲，由于一次蜂鳴聲的時間很短，難以聽到，因此采用For循環語句，來執行多次Beep方法。

　　雙擊按鈕控拌，再將下列代碼添加到Timerl_Timer事件過程中：

　　Private Sub Commandl_Click()

　　If Commandl_Caption=“停 止”Then

　　Timer1.Enabled=False

　　Command1.Caption=“開 始”

　　Else

　　Timers.Enabled=Ture

　　Commandl.Caption==“停 止”

　　End If

　　End Sub

　　該段程序采用了If語句來判斷按鈕當前的Caption屬性的值，如果是"停止",則將計時器控件Enabled屬性的值置為False,即暫停計時器的操作，并將按鈕的Caption屬性設置為"開始",如果Caption屬性的值為開始，則情況正好相反。可見，通過該按鈕可暫停或開啟計時器。

　　運行該程序，則在窗體中出現一個與系統時間一起跳動的電子表，如圖5.50所示。并且每跳動一次，系統發出一聲蜂鳴。單擊【停止】按鈕，則電子表停止跳動，單擊【開始】按鈕，則電子表從當前時間開始恢復跳動。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB復習指導匯總

　　2011年上半年計算機等級考試報名時間匯總