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

　　

【正文】 1 Print i*j Next j Next i 則語句 Print i*j 的執(zhí)行次數(shù)是 A A） 15 B） 16 C） 17 D） 18 （ 19）在窗體上畫兩個(gè)文本框（名稱分別為 text1 和 text2）和一個(gè)命令按鈕（名稱為 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 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為 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 程序運(yùn)行后，單擊窗體，輸出結(jié)果是 B A） 105 B)1 C)120 D)15 (21)以下說法中正確是的 D A)當(dāng)焦點(diǎn)在某個(gè)控件上時(shí)，按下一個(gè)字母鍵 ,就會(huì)執(zhí)行該控件的 keypress 事件過程 B)因?yàn)榇绑w不接受焦點(diǎn) ,所以窗體不存在自己的 keypress 事件過程 C)若按下的鍵相同 ,keypress 事件過程中的 keyascii 參數(shù)與 keydown 事件過程中的 keycode 參數(shù)的值也相同 D）在 keypress 事件過程中， keyascii 參數(shù)可以省略 （ 22）語句 dim a(3 to 4,3 to 6)as integer 定義的數(shù)組的元素個(gè)數(shù)是 D A） 18 B） 28 C） 21 D） 32 （ 23）在窗體上畫一個(gè)命令按鈕，其名稱為 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 程序運(yùn)行后，單擊命令按鈕后，其輸出結(jié)果是 B A） 4321 B） 1234 C） 34 D） 12 （ 24）假定通過復(fù)制，粘貼操作建立了一個(gè)命令按鈕數(shù)組 Command1，以下說法中錯(cuò)誤的是 D A）數(shù)組中每個(gè)命令按鈕的名稱（ name 屬性）均為 Command1 B）若未做修改，數(shù)組中每個(gè)命令按鈕的大小都一樣 C）數(shù)組中各個(gè)按鈕使用同一個(gè) click 事件過程 D）數(shù)組中每個(gè)命令按鈕的 index 屬性值都相同 （ 25）在窗體上面畫一個(gè)命令按鈕，名稱為 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(―請(qǐng)輸入一個(gè)整數(shù) ‖) A2(3k)=A1(k+1) Next k Print A2(k) End Sub 程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中依次輸入 6，則輸出結(jié)果為 D A） 0 B） 1 C） 2 D） 3 （ 26）以下關(guān)于函數(shù)過程的敘述中，正確的是 A）函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系 B）在函數(shù)過程中，過程的返回值可以有多個(gè) C）當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以值方式傳遞，也能以傳址方式傳遞 D）如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型 （ 27）在窗體上畫兩個(gè)標(biāo)簽和一個(gè)命令按鈕，其 名稱分別為 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 程序運(yùn)行后，單擊命令按鈕，則在兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為 D A） ABCD 和 10 B） 1234 和 100 C） ABCD 和 100 D） 1234 和 10 （ 28）在窗體上畫一個(gè)命令按鈕（名稱為 Command1），并編寫如下代碼： Functin Fun1(Byval a As Integer ,b As Integer) As Integer Dim t As Integer t=ab b=t+a Fun1=t+b End Function Private Sub Command1_Click() Dim x As Integer X=10 Print Fun1(Fun1(x,(Fun1(x,x1))),x1) End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 A） 10 B） 0 C） 11 D） 21 （ 29）以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是 A）過程的參數(shù)可以是控件名稱 11 B）調(diào)用過程時(shí)使用的實(shí)參的個(gè)數(shù)應(yīng)與過程形參的個(gè)數(shù)相同 C）只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中 D）窗體可以作為過程的函數(shù) （ 30）有如下通用過程： Public Function Fun(xStr As String) As String Dim tStr As String ,strL As Integer tStr=‖‖ strL=Len(xStr) i=strL/2 Do While i=strL tStr=tStr amp。下面程序的功能是讀入此文件中的所有文本行，按行計(jì)算每行字符的 ASCII 碼之和，并顯示在窗體上。 A. 低內(nèi)聚低耦合 B. 高內(nèi)聚低耦合 C. 低內(nèi)聚高耦合 D. 高內(nèi)聚高耦合 答案 B 解析 :模塊內(nèi)部各元素之間的聯(lián)系要緊密 ,高內(nèi)聚 ,模塊間的連接的緊密程度要 低 ,低耦合 ,這樣可以提高模塊的獨(dú)立性 . 6. 下列選項(xiàng)中不屬于結(jié)構(gòu)化程序設(shè)計(jì)原則的是（ ）。amp。其中可以作為主關(guān)鍵字的是【 5】身份證號(hào)。 Next Print Next B） For i=1 To 3 For j=1 To 5 Print a（ j,i） 。下面修改方案中正確的是 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）下面程序計(jì)算并輸出的是 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 個(gè) 103 的和 （ 28）若在窗體模塊的聲明部分聲明了如下自定義類型和數(shù)組 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）設(shè)窗體上有一個(gè)通用對(duì)話框控件 CD1，希望在執(zhí)行下面程序時(shí)，打開如圖所示的文件對(duì)話框 Private Sub Comand1_Click（） =打開文件 =C:\ =所有文件 |*.*|Word 文檔 |*.doc|文本文件 |*.Txt = =1 51 If =Then Print未打開文件 Else Print要打開文件 amp。程序運(yùn)行后，如果單擊命令按鈕，則標(biāo)簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖 2 所示。 （ 4）軟件是 【 4】 、數(shù)據(jù)和文檔的集合。Str(n)amp。下面是實(shí)現(xiàn)此能的程序，請(qǐng)?zhí)羁铡? （ 2）程序流程圖中的菱形框表示的是【 2】 邏輯條件 或 邏輯判斷 或 條 件或判斷。HFFamp。 A. 循環(huán)隊(duì)列 答案 C 解析 樹均是非線性結(jié)構(gòu) 2. 下列數(shù)據(jù)結(jié)構(gòu)中 ,能夠按照 ”先進(jìn)后出 ”原則存取數(shù)據(jù) 的是（ ）。請(qǐng)?zhí)羁胀瓿上旅娴膶傩栽O(shè)置和程序，以便實(shí)現(xiàn)上述功能。下面屬于應(yīng)用軟件的是 C A）編譯軟件 B）操作系統(tǒng) C）教務(wù)管理系統(tǒng) D）匯編程序 （ 6）下面敘述中錯(cuò)誤的是 C A）軟件測試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤 B）對(duì)被調(diào)試的程序進(jìn)行 ―錯(cuò)誤定位 ‖是程序調(diào)試的必要步驟 2 C）程序調(diào)試通常也稱為 Debug D）軟件測試應(yīng)嚴(yán)格執(zhí)行測試計(jì)劃，排除測試的隨意性 （ 7）耦合性和內(nèi)聚性是對(duì)模塊獨(dú)立性度量的兩個(gè)標(biāo)準(zhǔn)。其中表示實(shí)體聯(lián)系的是 【 5 】框。請(qǐng)?zhí)羁?。HFFamp。若編寫以下程序來實(shí)現(xiàn)此功能： 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 在調(diào)試時(shí)發(fā)現(xiàn)，如輸入 “陳 ”，可以正確刪除所有姓 “陳 ”的項(xiàng)目，但輸入 “劉 ”，則只刪除了 “劉邦 ”、 “劉備 ”２項(xiàng)，結(jié)果如圖２所示。事件過程及 2 個(gè)函數(shù)過程如下： 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 運(yùn)行程序，并單擊命令按鈕，則窗體上顯 示的 2 個(gè)值依次是【 12】 12 和【 13】 10。 次 改為 Print 口令輸入錯(cuò)誤 +n+次 C）把 Print 口令輸入錯(cuò)誤 amp。現(xiàn)將元素 A,B,C,D,E,F,5,4,3,2,1依次入隊(duì)，然后再依次退隊(duì)，則元素退隊(duì)的順序?yàn)? 【 1】 。 （ 9）在窗體上畫一個(gè)名稱為 Command1 的命令按鈕。 Form2 中有菜單。 Next Print Next 47 （ 24）窗體上有一個(gè) Text1 文本框，一個(gè) Command1 命令按鈕，并有以下程序 Private Sub Commandl_Click（） Dim n If 23456 Then n=n＋ 1 Print 口令輸入錯(cuò)誤 amp。程序運(yùn)行時(shí)，在 Form1 中名稱為 Text1 的文本框中輸入一個(gè)數(shù)值（圓的半徑），然