vb套題——數(shù)組+通用過程

1、第16套：1. 基本操作（2小題，每小題15分，共計30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* 請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在Form1的窗體上畫一個名稱為Text1的文本框，然后建立一個主菜單，標(biāo) 題為“操作”，名稱為Op，該菜單有兩個子菜單，其標(biāo)題分別為“顯示” 和“退出”，其名稱分別為 Dis和Exit，編寫適當(dāng)?shù)氖录^程。程序運行 后，如果單擊“操作”菜單中的“顯示”命令，則在文本框中顯示“等級 考試”；如果單擊“退出”命令，則結(jié)束程序運行。程序的運行情況如圖 所示。 *注意： 存盤時必須存放在考生文件夾下，工程

2、文件名為sjt1.vbp，窗體文件 名為sjt1.frm。解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。 在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1。通過菜單編輯器建立一個主菜單，在菜單編輯器的標(biāo)題處輸入“操作”，名稱處輸入Op，在該菜單下有二個子菜單，在菜單編輯器的標(biāo)題處分別輸入“顯示”、“退出”，名稱處分別輸入Dis和Exit。 單擊“操作”菜單中的“顯示”命令（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Dis_Click() Text1.Text = 等級考試End Sub 單擊“操作”菜單中的“退出

3、”命令（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Exit_Click() EndEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。* （2）在Form1 的窗體上畫一個列表框，名稱為L1，通過屬性窗口向列表框中添 加四個項目，分別為“AAAA”、“BBBB”、“CCCC”和“DDDD”，編寫適 當(dāng)?shù)氖录^程。程序運行后，如果單擊列表框中的某一項，則該項就從列 表框中消失。程序的運行情況如

4、圖所示。 *注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件 名為sjt2.frm。解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。 在該窗體上畫一個列表框控件，通過其屬性窗口將名稱設(shè)為L1，向列表框中添加項目（List屬性），添加的項目分別為“AAAA”、“BBBB”、“CCCC”、“DDDD”，每個項目為一行。 單擊列表框某一項（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub L1_Click() L1.RemoveItem L1.ListIndexEnd Sub參考文件：c:wexam26990001

5、hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運行。2. 簡單應(yīng)用（2小題，每題20分，計40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* （1）在考生文件夾下有一個工程文件sjt3.vbp，請在窗體上畫兩個框架，其名 稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達目標(biāo)”。在F1中畫兩 個單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“飛機”和“火車”。在 F2中畫兩個單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“廣州”和“昆 明”。然后畫一個命令按鈕，

6、其名稱為C1，標(biāo)題為“確定”。再畫一個文 本框，其名稱為 Text1。編寫適當(dāng)事件過程。程序運行后，選擇不同單選 按鈕并單擊命令按鈕后在文本框中顯示的結(jié)果見下表 程序的運行情況如圖所示。存盤時，工程文件名為sjt3.vbp，窗體文件名 為sjt3.frm。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必 須至少進行上面的一種操作。退出程序時必須通過單擊窗體右上角的 關(guān)閉按鈕。解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。 由于所提供的窗體控件不完整，需在該窗體上畫二個框架控件，通過其屬性

7、窗口將名稱分別設(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è)為C1，標(biāo)題（Caption屬性）設(shè)為“確定”。 單擊“確定”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub C1_Click() If Op1 And Op3

8、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 IfEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運行。* （2）在考生文件夾下有一個工程文件sj

9、t4.vbp，請在窗體上畫三個文本框，其 名稱分別為Text1、Text2和Text3，文本框內(nèi)容分別設(shè)置為“等級考試”、 “計算機”和空白。然后畫兩個單選按鈕，其名稱分別為Op1和Op2，標(biāo)題 分別為“交換”和“連接”，編寫適當(dāng)?shù)氖录绦?。要求在程序運行時， 先單擊“交換”單選按鈕，使Text1文本框中內(nèi)容與Text2文本框中內(nèi)容進 行交換，并使“交換”單選按鈕消失；然后單擊“連接”單選按鈕，則把 交換后的Text1和Text2的內(nèi)容以Text1在前，Text2在后的順序連接起來， 并在 Text3文本框中顯示連接后的內(nèi)容。存盤時，工程文件名為sjt4.vbp， 窗體文件名為sjt4.frm

10、。 注意： 不得修改已經(jīng)給出的程序。在結(jié)束程序運行之前，必須先單擊“交換” 單選按鈕，后單擊“連接”單選按鈕。退出程序時必須通過單擊窗體右 上角的關(guān)閉按鈕，否則可能無成績。解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。 由于所提供的窗體控件不完整，需在該窗體上畫三個文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1、Text2、Text3，文本框內(nèi)容（Text屬性）分別設(shè)為“等級考試”、“計算機”和空白。畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Op1、Op2，標(biāo)題（Caption屬性）分別為“交換”和

11、“連接”。 由于所提供的窗體程序不完整，需添加事件過程。 單擊“交換”單選按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Op1_Click() a$ = Text1.Text Text1.Text = Text2.Text Text2.Text = a$ Op1.Visible = FalseEnd Sub 單擊“連接”單選按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Op2_Click() Text3.Text = Text1.Text & Text2.TextEnd Sub參考文件：c:wexam2

12、6990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw、out4.dat請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。*3. 綜合應(yīng)用（1小題，計30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER% 在考生文件夾下有一個工程文件sjt5.vbp，請先裝入該工程文件，然后完成 以下操作： 在名稱為Form1 的窗體上畫三個命令按鈕，其名稱分別為C1、C2和C3，標(biāo)題 分別為“讀入數(shù)據(jù)”、“計算”和“存盤”（如圖所示）。程序運行后，如 果單擊“讀入數(shù)據(jù)”按鈕，則利用題目中提供的ReadData1、ReadData2過程

13、讀入datain1.txt和datain2.txt文件中的各20個整數(shù)，分別放入兩個數(shù)組 Arr1和Arr2中；如果單擊“計算”按鈕，則把兩個數(shù)組中對應(yīng)下標(biāo)的元素相 加，其結(jié)果放入第三個數(shù)組中（即：第一個數(shù)組的第 n個元素與第二個數(shù)組 的第 n 個元素相加，其結(jié)果作為第三個數(shù)組的第n個元素。這里的n為1、2、 . 、20），最后計算第三個數(shù)組各元素之和，并把所求得的和在窗體上顯 示出來；如果單擊“存盤”按鈕，則調(diào)用題目中給出的WriteDate 過程將計 算結(jié)果存入考生文件夾下的dataout.txt 文件中。 注意： 請仔細閱讀已有程序?？忌坏眯薷拇绑w文件中已經(jīng)存在的程序，必須把 求得的結(jié)

14、果用“存盤”按鈕存入考生文件夾下的dataout.txt 文件中，否 則沒有成績。最后把修改后的文件以原來的文件名存盤。解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。 由于所提供的窗體程序不完整，根據(jù)題意在該窗體上畫三個命令按鈕，通過其屬性窗口將名稱分別設(shè)為C1、C2和C3，標(biāo)題（Caption屬性）分別設(shè)為“讀入數(shù)據(jù)”、“計算”和“存盤”。 “讀入數(shù)據(jù)”命令按鈕（需編寫的Click事件過程），具體語句如下：Private Sub C1_Click() ReadData1 /讀datain1.txt數(shù)據(jù) Re

15、adData2 /讀datain2.txt數(shù)據(jù)End Sub “計算”命令按鈕（需編寫的Click事件過程），具體語句如下：Private Sub C2_Click() Dim Arr3(20) As Integer /定義數(shù)組 Sum = 0 /將求和變量的值置為0 For i = 1 To 20 /120的循環(huán) Arr3(i) = Arr1(i) + Arr2(i) /對應(yīng)數(shù)組求和 Sum = Sum + Arr3(i) /累計求和 Next i Print Sum = ; Sum /顯示求和的結(jié)果End Sub “存盤”命令按鈕（需編寫的Click事件過程），具體語句如下：Private

16、 Sub C3_Click() WriteData DataOut.txt, Sum /將求和結(jié)果寫入DateOut.txt文件中End Sub 在通用部分，定義求和全局變量Dim Sum As Integer /定義一個求和的全局變量參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、DataOut.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運行。第18套：1. 基本操作（2小題，每小題15分，共計30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* 請根據(jù)以下各小題的要求設(shè)計V

17、isual Basic應(yīng)用程序（包括界面和代碼）。 （1）在 Form1的窗體上畫一個名稱為 Text1的文本框，然后建立一個主菜單， 標(biāo)題為“操作”，名稱為Op，該菜單有兩個子菜單，其標(biāo)題分別為“顯示 ”和“清除”，名稱分別為 Dis和Clea，編寫適當(dāng)?shù)氖录^程。程序運行 后，如果單擊“操作”菜單中的“顯示”命令，則在文本框顯示“等級考 試”；如果單擊“清除”命令，則清除文本框中顯示的內(nèi)容。程序的運行 情況如圖所示。 *注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件 名為sjt1.frm。解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。

18、在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1。通過菜單編輯器建立一個主菜單，在菜單編輯器的標(biāo)題處輸入“操作”，名稱處輸入Op，在該菜單下有二個子菜單，在菜單編輯器的標(biāo)題處分別輸入“顯示”和“清除”，名稱處分別輸入Dis和Clea。 單擊“操作”菜單中的“顯示”命令（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Dis_Click() Text1.Text = 等級考試End Sub 單擊“操作”菜單中的“清除”命令（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Clea_Click() Text1

19、.Text = End Sub參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。* （2）在Form1 的窗體上畫一個文本框，名稱為 Text1，Text屬性為空白。再畫 一個列表框，名稱為L1，通過屬性窗口向列表框中添加 4個項目，分別為 “AAAA”、“BBBB”、“CCCC”和“DDDD”，編寫適當(dāng)?shù)氖录^程。程序 運行后，在文本框中輸入一個字符串，如果雙擊列表框中的任一項，則把 文本框中的字符串添加到列表框中。程序的運行情況如圖所示。 *

20、注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件 名為sjt2.frm解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。 在該窗體上畫一個文本框，通過其屬性窗口將名稱設(shè)為Text1，文本框中的初始內(nèi)容（Text屬性）設(shè)為空白，即沒有任何內(nèi)容。畫一個列表框，通過其屬性窗口將名稱設(shè)為L1，向列表框中添加項目（List屬性），添加的項目分別為“AAAA”、“BBBB”、“CCCC”和“DDDD”，每個項目為一行。 雙擊列表框中的任一項（即運行DblClick事件過程），在DblClick事件過程中加入語句：L1.AddItem Text1.Text。參

21、考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運行。2. 簡單應(yīng)用（2小題，每題20分，計40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* （1）在考生文件夾下有一個工程文件sjt3.vbp，請在窗體上畫兩個框架，其名 稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達目標(biāo)”。在F1中畫兩 個單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“飛機”和“火車”。在 F2中畫兩個單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“廣

22、州”和“昆 明”。畫一個標(biāo)簽，其名稱為Lab1，寬度為3000，高度為 375。編寫適當(dāng) 事件過程。程序運行后，選擇不同單選按鈕并單擊窗體后在標(biāo)簽上顯示的 結(jié)果見下表 程序的運行情況如圖所示。存盤時，工程文件名為sjt3.vbp，窗體文件名 為sjt3.frm。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必 須至少進行上面的一種操作。退出程序時必須通過單擊窗體右上角的 關(guān)閉按鈕。解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。 由于所提供的窗體控件不完整，需在該窗體上畫二個框架控件，通過

23、其屬性窗口將名稱分別設(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è)為“廣州”和“昆明”。畫一個標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為Lab1。 由于所提供的窗體程序不完整，需添加事件過程。 單擊單選按鈕（即運行Click事件過程），在每個單選按鈕Click事件過程中加入語句：Fun 標(biāo)簽顯示的通用過程Fun()，在該過程中加入語句：

24、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 IfEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt請把這些文件復(fù)制到c:wexam26990001

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

26、選按鈕并單擊“確定”按鈕 后，則把交換后的Text1和Text2的內(nèi)容連接起來，并在標(biāo)簽處顯示連接后 的內(nèi)容。存盤時，工程文件名為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è)為“等級考試”

27、和“計算機”。畫一個標(biāo)簽，通過其屬性窗口將名稱設(shè)為Lab1，標(biāo)簽的高度（Height屬性）設(shè)為375，寬度（Width屬性）設(shè)為2000。畫兩個單選按鈕，通過其屬性窗口將名稱分別設(shè)為Op1和Op2，標(biāo)題（Caption屬性）分別設(shè)為“交換”和“連接”，再畫一個命令按鈕，通過其屬性窗口將名稱設(shè)為C1，標(biāo)題（Caption屬性）設(shè)為“確定”。 選擇相關(guān)單選按鈕，然后單擊“確定”按鈕（即運行其Click事件過程），在該Click事件過程中加入語句：Private Sub C1_Click() If Op1 Then Lab1.Caption = Text1.Text Text1.Text = Tex

28、t2.Text Text2.Text = Lab1.Caption Lab1.Caption = 交換成功 ElseIf Op2 Then Lab1.Caption = Text1.Text & Text2.Text End IfEnd Sub 另外特別需要注意的是在結(jié)束程序時必須用窗體右上角的關(guān)閉按鈕來結(jié)束程序，否則該部分將沒有成績。參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。*3. 綜合應(yīng)用（1小題，計30分） 注意：

29、下面出現(xiàn)的“考生文件夾”均為%USER% 在考生文件夾下有一個工程文件sjt5.vbp，請先裝入該工程文件，然后完成 以下操作： 在名稱為Form1 的窗體上畫三個命令按鈕，其名稱分別為C1、C2和C3，標(biāo)題 分別為“讀入數(shù)據(jù)”、“計算”和“存盤”（如圖所示）。程序運行后，如 果單擊“讀入數(shù)據(jù)”按鈕，則調(diào)用題目已提供的ReadData1和ReadData2過程 讀入datain1.txt和datain2.txt文件中的各20個整數(shù)，分別放入Arr1和Arr2 兩個數(shù)組中；如果單擊“計算”按鈕，則把兩個數(shù)組中對應(yīng)下標(biāo)的元素除以 10并截尾取整后相乘，其結(jié)果放入第三個數(shù)組中（即：把第一個數(shù)組的第

30、n 個元素除以10截尾取整，再把第二個數(shù)組的第n個元素除以10截尾取整，兩 者相乘后的結(jié)果作為第三個數(shù)組的第 n個元素。這里的 n為1、2、.、20） ，最后計算第三個數(shù)組各元素之和，并把所求得的和在窗體上顯示出來；如 果單擊“存盤”按鈕，則調(diào)用題目中給出的 WriteData過程將所求得的和存 入考生文件夾的dataout.txt 文件中。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序，必須把求得的結(jié)果用“存盤” 按鈕存入考生文件夾下的dataout.txt文件中，否則沒有成績。最后把修 改后的文件以原來的文件名存盤。解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程

31、文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。 由于所提供的窗體控件不完整，在窗體上畫三個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為C1、C2、C3，標(biāo)題（Caption屬性）分別設(shè)為“讀入數(shù)據(jù)”、“計算”和“存盤”。 由于所提供的窗體程序不完整，需添加事件過程。 單擊“讀入數(shù)據(jù)”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub C1_Click() ReadData1 ReadData2End Sub 單擊“計算”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub C2_Click() Dim Ar

32、r3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / 10) * Int(Arr2(i) / 10) Sum = Sum + Arr3(i) Next i Print Sum = ; SumEnd Sub 單擊“存盤”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub C3_Click() WriteData DataOut.txt, SumEnd Sub 變量Sum存放和的結(jié)果，它在幾個事件過程中都要使用，所以定義成全局變量，即在聲明部分加入語句：Dim Sum As Int

33、eger參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、DataOut.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運行。第19套：1. 基本操作（2小題，每小題15分，共計30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* 請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在名稱為Form1的窗體上建立一個主菜單， 標(biāo)題為“操作”，名稱為Op， 該菜單有兩個子菜單，其標(biāo)題分別為“顯示”和“清除”，其名稱分別為 Dis和Clea， 編寫適當(dāng)?shù)?/p>

34、事件過程。程序運行后，如果單擊“操作”菜單 中的“顯示”命令，則在窗體上顯示“等級考試”；如果單擊“清除”命 令，則清除窗體上顯示的內(nèi)容。程序的運行情況如圖所示。 *注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件 名為sjt1.frm。解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。 通過菜單編輯器建立一個主菜單，在菜單編輯器的標(biāo)題處輸入“操作”，名稱處輸入Op，在該菜單下有二個子菜單，在菜單編輯器的標(biāo)題處分別輸入“顯示”和“清除”，名稱處分別輸入Dis和Clea。 單擊“操作”菜單中的“顯示”命令（即運行Click事件過程），在該Click

35、事件過程中加入語句：Private Sub Dis_Click() Print 等級考試End Sub 單擊“操作”菜單中的“清除”命令（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Clea_Click() ClsEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。* （2）在名稱為Form1 的窗體上畫一個標(biāo)簽，其名稱為Lab1；再畫一個列表框， 其名稱為L1，通過屬性窗口向列表框中添加若干

36、個項目，每個項目的具體 內(nèi)容不限，編寫適當(dāng)?shù)氖录^程。程序運行后，如果雙擊列表框中的任意 一項，則把列表中的項目數(shù)在標(biāo)簽中顯示出來。程序運行情況如圖所示。 不準(zhǔn)使用任何變量。 *注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件 名為sjt2.frm。解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。 在該窗體上畫一個標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為Lab1。畫一個列表框控件，通過其屬性窗口將名稱設(shè)為L1，向列表框中添加項目（List屬性），添加的項目具體內(nèi)容不限，每個項目為一行。 雙擊列表框（即運行DblClick事件過程），在該DblClic

37、k事件過程中加入語句：Private Sub L1_DblClick() Lab1.Caption = L1.ListCountEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。2. 簡單應(yīng)用（2小題，每題20分，計40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* （1）在考生文件夾下有一個工程文件sjt3.vbp，請在窗體上畫兩個框架，其名 稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達目標(biāo)”。在F

38、1中畫兩 個單選按鈕，名稱分別為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)，打開考生文件夾下需編輯的工

39、程文件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事件過

40、程中加入語句：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 IfEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt請把這些文件復(fù)制到c:wexam2

41、6990001中，然后打開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和Text

42、2的內(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)簽，通過其屬性窗口將名稱

43、設(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.Captio

44、n = Text1.Text & Text2.Text End IfEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。*3. 綜合應(yīng)用（1小題，計30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER% 在考生文件夾下有一個工程文件sjt5.vbp，請先裝入該工程文件，然后完成 以下操作： 在名稱為Form1 的窗體上畫三個命令按鈕，其名稱分別為C1、C2和C3，標(biāo)題 分別為“讀入數(shù)據(jù)”、“計算”和“存盤”（如圖所

45、示）。程序運行后，如 果單擊“讀入數(shù)據(jù)”按鈕，則調(diào)用題目已提供的ReadData1和ReadData2過程 讀入datain1.txt和datain2.txt文件中的各20個整數(shù)，分別放入Arr1和Arr2 兩個數(shù)組中； 如果單擊“計算”按鈕， 則把兩個數(shù)組中對應(yīng)下標(biāo)的元素相 除并截尾取整后，結(jié)果放入第三個數(shù)組中（即：把第一個數(shù)組的第 n個元素 除以第二個數(shù)組的第n個元素，結(jié)果截尾取整后作為第三個數(shù)組的第n個元素。 這里的n為1、2、.、20），最后計算第三個數(shù)組各元素之和，并把所求得 的和在窗體上顯示出來；如果單擊“存盤”按鈕，則調(diào)用題目中給出的 WriteData過程將所求得的和存入考生文

46、件夾下的dataout.txt文件中。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序，必須把求得的結(jié)果用“存盤” 按鈕存入考生文件夾下的dataout.txt文件中，否則沒有成績。最后把修 改后的文件以原來的文件名存盤。解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。 由于所提供的窗體控件不完整，需在該窗體上畫三個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為C1、C2和C3，標(biāo)題（Caption屬性）分別設(shè)為“讀入數(shù)據(jù)”、“計算”和“存盤”。 由于所提供的窗體程序不完整，需添加事件過程。 單擊“讀入數(shù)據(jù)”按鈕（即

47、運行Click事件過程），在該Click事件過程中加入語句：Private Sub C1_Click() ReadData1 ReadData2End Sub 單擊“計算”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i) Sum = Sum + Arr3(i) Next i Print Sum = ; SumEnd Sub 單擊“存盤”按鈕（即運行Click事件過程），在該Clic