[其它考試]2009年3月20xx年9月計算機二級歷年vb考試真題及答案(編輯修改稿)

　

【文章內容簡介】 6. 下列選項中不屬于結構化程序設計原則的是（ ）。 答案 A 該圖是 ( ). 圖 B. PAD 圖 C. 程序流程圖 圖 答案 C （ ）。 24 A. 操作系統的一部分 系統 答案 B ER 圖中，用來表示實體聯系的圖形是（ ）。 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 通過某種操作得到，該操作稱為（ ）。 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。 numb 27 End Sub 連續 3 次調用 var_dim 過程，第 3 次調用時的輸出是 C） 6 1 （ 23）在窗體上畫 1 個命令按鈕，并編寫如下事件過程： Private Sub Command1_Click() For i = 5 To 1 Step Print Int(i)。 Next i End Sub 運行程序，單擊命令按鈕，窗體上顯示的內容為 A） 5 4 3 2 1 1 （ 24）在窗體上畫 1 個命 令按鈕，并編寫如下事件過程： Private Sub Command1_Click() Dim a(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 4 m Then a(m, n) = m + n Else a(m, n) = 0 End If 28 Print a(m, n)。 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。 Timer1 的事件過程如下： Private Sub Timer1_Timer() Static flag As Integer If flag = 0 Then flag = 1 flag = flag If flag = 1 Then = amp。HFFamp。 39。amp。HFFamp。為紅色 Else = amp。HC000amp。 39。amp。HC000amp。為綠色 End If End Sub 以下敘述中 正確的是 C）程序執行后，文本框的文字每 5 秒改變一次顏色 （ 27）為計算 1+2+2^2+2^3+2^4+…+2^10的值，并把結果顯示在文本框 Text1中，若編寫如下事件過程： Private Sub Command1_Click() Dim a%, s%, k% s = 1 a = 2 For k = 2 To 10 30 a = a * 2 s = s + a Next k = s End Sub 執行此事件過程后發現結果是錯誤的，為能夠得到正確結果，應做的修改 是 D）同時進行 B）、 C）兩種修改 （ 28）標準模塊中有如下程序代碼： Public x As Integer, y As Integer Sub var_pub() x = 10: y = 20 End Sub 在窗體上有 1 個命令按鈕，并有如下事件過程： Private Sub Command1_Click() Dim x As Integer Call var_pub x = x + 100 y = y + 100 Print x。 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。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。要求程序運行后，圓每秒向右移動 100，當圓遇到 Line2 時則停止移動。為實現上述功能，某人把計時器的 Interval 屬性設置為 1000，并編寫了如下程序： Private Sub Timer1_Timer() For k = To Step 100 If + Then = + 100 End If Next k End Sub 運行程序時發現圓立即移動到右邊的直線處，與題目要求的移動方式不符。為得到與題目要求相符的結果，下面修改方案中正確的是 B）把 For k = To Step 100 和 Next k 兩行刪除 （ 34）下列有關文件的敘述中，正確的是 C）隨機文件中，每個記錄的長度是固定的 33 （ 35）窗體如圖 1 所示。要求程序運行時，在文本框 Text1 中輸入一個姓氏，單擊 “刪除 ”按鈕（名稱為 Command1），則可刪除列表框 List1 中所有該姓氏的項目。若編寫以下程序來實現此功能： 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 在調試時發現，如輸入 “陳 ”，可以正確刪除所有姓 “陳 ”的項目，但輸入 “劉 ”，則只刪除了 “劉邦 ”、 “劉備 ”２項，結果如圖２所示。這說明程序不能適應所有情況，需要改正。正確的修改方案是把 For k=0 to 改為 A） For k = 1 To 0 Step 1 二、填空題（每空 2 分，共 30 分） （ 1）某二叉樹有 5 個度為 2 的結點以及 3 個度為 1 的結點，則該二叉樹中共有 【 1】14 個結點。 （ 2）程序流程圖中的菱形框表示的是【 2】 邏輯條件 或 邏輯判斷 或 條 件或判斷。 （ 3）軟件開發過程主要分為需求分析、設計、編碼與測試四個階段，其中【 3】需求分析 階段產生 “軟件需求規格說明書 ”。 （ 4）在數據庫技術中，實體集之間的聯系可以是一對一或一對多的，那么 “學生 ”和 “可選課程 ”的聯系為【 4】多對多。 34 （ 5）人員基本信息一般包括：身份證號，姓名，性別，年齡等。其中可以作為主關鍵字的是【 5】身份證號。 （ 6）工程中有 Form1 和 Form2 兩個窗體。 Form1 窗體外觀如圖 1 所示。程序運行時，在 Form1 中名稱為 Text1 的文本框中輸入一個數值（圓的半徑），然后單擊命 令按鈕 “計算并顯示 ”（其名稱為 Command1），則顯示 Form2 窗體，且根據輸入的圓的半徑計算圓的面積，并在 Form2 的窗體上顯示出來，如圖 2 所示。如果單擊命令按鈕時，文本框中輸入的不是數值，則用信息框顯示 “請輸入數值數據！ ”。請填空。 Private Sub Command1_Click() If = Then magbox 請輸入半徑！ ElseIf Not IsNumeric(【 6】 ) Then MsgBox 請輸入數值數據！ Else r = Val(【 7】 ) 【 8】 圓的面積是 amp。 * r * r End If End Sub （ 7）設有整型變量 s，取值范圍為 0～ 100，表示學生的成績，有如下程序段： If s = 90 Then