2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯．ico”、“绿灯．ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Time

在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯．ico”、“绿灯．ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Time

admin2018-05-08  45
问题  在考生文件夹下有一个工程文件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://www.kaotiyun.com/show/5qGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)