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

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

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，請在窗體上畫兩個框架，其名稱分別為F1和F2，標題分別為“交通工具”和“到達目標”。在F1中畫兩個單選按鈕，名稱分別為Op1和Op2，標題分別為“飛機”和“火車”。在F2中畫兩個單選按鈕，名稱分別為Op3和Op4，標題分別為“廣州”和“昆明”。畫一個文本框，其名稱為Text1。編寫適當事件過程。程序運行后，選擇不同單選按鈕并單擊窗體后在文本框中顯示結(jié)果見下表程序的運行情況如圖所示。存盤時，按原文件名存盤。

　　注意：

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

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，需在該窗體上畫二個框架控件，通過其屬性窗口將名稱分別設(shè)為F1、F2，標題(Caption屬性)分別設(shè)為“交通工具”和“到達目標”。在F1框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Op1、Op2，標題(Caption屬性)分別設(shè)為“飛機”和“火車”。在F2框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Op3、Op4，標題(Caption屬性)分別設(shè)為“廣州”和“昆明”。畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1。

　　由于所提供的窗體程序不完整，需添加事件過程。

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

　　Private Sub Form_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

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

　　(2)在考生文件夾下有一個工程文件sjt4.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)容。存盤時，按原文件名存盤。

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

　　解題思路：

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

　　由于所提供的窗體控件不完整，需在該窗體上畫三個文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1、Text2和Text3，標題(Caption屬性)分別設(shè)為“等級考試”、“計算機”和空白。再畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Op1、Op2，標題(Caption屬性)分別設(shè)為“交換”和“連接”。

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

　　Private Sub Text3_Click()

　　If Op1 Then

　　Text3.Text = Text1.Text

　　Text1.Text = Text2.Text

　　Text2.Text = Text3.Text

　　Text3.Text = "交換成功"

　　ElseIf Op2 Then

　　Text3.Text = Text1.Text & Text2.Text

　　End If

　　End Sub

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

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

　　相關(guān)推薦：

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

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

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