第 1 页:选择题 |
第 5 页:基本操作 |
第 6 页:简单应用题 |
第 7 页:综合应用题 |
四、综合应用题
43
在考生文件夹下有一个工程文件sj5.vbp,在Form1的窗体中画一个标签,3个命令按钮和一个计时器。要求程序运行时,单击"开始计数"按钮,就开始计数,每隔1秒,标签中的数加1;单击"暂停计数"按钮,则停止计数;单击"停止计数"按钮,则标签中的计数变为0。
要求:修改适当的控件属性,并去掉程序中的注释符"'",把程序中的"?"改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
程序运行时的窗体界面如图51-5所示。
图51-5
参考答案:请参考解析 系统解析:根据题意,将一个标签,一个计时控件和3个命令按钮添加到窗体中,标签的名称为Label1,Caption属性为0,Timer的名称为Timer1,命令按钮的属性分别为Command1、Command2和Command3,Caption属性分别为"开始计数"、"暂停计数"和"停止计数"。双击Command1进入代码窗口,编写如下代码:
Private Sub Command1_Click()
Timer1.Interval = 1000 '按开始按键,将把Timer1的间隔设为1秒
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0 '按暂停按键,将把Timer1的间隔设为0
End Sub
Private Sub Command3_Click()
Timer1.Interval = 0 '按暂停按键,将把Timer1的间隔设为0
Label1.Caption = "0" '将Label1初始化为0
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1 '每个一个周期,Label1的数字加1
End Sub
单击
按钮运行程序,并按要求保存。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |