第6題： 
在考生文件夾下有一個工程文件sjt5.vbp，請在窗體上畫兩個框架，其名 稱分別為F1和F2，標題分別為"交通工具"和"到達目標"。在F1中畫兩 個單選按鈕，名稱分別為Op1和Op2，標題分別為"飛機"和"火車"。在 F2中畫兩個單選按鈕，名稱分別為Op3和Op4，標題分別為"廣州"和"昆 明"。畫一個文本框，其名稱為Text1。編寫適當事件過程。程序運行后， 選擇不同單選按鈕時產(chǎn)生的顯示結(jié)果見下表
 程序的運行情況如圖所示。存盤時，工程文件名為sjt5.vbp，窗體文件名 為sjt5.frm。
單選按鈕的Value屬性：
Value屬性用來表示單選按鈕的狀態(tài)，可以取True和False兩種值，取值為True時，單選按鈕是"打開"的，按鈕中心有一個圓點；取值為False時，單選按鈕是"關(guān)閉"的，按鈕是一個圓圈。
設(shè)置單選按鈕Value屬性的語法是：
單選按鈕名.Value = True（-1)或False（0)
由于Value屬性是單選按鈕的缺省屬性，因此在設(shè)置該屬性的值的時候，可以省略屬性名。
解題方法：
打開工程文件sjt5.vbp，點擊工具箱中的Frame控件圖標，然后在窗體上拖拉出兩個框架，通過屬性窗口分別設(shè)置其Name屬性為"F1"和"F2"，Caption屬性為"交通工具"和"到達目標"。
點擊工具箱中的OptionButton控件圖標，然后在F1中拖拉出兩個單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2"，Caption屬性為"飛機"和"火車"。
點擊工具箱中的OptionButton控件圖標，然后在F2中拖拉出兩個單選按鈕，通過屬性窗口分別設(shè)置其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，文本框內(nèi)容分別設(shè)置為"等級考試"、 "計算機"和空白。然后畫兩個單選按鈕，其名稱分別為Op1和Op2，標題 分別為"交換"和"連接"（如圖所示），編寫適當?shù)氖录绦?。程序運 行后，如果選中"交換"單選按鈕并單擊Text3文本框，則Text1文本框中 內(nèi)容與Text2文本框中內(nèi)容進行交換，并在Text3文本框中顯示"交換成 功"；如果選中"連接"單選按鈕并單擊 Text3 文本框，則把 Text1 和 Text2的內(nèi)容按Text1、Text2的順序連接起來，并在Text3文本框中顯示連 接后的內(nèi)容。存盤時，工程文件名為sjt6.vbp，窗體文件名為sjt6.frm。 
解題方法：
打開工程文件sjt6.vbp，點擊工具箱中的TextBox控件圖標，然后在窗體上拖拉出三個文本框，通過屬性窗口分別設(shè)置其Text屬性為"等級考試"、"計算機"和""。
點擊工具箱中的OptionButton控件圖標，然后在窗體中拖拉出兩個單選按鈕，通過屬性窗口分別設(shè)置其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

第8題：
在Form1的窗體上畫一個文本框，其名稱為Text1；再畫兩個命令按鈕，
其名稱分別為C1和C2，標題分別為"顯示"和"退出"，編寫適當?shù)氖录?過程。程序運行后，在窗體加載時使"退出"按鈕不可用，如果單擊"顯 示"按鈕，則在文本框中顯示"等級考試"，并使"退出"按鈕可用，此 時如果單擊"退出"按鈕，則結(jié)束程序，程序運行情況如圖所示。
  解題方法：
新建一個名為Form1的窗體，點擊工具箱中的CommandButton控件圖標，然后在窗體上拖拉出兩個命令按鈕，通過屬性窗口分別設(shè)置其Name屬性為"C1"和"C2",Caption屬性為"顯示"和"退出"。
點擊工具箱中的TextBox控件圖標，然后在窗體上拖拉出一個文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub C1_Click（)
C2.Enabled = True
Text1.Text = "等級考試"
End Sub
Private Sub C2_Click（)
End
End Sub

第9題：
在Form1的窗體上畫一個命令按鈕，其名稱為C1，標題為"顯示"；再畫
 一個文本框，其名稱為Text1，編寫適當?shù)氖录^程。程序運行后，在窗 體加載時使文本框不可見，如果雙擊窗體，則文本框出現(xiàn)；此時如果單擊 命令按鈕，則在文本框中顯示"等級考試"。程序運行情況如圖所示。
解題方法：
新建一個名為Form1的窗體，點擊工具箱中的CommandButton控件圖標，然后在窗體上拖拉出一個命令按鈕，通過屬性窗口設(shè)置其Name屬性為"C1"，Caption屬性為"顯示"。
點擊工具箱中的TextBox控件圖標，然后在窗體上拖拉出一個文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub C1_Click（)
Text1.Text = "等級考試"
End Sub
Private Sub Form_DblClick（)
Text1.Visible = True
End Sub
Private Sub Form_Load（)
Text1.Visible = False
End Sub

第10題：
在窗體上畫一個文本框，其名稱為Text1，Text屬性為空白。再畫一個命 令按鈕，其名稱為C1，Visible屬性為False。編寫適當?shù)氖录^程。程序 運行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。程序運行情況如圖 所示。
解題方法：
新建一個窗體，點擊工具箱中的TextBox控件圖標，然后在窗體上拖拉出一個文本框，通過屬性窗口設(shè)置其Text屬性為""。
點擊工具箱中的CommandButton控件圖標，然后在窗體上拖拉出一個命令按鈕，通過屬性窗口設(shè)置其Name屬性為"C1",Visible屬性為False。
打開代碼窗口，輸入如下的代碼：
Private Sub Text1_Change（)
C1.Visible = True
End Sub
按要求保存文件即完成本題。