[其它考試]2009年3月20xx年9月計算機二級歷年vb考試真題及答案-文庫吧在線文庫

　　

【正文】 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。 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】身份證號。要求程序運行時，在文本框 Text1 中輸入一個姓氏，單擊 “刪除 ”按鈕（名稱為 Command1），則可刪除列表框 List1 中所有該姓氏的項目。amp。 Timer1 的事件過程如下： Private Sub Timer1_Timer() Static flag As Integer If flag = 0 Then flag = 1 flag = flag If flag = 1 Then = amp。 A. 低內聚低耦合 B. 高內聚低耦合 C. 低內聚高耦合 D. 高內聚高耦合 答案 B 解析 :模塊內部各元素之間的聯系要緊密 ,高內聚 ,模塊間的連接的緊密程度要 低 ,低耦合 ,這樣可以提高模塊的獨立性 . 6. 下列選項中不屬于結構化程序設計原則的是（ ）。過程執行完畢，加密后的文本仍放在變量 mystr 中。下面程序的功能是讀入此文件中的所有文本行，按行計算每行字符的 ASCII 碼之和，并顯示在窗體上。 （ 4）數據庫系統的核心是 【 4】 （ 5）在 ER 圖中，圖形包括矩形框、菱形框、橢圓框。程序運行后，要求 ―宋 5 體 ‖單選按鈕和 ―粗體 ‖復選框被選中，則以下能夠實現上述操作的語句序列是 D A) = False = True B) = True = 0 C) = True = 2 D) = True （ 17）在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print Next End Sub 程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容： 1 12 123 6 1234 則在橫線上應填入的內容為 A ARight(c1,i) B)Left(c1,i) C)Mid(c1,I,1) D) Mid(c1,i,i) (18)假定有以下程序段 For i=1 to 3 For j=5 to 1 step 1 Print i*j Next j Next i 則語句 Print i*j 的執行次數是 A A） 15 B） 16 C） 17 D） 18 （ 19）在窗體上畫兩個文本框（名稱分別為 text1 和 text2）和一個命令按鈕（名稱為 mand1） ,然后編寫如下事件過程： Private Sub Command1_Click() x = 0 Do While x 50 x = (x + 2) * (x + 3) n = n + 1 Loop = Str(n) = Str(x) End Sub 程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為 B 7 A） 1 和 0 B） 2 和 72 C)3 和 50 D） 4 和 168 (20)閱讀程序： Private Sub Command1_Click() A=0 For j=1 to 15 a=a+j mod 3 Next j Print a End Sub 程序運行后，單擊窗體，輸出結果是 B A） 105 B)1 C)120 D)15 (21)以下說法中正確是的 D A)當焦點在某個控件上時，按下一個字母鍵 ,就會執行該控件的 keypress 事件過程 B)因為窗體不接受焦點 ,所以窗體不存在自己的 keypress 事件過程 C)若按下的鍵相同 ,keypress 事件過程中的 keyascii 參數與 keydown 事件過程中的 keycode 參數的值也相同 D）在 keypress 事件過程中， keyascii 參數可以省略 （ 22）語句 dim a(3 to 4,3 to 6)as integer 定義的數組的元素個數是 D A） 18 B） 28 C） 21 D） 32 （ 23）在窗體上畫一個命令按鈕，其名稱為 mand1,然后編寫如下代碼： Option Base 1 8 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step 1 s = s + a(i) * j j = j * 10 Next i Print s End Sub 程序運行后，單擊命令按鈕后，其輸出結果是 B A） 4321 B） 1234 C） 34 D） 12 （ 24）假定通過復制，粘貼操作建立了一個命令按鈕數組 Command1，以下說法中錯誤的是 D A）數組中每個命令按鈕的名稱（ name 屬性）均為 Command1 B）若未做修改，數組中每個命令按鈕的大小都一樣 C）數組中各個按鈕使用同一個 click 事件過程 D）數組中每個命令按鈕的 index 屬性值都相同 （ 25）在窗體上面畫一個命令按鈕，名稱為 Command1，然后編寫如下代碼： Option Base 0 Private Sub Command1_Click() Dim A1(4) As Integer,A2(4) As Integer For k=0 To 2 9 A1(k+1)=InputBox(―請輸入一個整數 ‖) A2(3k)=A1(k+1) Next k Print A2(k) End Sub 程序運行后，單擊命令按鈕，在輸入對話框中依次輸入 6，則輸出結果為 D A） 0 B） 1 C） 2 D） 3 （ 26）以下關于函數過程的敘述中，正確的是 A）函數過程形參的類型與函數返回值的類型沒有關系 B）在函數過程中，過程的返回值可以有多個 C）當數組作為函數過程的參數時，既能以值方式傳遞，也能以傳址方式傳遞 D）如果不指明函數過程參數的類型，則該參數沒有數據類型 （ 27）在窗體上畫兩個標簽和一個命令按鈕，其 名稱分別為 Label Label2 和Command1，然后編寫如下程序： Private Sub func(L As Label) =‖1234‖ End sub Private Sub Form_Load() =10 End sub Private Sub Command1_Click() A=Val() 10 Call func(Label1) =a End sub 程序運行后，單擊命令按鈕，則在兩個標簽中顯示的內容分