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

　　

【正文】 (mystr,k,l) n=【 15】 Mid$(ch,n)=cl Next k Mystr=ch End Sub 2022 年 4 月二級 VB 參考答 案 1 選擇題： 21 15： DDCDC 610： ABAAC 1115： DBBCA 1620： DBABD 2125： ADBDC 2630： ADBCC 3135： AABCA 2 填空題 19 白盒 順序結構 數據庫管理系統 菱形 100 KeyAscii 1 Input 1 ch 1 Len(mystr) 1 1 1 a(k) 22 2022 年 9 月全國計算機等級考試二級 VB 筆試試題及答案 一、選擇題（每小題 2 分，共 70 分） 一、選擇題 1．下列數據結構中，屬于非線性結構的是（ ）。 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 通過某種操作得到，該操作稱為（ ）。amp。 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。正確的修改方案是把 For k=0 to 改為 A） For k = 1 To 0 Step 1 二、填空題（每空 2 分，共 30 分） （ 1）某二叉樹有 5 個度為 2 的結點以及 3 個度為 1 的結點，則該二叉樹中共有 【 1】14 個結點。程序運行時，在 Form1 中名稱為 Text1 的文本框中輸入一個數值（圓的半徑），然后單擊命 令按鈕 “計算并顯示 ”（其名稱為 Command1），則顯示 Form2 窗體，且根據輸入的圓的半徑計算圓的面積，并在 Form2 的窗體上顯示出來，如圖 2 所示。程序運行后，如果單擊命令按鈕，則可打開磁盤文件 c:\，并將文件中的內容（多行文本）顯示在文本框中。 Next Print Next 47 （ 24）窗體上有一個 Text1 文本框，一個 Command1 命令按鈕，并有以下程序 Private Sub Commandl_Click（） Dim n If 23456 Then n=n＋ 1 Print 口令輸入錯誤 amp。 次 改為 Print 口令輸入錯誤amp。 Form2 中有菜單。 （ 3）設二叉樹如下： 57 對該二叉樹進行后序遍歷的結果為 【 3】 。 （ 9）在窗體上畫一個名稱為 Command1 的命令按鈕。以下是實現上述功能的程序，請填空。現將元素 A,B,C,D,E,F,5,4,3,2,1依次入隊，然后再依次退隊，則元素退隊的順序為 【 1】 。 End If End Sub 但實際顯示的對話框中列出了 C:\下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。 次 改為 Print 口令輸入錯誤 +n+次 C）把 Print 口令輸入錯誤 amp。 Next Print Next C） For j=1 To 5 For i=1 To 3 Print a（ j,i） 。事件過程及 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。 （ 6）工程中有 Form1 和 Form2 兩個窗體。若編寫以下程序來實現此功能： Private Sub Command1_Click() Dim n%, k% n = Len() For k = 0 To 1 If Left((k), n) = Then k End If Next k End Sub 在調試時發現，如輸入 “陳 ”，可以正確刪除所有姓 “陳 ”的項目，但輸入 “劉 ”，則只刪除了 “劉邦 ”、 “劉備 ”２項，結果如圖２所示。HC000amp。HFFamp。 答案 A 該圖是 ( ). 圖 B. PAD 圖 C. 程序流程圖 圖 答案 C （ ）。請填空。請填空。其中表示實體聯系的是 【 5 】框。 Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr amp。下面屬于應用軟件的是 C A）編譯軟件 B）操作系統 C）教務管理系統 D）匯編程序 （ 6）下面敘述中錯誤的是 C A）軟件測試的目的是發現錯誤并改正錯誤 B）對被調試的程序進行 ―錯誤定位 ‖是程序調試的必要步驟 2 C）程序調試通常也稱為 Debug D）軟件測試應嚴格執行測試計劃，排除測試的隨意性 （ 7）耦合性和內聚性是對模塊獨立性度量的兩個標準。 （ 1）假設一個長度為 50 的數組（數組元素的下標從 0 到 49）作為棧的存儲空間，棧底指針 bottom指向棧底元素，棧頂指針 top指向棧頂元素，如果 bottom=49，top=30（數組下標），則棧中具有 【 1】 個元素。請填空完成下面的屬性設置和程序，以便實現上述功能。加密算法是：把原 文本中第 k 個字符放到加密后的文本的第 ak 個位置處。 A. 循環隊列 答案 C 解析 樹均是非線性結構 2. 下列數據結構中 ,能夠按照 ”先進后出 ”原則存取數據 的是（ ）。 C. 交 D. 并 答案 D 解析 :T 是由 S 表或 R 表中的元素組成的 25 （ 11）以下變量名中合法的是 C） str_n （ 12）把數學表達式表示為正確的 VB 表達式應該是 D） (x*5+3)/(y*26) （ 13）下面有關標準模塊的敘述中，錯誤的是 A）標準模塊不完全由代碼組成，還可以有窗體 （ 14）下面控件中，沒有 Caption 屬性的是 C）組合框 （ 15）用來設置文字字體是否斜體的屬性是 D） FontItalic （ 16）若看到程序有如下事件過程，則可以肯定 的是，當程序運行時 Private SubClick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print VB Program End Sub D）用鼠標左鍵或右鍵單擊名稱為 “Click”的控件時，執行此過程 （ 17）可以產生 3050（含 30 到 50）之間的隨機整數的表達式是 A） Int(Rnd*21+30) （ 18）在程序運行時，下面的敘述中正確的是 C）只裝入而不顯示窗體，也會執 行窗體的 Form_Load 事件過程 （ 19）窗體有名稱為 Command1 的命令按鈕和名稱為 Text1 的文本框 Private Sub Command1_Click() 26 = 程序設計 End Sub Private Sub Text1_GotFocus() = 等級考試 End Sub 運行以上程序，單擊命令按鈕后 B）文本框中顯示的是 “等級考試 ”，且焦點在文本框中 （ 20）設窗體上有名稱為 Option1 的 單選按鈕，且程序中有語句： If =True Then 下面語句中與該語句不等價的是 C） If Value=True Then （ 21）設窗體上有 1 個水平滾動條，已經通過屬性窗口把它的 Max 屬性設置為 1， Min屬性設置為 100，下面敘述中正確的是 A）程序運行時，若使滾動條向左移動，滾動條的 Value 屬性值就增加 （ 22）有如下過程代碼： Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1 Print numa。HFFamp。X) （ 32）在窗體上畫 1 個命令按鈕和 1 個文本框，其名稱分別為 Command1 和 Text1，再編寫如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) Then ss = ss + Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String, i As Integer 32 For i = Len(ss) To 1 Step 1 m = m + Mid(ss, i, 1) Next = UCase(m) End Sub 程序運行后，在文本框中輸入 “Number 100”，并單擊命令按鈕，則文本框中顯示的是 D） 001REMBUN （ 33）窗體的左右兩端各有 1 條直線，名稱分別為 Line Line2；名稱為 Shape1 的圓靠在左邊的 Line1 直線上（見圖）；另有 1 個名稱為 Timer1 的計時器控件，其屬性值為True。 （ 2）程序流程圖中的菱形框表示的是【 2】 邏輯條件 或 邏輯判斷 或 條 件或判斷。如果單擊命令按鈕時，文本框中輸入的不是數值，則用信息框顯示 “請輸入數值數據！ ”。下面是實現此能的程序，請填空。 n amp。Str(n)amp。其結構如表。 （ 4）軟件是 【 4】 、數據和文檔的集合。然后編寫如下程序： Option Base 1 Private Sub Command1_Click（） 59 Dim a（ 10） As Integer For i=1 To 10 a（ i） =i Next Call swap （ 【 11】 ） For i=1 To 10 Print a（ i） 。程序運行后，如果單擊命令按鈕，則標簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖 2 所示。下面修改方案中正確的是 A）把 Form1 中 Text1 文本框及相關程序放到 Form2 窗體中 B）把 、 兩行移到 2 個 End If 之間 C）把 If KeyAscii=13 Then 改為 If KeyAscii=Teaeher Then D）把 2 個 中的“ Form2”刪去 （ 33）某人編寫了下面的程序，希望能把 Text1 文本框中的內容寫到 文件中 Private Sub