2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，在Form1的窗体中有一个标签，3个命令按钮和一个计时器。程序的功能是：运行时，单击“开始计数”按钮，就开始计数，每隔1秒，标签中的数加l，且该按钮不可用，“倒数计数”按钮可用；单击“倒数计数”按钮时，则倒数计数

在考生文件夹下有一个工程文件sj5．vbp，在Form1的窗体中有一个标签，3个命令按钮和一个计时器。程序的功能是：运行时，单击“开始计数”按钮，就开始计数，每隔1秒，标签中的数加l，且该按钮不可用，“倒数计数”按钮可用；单击“倒数计数”按钮时，则倒数计数

admin2009-08-26  62
问题 在考生文件夹下有一个工程文件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 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/Mc1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)