2013年计算机二级VB上机模拟试题及答案（5）

　　3. 综合应用(1小题，计30分)

　　注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒;Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。

　　在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体程序不完整，在窗体的Private Sub C1_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'Timer2.Enabled = ?

　　改为

　　Timer2.Enabled = True

　　在窗体的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'P1.Picture = LoadPicture("?")

　　改为

　　P1.Picture = LoadPicture("绿灯.ico")

　　在窗体的Private Sub Timer2_Timer()事件过程中，有二处地方需要修改。

　　1) 将语句

　　'Timer2.Enabled = ?

　　改为

　　Timer2.Enabled = False

　　2) 将语句

　　'P2.Move ? - 10, P2.Top, P2.Width, P2.Height

　　改为

　　P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height