首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个过程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Time
在考生文件夹下有一个过程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Time
admin
2009-03-17
45
问题
在考生文件夹下有一个过程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Timer1用于变换信号灯,黄灯1秒,红灯2秒,绿灯3秒;Timer2用于控制汽车向左移动。运行时,信号灯不断变换。单击“车按”按钮后,汽车开始移动,如果移动到信号灯前或信号灯下,遇到红灯或黄灯,则停止移动,当变为绿灯后再继续移动。
在窗体中已经给出了全部控件和程序,但程序不完整,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm文件内容如下:
Dim a%,b As Boolean
Private Sub C1_Click()
’ Timer2.Enabled=?
b=True
End Sub
Private Sub Timer1_Timer()
a=a+1
If a>6 Then
a=1
End If
Select Case a
Case 1
P1.Picture=LoadPicture("黄灯.ico" )
Case 2,3
P1.Picture=LoadPicture("红灯.ico")
Case 4,5,6
’ P1.Picture=LoadPicture("?")
If b Then Timer2.Enabled=True
End Select
End Sub
Private Sub Timer2_Timer()
If (a<4) And (P2.Left>P1.Left And P2.Left<P1.Left+P1.Width)
Or P2.Left<=100 Then
’ Timer2.Enabled=?
Else
’ P2.Move? —10,P2.Top,P2.Width,P2.Height
End If
End Sub
选项
答案
① 对象主要属性设置如表4所示。 [*] ② 分析:窗体上的两个图片框、两个计时器和一个命令按钮,它们的属性按表4的内容进行设置。对于一个含有计时器控件的窗体,当属性Enabled为 True时,每经过一段由属性Interval指定的时间(毫秒)间隔,就产生一个 Timer事件。当属性Enabled为False或属性Interval为O时,将终止Timer事件。在程序运行期间可以用Load-Picture函数把图形文件装入窗体、图片框或图像框中。 Move方法的格式为:Object. Move left, top, width, height ? object为一个对象; ? left(必需的)为object左边的水平坐标(x—轴); ? top(可选的)为object顶边的垂直坐标(y—轴); ? width(可选的)为object新的宽度; ? height(可选的)为object新的高度。 ③ 编程代码: Dim a%,b As Boolean Private Sub C1_Click() Timer2. Enabled=True b=True End Sub Private Sub Timer1_Timer() a=a+1 If a>6 Then a=1 End If Select Case a Case 1 P1.Picture=LoadPicture("黄灯.ico") Case 2,3 P1.Picture=LoadPicture("红灯.ico") Case 4,5,6 P1.Picture=LoadPieture("绿灯.ico") If b Then Timer2. Enabled=True End Select End Sub Private Sub Timer2_Timer() If (a<4) And (P2. Left>P1.Left And P2.Left<P1.Left+P1. Width) Or P2. Left<=100 Then Timer2. Enabled=False Else P2. Move P2. Left—10, P2. Top, P2.Width, P2.Height End If End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/nj1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读下列代码段,选出该代码段的正确文件名()。classA{voidmethod1(){System.out.println("method1inclassA");}
一棵含18个结点的二叉树的高度至少为()。
数据库DB,数据库系统DBS,数据库管理系统DBMS,这3者之间的关系是()。
在长度为n的有序线性表中进行二分查找,需要的比较次数为【】。
下列各项中不是JDBCAPI向JDBCDriverManager发出请求的内容的是()。
给定下面的代码:byte[]arrayl,array2[];bytearray3[][];byte[][]array4;如果上面的每一个数组都初始化了,以下各项语句中错误的是()。
用来导入已定义好的类或包的语句是()。
对建立良好的程序设计风格,下面描述正确的是()
软件开发的结构化生命周期方法将软件生命周期划分成()
随机试题
Hello,Henry’sRestaurant.MayIhelpyou?—______
目前已知致泻毒素中毒性最强的是
A.黄芩B.黄连C.黄柏D.龙胆草E.苦参肝火犯胃呕吐吞酸宜用
甲公司是乙公司的母公司。2015年乙公司从甲公司购进A商品100件,购买价格为每件2万元(不含增值税)。甲公司A商品每件成本为1.5万元,未计提存货跌价准备。2015年乙公司对外销售A商品60件,每件销售价格为2.2万元;年末结存A商品40件。2015年1
现金流量表中,如果仅有一个月的时间,其现金余额呈现负数,下列最不适合作为调度的工具的是()。
财产保险按()划分,可分为定值保险和不定值保险。
随着我国机动车保有量的不断增多,道路交通安全也越来越引起人们的重视。下列说法错误的是()。
Thefactory’sproduction______hasbeenrelativelylowthismonthbecauseofrecurringproblemswiththeequipment.
ShortCoursesInordertoprovideopportunitiesforindividualorgroupinternationalstudentsandvisitorstoimproveChines
Thepoliceascertainedthattherewerenosignsthatthefirehadbeenset______.
最新回复
(
0
)