首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
25
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列程序段的执行结果为()。Forml.Clsa=“ABBACDDCBA”Fori=6To2Step_2x=Mid(a,i,i)y=Left(a,i)z=Right(a,i)z=x&y&zNextiPrintz
在窗体上画一个命令按钮,然后编写如下事件过程:PfivmeSubCommandl_Click()x=0doUnlilx=-1a=InputBox(“请输入a的值”)a=Val(a)b=InputBox(“请输入b的值”)b
以下能从字符串”VisualBasic”中直接取出子字符串“Basic”的函数是()。
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:OptionBaselPrivateSubCommandl_Click()Dimaa=Array(1,2,3,4)j=lFori=4To1
一棵二叉树的前序遍历结果是ABCEDF,中序遍历结果是CBAEDF,则其后序遍历的结果是()。
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)
设a=10,b=5,c=1,执行语句Printa>b>c窗体上显示的是
以下不可以作为“容器”的控件是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Labell、标题为“列表框的使用”的标签。再画一个名称为Listl的列表框,列表中含有5个表项,表项内容分别为“北京”、“
下列说法中,错误的是
随机试题
Myownproblemsseeminsignificant______thoseofothers.
以下哪项不是高危型急淋白血病的危险因素
男性。28岁.间断下腰痛10年,加重半年伴足跟痛。查体:右膝关节肿胀,左侧4字征阳性。应采取的治疗为
患者,男,32岁。受凉后出现高热、咳嗽、咳大量脓臭痰2周。查体:右下肺叩诊浊音,町闻及湿性啰音,查:白细胞12×109/L,中性分叶92%。胸片示:右下叶背段大片阴影并有厚壁空洞,最重要的进一步检查应为
以幕墙作为维护结构的建筑物,应按幕墙()计算建筑面积。
关于光面爆破技术,说法正确的是()。
关于附加及扩展责任条款,下列说法不正确的是( )。
某商场采取有奖销售方式促销商品,凡在本商场购买商品超过100元者,可凭当日购买商品小票获得一次抽奖机会,奖金共分三档:其中,一等奖五名,奖金为3000元;二等奖3名,奖金为2000元;三等奖10名,奖金为100元。该商场的有奖销售行为属于不正当竞争行为。(
一般情况下,注册会计师应选择以下项目作为函证对象( )。当同时存在下列情况时,注册会计师可考虑采用消极的函证方式( )。
只在本行政区域内有效的教育法规属于()。
最新回复
(
0
)