2012年計算機二級VB上機試題及解題思路第十九套

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，請在窗體上畫兩個框架，其名稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達目標(biāo)”。在F1中畫兩個單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“汽車”和“輪船”。在F2中畫兩個單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“青島”和“大連”。畫一個文本框，其名稱為Text1。編寫適當(dāng)事件過程。程序運行后，選擇不同單選按鈕并單擊文本框后在文本框內(nèi)顯示結(jié)果見下表程序的運行情況如圖所示。

　　存盤時，工程文件名為sjt3.vbp，窗體文件名為sjt3.frm。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必須至少進行上面的一種操作。退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕的方式。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。

　　由于所提供的窗體控件不完整，需在該窗體上畫二個框架控件，通過其屬性窗口將名稱分別設(shè)為F1、F2，標(biāo)題(Caption屬性)分別設(shè)為“交通工具”和“到達目標(biāo)”。在F1框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Op1、Op2，標(biāo)題(Caption屬性)分別設(shè)為“汽車”和“輪船”。在F2框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Op3、Op4，標(biāo)題(Caption屬性)分別設(shè)為“青島”和“大連”。畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1。

　　單擊文本框控件(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Text1_Click()

　　If Op1 And Op3 Then

　　Text1.Text = "坐汽車去青島"

　　ElseIf Op1 And Op4 Then

　　Text1.Text = "坐汽車去大連"

　　ElseIf Op2 And Op3 Then

　　Text1.Text = "坐輪船去青島"

　　ElseIf Op2 And Op4 Then

　　Text1.Text = "坐輪船去大連"

　　End If

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運行。

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，請在窗體上畫二個文本框，其名稱分別為Text1、Text2，文本框內(nèi)容分別設(shè)置為“等級考試”、“計算機”。然后畫一個標(biāo)簽，其名稱為Lab1，高度為 375，寬度為2000。再畫兩個單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“交換”和“連接”，編寫適當(dāng)?shù)氖录�程序。程序運行后，如果選中“交換”單選按鈕并單擊窗體，則 Text1文本框中內(nèi)容與 Text2文本框中內(nèi)容進行交換，并在標(biāo)簽中顯示“交換成功”(如圖所示);如果選中“連接”單選按鈕并單擊窗體，則把Text1和Text2的內(nèi)容按Text1在前、Text2在后的順序連接起來并在標(biāo)簽中顯示。

　　存盤時，工程文件名為 sjt4.vbp，窗體文件名為sjt4.frm。

　　注意：

　　不得修改已經(jīng)給出的程序。在結(jié)束程序運行之前，必須選中一個單選按鈕，并單擊窗體。退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕，否則可能無成績。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。在該窗體上畫二個文本框，通過其屬性窗口將名稱分別設(shè)為Text1、Text2，文本框內(nèi)容(Text屬性)分別設(shè)置為“等級考試”、“計算機”。畫一個標(biāo)簽，通過其屬性窗口將名稱設(shè)為Lab1，高度(Height屬性)設(shè)為375，寬度(Width屬性)設(shè)為2000。再畫二個單選按鈕，通過其屬性窗口將名稱分別設(shè)為Op1、Op2，標(biāo)題內(nèi)容(Caption屬性)分別設(shè)置為“交換”、“連接”。

　　單擊窗體(即運行Click事件過程)，在Click事件過程中加入語句：

　　Private Sub Form_Click()

　　If Op1 Then

　　Lab1.Caption = Text1.Text

　　Text1.Text = Text2.Text

　　Text2.Text = Lab1.Caption

　　Lab1.Caption = "交換成功"

　　ElseIf Op2 Then

　　Lab1.Caption = Text1.Text & Text2.Text

　　End If

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運行。

　　相關(guān)推薦：

　　2012年計算機等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總