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

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

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

　　注意：

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

　　解題思路：

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

　　由于所提供的窗體控件不完整，需在該窗體上畫二個框架控件，通過其屬性窗口將名稱分別設為F1、F2，

　　標題(Caption屬性)分別設為“交通工具”和“到達目標”。在F1框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設為Op1、Op2，標題(Caption屬性)分別設為“飛機”和“火車”。在F2框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設為Op3、Op4，標題(Caption屬性)分別設為“廣州”和“昆明”。畫一個標簽控件，通過其屬性窗口將名稱設為Lab1。

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

　　單擊單選按鈕(即運行Click事件過程)，在每個單選按鈕Click事件過程中加入語句：Fun標簽顯示的通用過程Fun()，在該過程中加入語句：

　　Private Sub Fun()

　　If Op1 And Op3 Then

　　Lab1.Caption = "坐飛機去廣州"

　　ElseIf Op1 And Op4 Then

　　Lab1.Caption = "坐飛機去昆明"

　　ElseIf Op2 And Op3 Then

　　Lab1.Caption = "坐火車去廣州"

　　ElseIf Op2 And Op4 Then

　　Lab1.Caption = "坐火車去昆明"

　　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，文本框內容分別設置為“等級考試”、“計算機”。然后畫一個標簽，其名稱為 Lab1，高度為375，寬度為2000。再畫兩個單選按鈕，名稱分別為Op1和Op2，標題分別為“交換”和“連接”，最后再畫一個命令按鈕，其名稱為C1，標題為“確定”，編寫適當?shù)氖录�程序。程序運行后，如果選中“交換”單選按鈕并單擊“確定”按鈕，則Text1文本框中內容與Text2文本框中內容進行交換，并在標簽處顯示“交換成功”(如圖所示);如果選中“連接”單選按鈕并單擊“確定”按鈕后，則把交換后的Text1和Text2的內容連接起來，并在標簽處顯示連接后的內容。存盤時，工程文件名為sjt4.vbp，窗體文件名為sjt4.frm。

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

　　解題思路：

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

　　選擇相關單選按鈕，然后單擊“確定”按鈕(即運行其Click事件過程)，在該Click事件過程中加入語句：

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

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

　　相關推薦：

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

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

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