[問答題] 完成下列問題：

考生文件夾下有一個(gè)工程文件sjt3.vbp，其中的窗體上有一個(gè)名稱為Cmd的命令按鈕控件數(shù)組；有一個(gè)名稱為Image1的圖像框。請(qǐng)畫一個(gè)名稱為Timer1的計(jì)時(shí)器，時(shí)間間隔為3s，初始狀態(tài)為不可用，如圖3所示。

程序功能如下：

單擊“前進(jìn)”按鈕，則Timer1的狀態(tài)變?yōu)榭捎?，且在圖像框中顯示3s黃燈(圖像文件為考生文件夾下的yellow.ico)后，顯示綠燈(圖像文件為考生文件夾下的green.ico)直至下次單擊某個(gè)命令按鈕。

單擊“停止”按鈕，則Timer1的狀態(tài)變?yōu)榭捎?，且在圖像框顯示3s黃燈后，顯示紅燈(圖像文件為考生文件夾下的red.ico)直至下次單擊某個(gè)命令按鈕。

單擊“結(jié)束”按鈕，則結(jié)束程序執(zhí)行。

在橫線處填寫正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。

注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。

[題目提供的源程序]

Dim flag As Integer

Private Sub Cmd_Click(Index As Integer)

If Index= (1) Then

End

Else

’考生文件夾下的圖片文件

Image1.Picture=LoadPicture("yellow.ico")

flag=Index

Timer1.Enabled= (2)

End If

End Sub

Private Sub Timer1_Timer()

Select Case (3) &l

[操作步驟] 第1步：打開工程文件sjt3.vbp。 第2步：添加計(jì)時(shí)器控件。在窗體上畫一個(gè)計(jì)時(shí)器控件，修改其Enabled屬性為False，修改其Interval屬性為：3000。 第3步：修改程序。 第4步：調(diào)試、運(yùn)行并保存程序。 [1]2 [2]True [3]Flag

程序的思路是單擊按鈕組中的一個(gè)按鈕后，檢查被單擊按鈕的索引Index值，如果索引為2，即單擊了“結(jié)束”按鈕，則執(zhí)行End語句結(jié)束程序的執(zhí)行；否則，將圖像框中的圖片顯示為“黃燈”并啟動(dòng)計(jì)時(shí)器，3s之后，執(zhí)行計(jì)時(shí)器的Timer事件過程，在Timer事件過程中根據(jù)之前單擊的按鈕決定顯示紅燈還是綠燈，并使Timer1的狀態(tài)變?yōu)椴豢捎谩Ｒ驗(yàn)門imer事件過程無法直接獲取哪一個(gè)按鈕被單擊的信息，所以程序在通用欄中定義了一個(gè)的模塊級(jí)變量Flag，在Cmd_Click事件過程中執(zhí)行一句Flag=Index，F(xiàn)lag就起到了記憶并傳遞被單擊按鈕的索引的作用。