首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个过程文件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
46
问题
在考生文件夹下有一个过程文件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全国计算机二级
相关试题推荐
下列关于异常类型的说明中错误的是()。
下列关于队列的叙述中正确的是()。
下面程序执行后的输出结果为()。publicclassfun{publicstaticvoidmain(Stringargs[]){Stringgreets="Ho
Appiet类中用于返回包含Applet的HTML文件URL的方法是【】。
下列各项中不是JDBCAPI向JDBCDriverManager发出请求的内容的是()。
下列叙述中正确的是
对建立良好的程序设计风格,下面描述正确的是()
在深度为5的完全二叉树中,度为2的结点数最多为【】。
表达式(10*49.3)的类型是______型。
若有以下定义inta[]={1,2,3,4,5,6,7};charc1=’b’,c2=’2’;则数值不为2的表达式是()。
随机试题
新生儿由风疹病毒感染所致的常见先天畸形不包括
生命遗传的物质基础是()
关于利润类账户的结构,说法有误的是( )。
以下不是我国商业银行信息披露主要存在的问题的是()。
信用货币的特征包括()。
中盛建设信息有限责任公司成立于1999年,是建设信息产业支柱企业。公司专注于数字城市建设,是全国公用事业城市“一卡通”系统、城市交通I工S系统、城市规划部门空间数据处理和地理信息系统、房地产宽带数字社区系统、房地产网络建设的主要承担单位,为城市信息化建设提
制定体育教学目标的程序有哪些?()
环境质量标准反映了人群、动植物和生态系统对环境质量的综合要求,也标志着在一定时期国家为控制污染在技术上和经济上可能达到的水平。()
Iexpectthiscoursetoopenmyeyestostorymaterial,tounleashmytoodormantimagination,todevelopthatqualityutterlyl
下面关于计算机总线的叙述中,错误的是______。A)总线带宽与总线的负载能力有关B)总线带宽与总线的数据宽度(总线位宽)有关C)总线带宽与总线的工作频率有关D)总线带宽与一个总线时钟周期可以完成数据传输的次数有关
最新回复
(
0
)