在考生文件夹下有一个工程文件sj5．vbp，在Form1的窗体中有一个标签，3个命令按钮和一个计时器。程序的功能是：运行时，单击“开始计数”按钮，就开始计数，每隔1秒，标签中的数加l，且该按钮不可用，“倒数计数”按钮可用；单击“倒数计数”按钮时，则倒数计数，且该按钮不可用，“开始计数”按钮可用，当倒数计数到0时，则停止计数，且“开始计数”按钮可用、“倒数计数”按钮不可用；单击“关闭”按钮，则关闭窗口。 注意：修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。程序运行时的窗体界面如图43—5所示。
【正确答案】正确答案：根据题意，将一个Label控件、3个Command控件和一个Timer控件添加到窗体上，Label的名称为Labell、Caption属性为空，Command的名称分别为Commandl、Command2和Command3，Caption属性分别为“开始计数”、“倒数计数”和“关闭”。双击Commandl命令按钮，编写如下代码： Dim a As Integer Private Sub Commandl_Click() Timerl．
Interval
=1 000 Command1．
Enabled
=False Command2．
Enabled
=True a=1'计数 End Sub Private Sub Command2 Click() Command2．
Enabled
=False Command1．
Enabled
=True a=2 '倒数计数 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Timerl Timer() If a=1 Then'如果是正向的 Labell．
Caption
=Val(Labell．
Caption
)+l '则每过一个周期计数加1 Else Labell．
Caption
=Val(Labell．
Caption
)-1 '如果是倒数计数，则每个周期数减1 Command2．
Enabled
=False If Val(Labell．
Caption
)<=0 Then'当倒数计数等于O时，不再计数 Timerl．
Interval
=0 Commandl．
Enabled
=True End If End If End Sub 单击
【答案解析】