[填空题] 设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文

16 查阅

[填空题] 设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在【11】、【12】和【13】处填入适当的内容，将程序补充完整。 Option Explicit Dim i Private Sub Command1_Click() i＝0 Timer1.Interval=1000 Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1. Enabled=False End Sub Private Sub Form_Click() 【11】 Me End Sub Private Sub Form_Load() Timer1. Enabled=False Text1. Text=0 End Sub Private Sub Timer1_ 【12】 () i=i+1 Text1. Text= 【13】 End Sub

参考答案:

[11] Unload

[12] Timer [13] i 计时器控件的常用事件是Timer事件，是计时器在间隔了一个Interval时间后所触发的事件。题中[12]处应填事件为Tim cr。i是一个控制时间的变量。文本框中显示的是计时器的计数秒数，故应把控制时间变量的i赋值给文本框的Text属性。[13]处应填变量i。题中要求单击窗口则退出程序，可以用卸载语句Unload Me来实现此功能。

计算机考试