在考生文件夹下有一个工程文件sj5.Vbp,在Forml的窗体中画一个标签,3个命令按钮和一个计时器。要求程序运行时,单击“开始计数”按钮,就开始计数,每隔1秒,标签中的数加_1.单击“暂停计数”按钮,则停止计数;单击“停止计数”按钮,则标签中的计数变为0

admin2010-07-13  16

问题 在考生文件夹下有一个工程文件sj5.Vbp,在Forml的窗体中画一个标签,3个命令按钮和一个计时器。要求程序运行时,单击“开始计数”按钮,就开始计数,每隔1秒,标签中的数加_1.单击“暂停计数”按钮,则停止计数;单击“停止计数”按钮,则标签中的计数变为0。程序运行时的窗体界面如图12—5所示。

    注意:修改适当的控件属性,并去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。

选项

答案根据题意,将一个标签,一个计时控件和3个命令按钮添加到窗体中,标签的名称为Labell,Caption属性为0,Timer的名称为Timer1,命令按钮的属性分别为Command1、Command2和Command3,Caption属性分别为“开始计数”“暂停计数”和“停止计数”。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl Click() Timer1.Interva1=1000 ’按开始按键,将把Timerl的间隔设为1秒 End Sub Private Sub Command2 Click() Timer1.Interva1=0’按停止按键,将把Timerl的间隔设为0 End Sub Private Sub Command3_Click() Timerl.Interval=0 ’按停止按键,将把Timerl的间隔设为0 Labell.Caption="0"’将Labell初始化为0 End Sub Private Sub Timerl_Timer() Labell.Caption=Val(Labell.Caption)+1 ’每过一个周期,Label1的数字加1 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/rLmp777K
0

最新回复(0)