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