第5題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有兩個(gè)圖片框，名稱為
P1、P2，分別用來表示信號燈和汽車，其中在 P1 中輪流裝入"黃燈.ico"、 "紅燈.ico"、"綠燈.ico"文件來實(shí)現(xiàn)信號燈的切換；還有兩個(gè)計(jì)時(shí)器Timer1 和Timer2，Timer1用于變換信號燈，黃燈1秒，紅燈2秒，綠燈3秒；Timer2用于 控制汽車向左移動。運(yùn)行時(shí)，信號燈不斷變換，單擊"開車"按鈕后。 汽車開 始移動，如果移動到信號燈前或信號燈下，遇到紅燈或黃燈，則停止移動， 當(dāng) 變?yōu)榫G燈后再繼續(xù)移動。在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，
要求閱讀程序并去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其實(shí) 現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。 最后把 修改后的文件以原文件名存盤。
本題中涉及三個(gè)事件
點(diǎn)擊開車按鈕C1_Click,汽車開始啟動,由題面知道汽車的開動由Timer2控制,那么這里必須啟動Timer2,所以填入Timer2.Enable=True
紅綠燈由Timer1控制,在Timer1的事件Timer1_Timer中根據(jù)時(shí)間a來更換P1.Picture的圖像,達(dá)到紅綠燈轉(zhuǎn)換的效果,如果看到其他燈已經(jīng)有了,這里填入"綠燈.ioc"是簡單的選擇,仔細(xì)分析要在綠燈有三秒,也必須這樣填寫
最后是汽車的移動,已知是由Timer2操作的,在它的事件Timer2_Timer中要移動汽車,使用了picture的Move方法,平行向右移動,改變Left值,這里填入picture1.Left即可實(shí)現(xiàn)。
其他關(guān)于Timer控件以及picture控件的屬性方法事件請自己參閱有關(guān)資料。
第6題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，請?jiān)诖绑w上畫兩個(gè)框架，其名 稱分別為F1和F2，標(biāo)題分別為"交通工具"和"到達(dá)目標(biāo)"。在F1中畫兩 個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為"飛機(jī)"和"火車"。在 F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為"廣州"和"昆 明"。畫一個(gè)文本框，其名稱為Text1。編寫適當(dāng)事件過程。程序運(yùn)行后， 選擇不同單選按鈕時(shí)產(chǎn)生的顯示結(jié)果見下表
程序的運(yùn)行情況如圖所示。存盤時(shí)，工程文件名為sjt5.vbp，窗體文件名 為sjt5.frm。
單選按鈕的Value屬性：
Value屬性用來表示單選按鈕的狀態(tài)，可以取True和False兩種值，取值為True時(shí)，單選按鈕是"打開"的，按鈕中心有一個(gè)圓點(diǎn)；取值為False時(shí)，單選按鈕是"關(guān)閉"的，按鈕是一個(gè)圓圈。
設(shè)置單選按鈕Value屬性的語法是：
單選按鈕名.Value = True（-1)或False（0)
由于Value屬性是單選按鈕的缺省屬性，因此在設(shè)置該屬性的值的時(shí)候，可以省略屬性名。
解題方法：
打開工程文件sjt5.vbp，點(diǎn)擊工具箱中的Frame控件圖標(biāo)，然后在窗體上拖拉出兩個(gè)框架，通過屬性窗口分別設(shè)置其Name屬性為"F1"和"F2"，Caption屬性為"交通工具"和"到達(dá)目標(biāo)"。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在F1中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2"，Caption屬性為"飛機(jī)"和"火車"。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在F2中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op3"和"Op4"，Caption屬性為"廣州"和"昆明"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub Form_Click（)
If Op1.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐飛機(jī)去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐飛機(jī)去昆明"
End If
ElseIf Op2.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐火車去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐火車去昆明"
End If
End If
End Sub
第7題：
在考生文件夾下有一個(gè)工程文件sjt6.vbp，請?jiān)诖绑w上畫三個(gè)文本框，其 名稱分別為Text1、Text2和Text3，文本框內(nèi)容分別設(shè)置為"等級考試"、 "計(jì)算機(jī)"和空白。然后畫兩個(gè)單選按鈕，其名稱分別為Op1和Op2，標(biāo)題 分別為"交換"和"連接"（如圖所示），編寫適當(dāng)?shù)氖录绦�。程序運(yùn) 行后，如果選中"交換"單選按鈕并單擊Text3文本框，則Text1文本框中 內(nèi)容與Text2文本框中內(nèi)容進(jìn)行交換，并在Text3文本框中顯示"交換成 功"；如果選中"連接"單選按鈕并單擊 Text3 文本框，則把 Text1 和 Text2的內(nèi)容按Text1、Text2的順序連接起來，并在Text3文本框中顯示連 接后的內(nèi)容。存盤時(shí)，工程文件名為sjt6.vbp，窗體文件名為sjt6.frm。
解題方法：
打開工程文件sjt6.vbp，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出三個(gè)文本框，通過屬性窗口分別設(shè)置其Text屬性為"等級考試"、"計(jì)算機(jī)"和""。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在窗體中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2"，Caption屬性為"交換"和"連接"。
打開代碼窗口，輸入如下的代碼：
Private Sub Text3_Click()
If Op1.Value Then
Text1.Text = "計(jì)算機(jī)"
Text2.Text = "等級考試"
Text3.Text = "交換成功"
Else
Text3.Text = Text1.Text + Text2.Text
End If
End Sub
