首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Time
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Time
admin
2018-05-08
30
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Timer1用于变换信号灯,黄灯1秒,红灯2秒,绿灯3秒;Timer2用于控制汽车向左移动。运行时,信号灯不断变换,单击“开车”按钮后,汽车开始移动,如果移动到信号灯前或信号灯下,遇到红灯或黄灯,则停止移动,当变为绿灯后继续移动。
在窗体中已经给出了全部控件和程序,但程序不完整,要求阅读程序并去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 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 = LoadPicture("绿灯.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 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/5qGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击”删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommandI_Click()D
下列选项中,不属于数据管理员(DBA)职责的是()。
窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType当单击命令按钮时,将两个文本框
()控件可以使图形根据控件大小而改变大小。
对于含有多个窗体的工程而言,以下叙述中正确的是
已知图片框Picturel中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是
如果把文本框的Enabled属性设置为False并运行程序,则以下叙述中正确的是
数据库应用系统中的核心问题是()。
设有如下程序段,则正确的说法是Fori=1To100Step0x=x+1Next
随机试题
用来存放暂时不用的、需长期保留的大批量数据和程序的计算机部件是()
Haveagoodrest,youneedto______yourenergyforthetennismatchthisafternoon.
A.胆囊底部壁增厚,壁内可见小囊结构B.胆囊底部向腔内隆起的球状低回声结节,大小为15mmC.胆囊肿大,颈部见声影D.胆囊底部囊腔萎缩,内充满砂粒状强回声,胆囊颈管增大E.胆囊壁可见单发或多发的强回声,呈“彗星尾征”胆囊颈部结石
企业持有现金的成本主要包括()。
将会计凭证划分为原始凭证和记账凭证两大类的依据是()。
个人独资企业依法解散的,应当由投资人或者清算人于清算日结束之日起( )日内向原登记机关申请注销登记。
对初始状态为递增序列的表按递增顺序排序,最省时间的是((1))算法,最费时间的是((2))算法。
周恩来曾经说过:“天下作伪是最苦恼的事情,老老实实是最快乐的事情”。下列名言与这段话在含义上大体一致的是
以下程序的输出结果是main(){inta=4,b=5,c=0,d;d=!a&&!b||!c;printf("%d\n",d);}
Whatdoestheprofessoradvisethestudenttodoinordertokeepupwiththeclasssheisin?
最新回复
(
0
)