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

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

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

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