[其它考試]2009年3月20xx年9月計算機二級歷年vb考試真題及答案-wenkub.com

　 　

【正文】 然后編寫如下程序： 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 所示。 （ 4）軟件是 【 4】 、數據和文檔的集合。下面修改方案中正確的是 A）把 Form1 中 Text1 文本框及相關程序放到 Form2 窗體中 B）把 、 兩行移到 2 個 End If 之間 C）把 If KeyAscii=13 Then 改為 If KeyAscii=Teaeher Then D）把 2 個 中的“ Form2”刪去 （ 33）某人編寫了下面的程序，希望能把 Text1 文本框中的內容寫到 文件中 Private Sub Comand1_Click（） Open For Output As 2 54 Print Text1 Close 2 End Sub 調試時發現沒有達到目的，為實現上述目的，應做的修改是 A）把 Print Text1改為 Print 2,Text1 B）把 Print Text1改為 Print Text1 C）把 Print Text1改為 Write Text1 D）把所有 2 改為 1 （ 34）窗體上有一個名為 Command1 的命令按鈕，并有下面的程序： Private Sub Comand1_Click（） Dim arr（ 5） As Integer For k=1 To 5 arr（ k） =k Next k prog arr（） For k=1 To 5 Print arr（ k） Next k End Sub Sub prog（ a（） As Integer） n=Ubound（ a） 55 For i=n To 2 step 1 For j=1 To n1 if a（ j） a（ j+1） Then t=a（ j） :a（ j） =a（ j+1） :a（ j+1） =t End If Next j Next i End Sub 程序運行時，單擊命令按鈕后顯示的是 A） 12345 B） 54321 C） 01234 D） 43210 （ 35）下面程序運行時，若輸入“ Visual Basic Programming”，則在窗體上輸出的是 Private Sub Comand1_Click（） Dim count（ 25） As Integer, ch As String ch=Ucase（ InputBox（ 請輸入字母字符串 ）） For k=1 To Len（ ch） n=Asc（ Mid（ ch,k,1）） Asc（ A） If n=0 Then Count（ n） =Count（ n） + 1 56 End If Next k m=count（ 0） For k=1 To 25 If mcount（ k） Then m=count（ k） End If Next k Print m End Sub A） 0 B） 1 C） 2 D） 3 二、填空題 （ 1）一個隊列的初始狀態為空。其結構如表。下面修改方案中正確的是 A）把 For k=3 To n 改為 For k=1 To n B）把 n=20220 改為 n=20220000 C）把 For k=3 To n 改為 For k=3 To n Step 2 D）把 PI=1 改為 PI=0 （ 27）下面程序計算并輸出的是 Private Sub Comand1_Click（） a=10 s=0 Do s=s+a*a*a a=a1 Loop Until a=0 Print s End Sub A） 13+23+33+… +103 的值 50 B） 10!+… +3!+2!+1!的值 C）（ 1+2+3+… +10） 3 的值 D） 10 個 103 的和 （ 28）若在窗體模塊的聲明部分聲明了如下自定義類型和數組 Private Type rec Code As Integer Caption As String End Type Dim arr（ 5） As rec 則下面的輸出語句中正確的是 A） Print (2),(2) B） Print , C） Print arr(2).Code,arr(2).Caption D） Print Code(2),Caption(2) （ 29）設窗體上有一個通用對話框控件 CD1，希望在執行下面程序時，打開如圖所示的文件對話框 Private Sub Comand1_Click（） =打開文件 =C:\ =所有文件 |*.*|Word 文檔 |*.doc|文本文件 |*.Txt = =1 51 If =Then Print未打開文件 Else Print要打開文件 amp。Str(n)amp。 n amp。 n amp。 Next Print Next B） For i=1 To 3 For j=1 To 5 Print a（ j,i） 。下面是實現此能的程序，請填空。 Select Case s Case【 9】 Is = 95 Level = A Case 75 To 90 Level = B Case 60 To 74 Level = C Case 【 10】 Else 或 Is60 Level = D 【 11】 End Select （ 8）窗體上有名稱為 Command1 的命令按鈕。如果單擊命令按鈕時，文本框中輸入的不是數值，則用信息框顯示 “請輸入數值數據！ ”。其中可以作為主關鍵字的是【 5】身份證號。 （ 2）程序流程圖中的菱形框表示的是【 2】 邏輯條件 或 邏輯判斷 或 條 件或判斷。要求程序運行時，在文本框 Text1 中輸入一個姓氏，單擊 “刪除 ”按鈕（名稱為 Command1），則可刪除列表框 List1 中所有該姓氏的項目。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。amp。HFFamp。 Timer1 的事件過程如下： Private Sub Timer1_Timer() Static flag As Integer If flag = 0 Then flag = 1 flag = flag If flag = 1 Then = amp。 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。 A. 低內聚低耦合 B. 高內聚低耦合 C. 低內聚高耦合 D. 高內聚高耦合 答案 B 解析 :模塊內部各元素之間的聯系要緊密 ,高內聚 ,模塊間的連接的緊密程度要 低 ,低耦合 ,這樣可以提高模塊的獨立性 . 6. 下列選項中不屬于結構化程序設計原則的是（ ）。 A. 循環隊列 答案 C 解析 樹均是非線性結構 2. 下列數據結構中 ,能夠按照 ”先進后出 ”原則存取數據 的是（ ）。過程執行完畢，加密后的文本仍放在變量 mystr 中。加密算法是：把原 文本中第 k 個字符放到加密后的文本的第 ak 個位置處。下面程序的功能是讀入此文件中的所有文本行，按行計算每行字符的 ASCII 碼之和，并顯示在窗體上。請填空完成下面的屬性設置和程序，以便實現上述功能。 （ 4）數據庫系統的核心是 【 4】 （ 5）在 ER 圖中，圖形包括矩形框、菱形框、橢圓框。 （ 1）假設一個長度為 50 的數組（數組元素的下標從 0 到 49）作為棧的存儲空間，棧底指針 bottom指向棧底元素，棧頂指針 top指向棧頂元素，如果 bottom=49，top=30（數組下標），則棧中具有 【 1】 個元素。程序運行后，要求 ―宋 5 體 ‖單選按鈕和 ―粗體 ‖復選框被選中，則以下能夠