2011年度计算机等级考试二级VB复习指导(40)

　　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年上半年计算机等级考试报名时间汇总