2013年計(jì)算機(jī)二級(jí)VB上機(jī)模擬試題及答案（5）

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

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

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

　　解題思路：

　　啟動(dòng)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