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

admin2009-08-26  30

问题 在考生文件夹下有一个工程文件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://kaotiyun.com/show/Mc1p777K
0

最新回复(0)