[其它考試]2009年3月20xx年9月計算機二級歷年vb考試真題及答案(文件)

　

【正文】 0 To 1 If Left((k), n) = Then k End If Next k End Sub 在調試時發現，如輸入 “陳 ”，可以正確刪除所有姓 “陳 ”的項目，但輸入 “劉 ”，則只刪除了 “劉邦 ”、 “劉備 ”２項，結果如圖２所示。 （ 3）軟件開發過程主要分為需求分析、設計、編碼與測試四個階段，其中【 3】需求分析 階段產生 “軟件需求規格說明書 ”。 （ 6）工程中有 Form1 和 Form2 兩個窗體。請填空。事件過程及 2 個函數過程如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z x = 3 y = 5 36 z = fy(y) Print fx(fx(x)), y End Sub Function fx(ByVal a As Integer) a = a + a fx = a End Function Function fy(ByRef a As Integer) a = a + a fy = a End Function 運行程序，并單擊命令按鈕，則窗體上顯 示的 2 個值依次是【 12】 12 和【 13】 10。 Private Sub Command1_Click() Text1 = Number = FreeFile Open c:\ For Input As Number Do While Not EOF(【 14】 Number) Line Input Number, s = +【 15】 s + Chr(13) + Chr(10) 37 Loop Close Number End Sub 參考答案 一．選擇題 二．填空題 Form2 ELSE END SELECT 10 S 38 公共基礎試題答案 選擇題 填空題 39 2022 年 3 月全國計算 機等級考試二級 VB 筆試試卷 一、選擇題（每題 2 分，共 70 分） （ 1）下列敘述中正確的是 ( ) A)對長度為 n 的有序鏈表進行查找，最壞情況下需要比較次數為 n B)對長度為 n 的有序鏈表進行對分查找，最壞情況下需要比較次數為（ n/2） C)對長度為 n 的有序鏈表進行對分查找，最壞情況下需要的比較次數（ log2n） D)對長度為 n 的有序鏈表進行對分查找，最壞情況下需要的比較次數（ nlog2n） （ 2）算法的時間復雜是指 ( ) A)算法的執行時間 B)算法所處理的數據量 C)算 法程序中的語句或指令條數 D)算法在執行過程中所需要的基本運算次數 （ 3）軟件按功能可以分為：應用軟件、系統軟件和支持軟件（或工具軟件），下面屬于系統軟件的是 ( ) A)編輯軟件 B)操作系統 C)教務管理系統 D）瀏覽器 （ 4）軟件（程序）調試的任務是 ( ) A)診斷和改正程序中的錯誤 B)進肯能多的發現程序中的錯誤 C)發現并改正程序中的所有錯誤 D)確定程序中錯誤的性質 （ 5）數據流程圖（ DFD 圖）是 ( ) A)軟件概要設計 的工具 B)軟件詳細設計的工具 40 C)機構化方法的需求分析工具 D)面向對象方法的需求分析工具 （ 6）軟件生命周期可以分為定義階段，開發階段和維護階段。 Next Print Next C） For j=1 To 5 For i=1 To 3 Print a（ j,i） 。 次 End If End Sub 希望程序運行時得到左圖所示的效果，即：輸入口令，單擊“確認口令”命令按鈕，若輸入的口令不是“ 123456”，則在窗體上顯 示輸入錯誤口令的次數。 次 改為 Print 口令輸入錯誤 +n+次 C）把 Print 口令輸入錯誤 amp。次 D）把 Dim n 改為 Static n （ 25）要求當鼠標在圖片框 P1 中移動時，立即在圖片框中顯示鼠標的位置坐標。 End If End Sub 但實際顯示的對話框中列出了 C:\下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。要求在程序運行時，在 Form1的文本框 Text1 中輸入口令并按回車鍵（回車鍵的 ASCII 碼為 13）后，隱藏 Form1，顯示 Form2?，F將元素 A,B,C,D,E,F,5,4,3,2,1依次入隊，然后再依次退隊，則元素退隊的順序為 【 1】 。 （ 5）有一個學生選課的關系，其中學生的關系模式為：學生（學號，姓名，班級，年齡），課程的關系模式為：課程（課號，課程名，學時），其中兩個關系模式的鍵 分別是學號和課號，則關系模式選課可定義為：選課（學號， 【 5】 ，成績）。以下是實現上述功能的程序，請填空。 Next End Sub Sub swap（ b（） As Integer） n=Ubound（ b） For i=1 To n / 2 t=b（ i）。 （ 9）在窗體上畫一個名稱為 Command1 的命令按鈕。 （ 7）在窗體上畫一個標簽、一個計時器和一個命令按鈕，其名稱分別為 Labl Timer1 和 Command1，如圖 1 所示。 （ 3）設二叉樹如下： 57 對該二叉樹進行后序遍歷的結果為 【 3】 。為此，某人在 Form1 窗體 53 文件中編寫如下程序： Private Sub Text1_KeyPress（ KeyAscii As Integer） If KeyAscii=13 Then If =Teacher Then =True Else =False End If End If End Sub 程序運行時發現剛輸入口令時就隱藏了 Form1，顯示了 Form2，程序需要修改。 Form2 中有菜單。 某人編寫下面的程序用此公式計算并輸出π的近似值： Private Sub Comand1_Click（） PI＝ 1 Sign＝ 1 n=20220 For k=3 To n 49 Sign=Sign/k PI=PI+Sign/k Next k Print PI*4 End Sub 運行后發現結果為 ，顯然，程序需要修改。 次 改為 Print 口令輸入錯誤amp。下面修改方案中正確的是 A）在 Dim n 語句的下面添加一句： n=O B）把 Print 口令輸入錯誤 amp。 Next Print Next 47 （ 24）窗體上有一個 Text1 文本框，一個 Command1 命令按鈕，并有以下程序 Private Sub Commandl_Click（） Dim n If 23456 Then n=n＋ 1 Print 口令輸入錯誤 amp。 Next Print Next 若要按圖 2 所示的規律繼續輸出數據，則接在上述程序段后面的程序段應該是 A） For i=1 To 5 For j=1 To 3 46 Print a（ j,i） 。程序運行后，如果單擊命令按鈕，則可打開磁盤文件 c:\，并將文件中的內容（多行文本）顯示在文本框中。 * r * r End If End Sub （ 7）設有整型變量 s，取值范圍為 0～ 100，表示學生的成績，有如下程序段： If s = 90 Then Level = A ElseIf s = 75 Then Level = B 35 ElseIf s = 60 Then Level = C Else Level = D End If 下面用 Select Case 結構改寫上述程序，使兩段程序所實現的功能完全相同，請填空。程序運行時，在 Form1 中名稱為 Text1 的文本框中輸入一個數值（圓的半徑），然后單擊命 令按鈕 “計算并顯示 ”（其名稱為 Command1），則顯示 Form2 窗體，且根據輸入的圓的半徑計算圓的面積，并在 Form2 的窗體上顯示出來，如圖 2 所示。 34 （ 5）人員基本信息一般包括：身份證號，姓名，性別，年齡等。正確的修改方案是把 For k=0 to 改為 A） For k = 1 To 0 Step 1 二、填空題（每空 2 分，共 30 分） （ 1）某二叉樹有 5 個度為 2 的結點以及 3 個度為 1 的結點，則該二叉樹中共有 【 1】14 個結點。為得到與題目要求相符的結果，下面修改方案中正確的是 B）把 For k = To Step 100 和 Next k 兩行刪除 （ 34）下列有關文件的敘述中，正確的是 C）隨機文件中，每個記錄的長度是固定的 33 （ 35）窗體如圖 1 所示。 y End Sub B） 100 120 31 （ 29）設 a， b 都是自然數，為求 a 除以 b 的余數，默認編寫了以下函數： Function fun(a As Integer, b As Integer) While a b a = a b Wend fun = a End Function 在調試時發現函數是錯誤的，為使函數能產生正確的返回值，應做的修改是 D）把 While ab 改為 While a=b （ 30）下列關于通用對話框 CommonDialog1 的敘述中，錯誤的是 A）只要在 “打開 ”對話框中選擇了文件，并單擊 “打開 ”按鈕，就可以將選中的文件打開 （ 31）在利用菜單編輯器設計菜單時，為了把組合鍵 “Alt+X”設置為 “退出 (X)”菜單項的訪問鍵，可以將該菜單項的標題設置為 B）退出 (amp。 39。amp。 Next n Print Next m End Sub B） 2 0 4 0 4 0 4 0 6 （ 25）設有如下函數過程： Function fun(a As Integer, b As Integer) Dim c As Integer If a b Then c = a: a = b: b = c End If c = 0 Do c = c + a Loop Until c Mod b = 0 fun = c End Function 若調用函數 fun 時的實際參數都是自然數，則函數返回的是 29 B） a、 b 的最小公倍數 （ 26）窗體上有 1 個名稱為 Text1 的文本框； 1 個名稱為 Timer1 的計時器控件，其Interval 屬性為 5000， Enabled 屬性值是 True。 D .三角形 答案 C R,S,T 如下： R A B C a 1 2 b 2 1 c 3 1 S A B C d 3 2 T A B C a 1 2 b 2 1 c 3 1 d 3 2 其中關系 T 由關系 R 和 S 通過某種操作得到，該操作稱為（ ）。 儲空間 23 作單元數 答案 A 解析 :算法