2013年計算機二級VB上機模擬試題及答案（5）

　　3. 綜合應(yīng)用(1小題，計30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%在考生文件夾下有一個工程文件sjt5.vbp，窗體上有兩個圖片框，名稱為P1、P2，分別用來表示信號燈和汽車，其中在P1中輪流裝入“黃燈.ico”、“紅燈.ico”、“綠燈.ico”文件來實現(xiàn)信號燈的切換;還有兩個計時器Timer1和Timer2，Timer1用于變換信號燈，黃燈1秒，紅燈2秒，綠燈3秒;Timer2用于控制汽車向左移動。運行時，信號燈不斷變換，單擊“開車”按鈕后。汽車開始移動，如果移動到信號燈前或信號燈下，遇到紅燈或黃燈，則停止移動，當(dāng)變?yōu)榫G燈后再繼續(xù)移動。

　　在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為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