【正文】 5 6 C. 1 4 7 2 5 8 3 5 9 D. 1 2 3 4 5 6 7 8 926. 通用過程可以通過執(zhí)行“工具”菜單中的什么命令來建立______。A. 添加過程 B. 通用過程 C. 添加窗體 D. 添加模塊______。A．事件過程是響應(yīng)特定事件的一段程序B．不同的對(duì)象可以具有相同名稱的方法 C．對(duì)象的方法是執(zhí)行指定操作的過程 D．對(duì)象事件的名稱可以由編程者指定 28. 以下關(guān)于Visual Basic特點(diǎn)的敘述中，錯(cuò)誤的是______。A． Visual Basic是采用事件驅(qū)動(dòng)編程機(jī)制的語言B． Visual Basic程序既可以編譯運(yùn)行，也可以解釋運(yùn)行C． 構(gòu)成Visual Basic程序的多個(gè)過程沒有固定的執(zhí)行順序D． Visual Basic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化程序的三種基本結(jié)構(gòu)29. 單擊窗體Form1上的一個(gè)列表框List1中某一項(xiàng)時(shí)，把該項(xiàng)內(nèi)容顯示在窗體上，正確的事件過程是______。A． Private Sub List1_Click() Print End SubB． Private Sub List1_Click() Print End SubC． Private Sub List1_Click() Print (ListIndex) End SubD． Private Sub Form_Click() Print () End Sub30．建立函數(shù)的目的之一是______。 A． 提高程序的可讀性B． 減少程序所占內(nèi)存C． 提高程序的執(zhí)行效率D． 體現(xiàn)程序員的專業(yè)水平31. 下面語句執(zhí)行后，立即從一個(gè)Sub過程中退出的是______。A．Exit Sub B. Exit C. Return D. Resume32. 在文本框Text1中輸入數(shù)字12，Text2中輸入數(shù)字34，執(zhí)行以下語句，可使文本框Text3中顯示46__ ____。 A. = amp。 B. =val() +val( )C. = + D. =val() amp。 val()33. 下列語句中的_____語句可以用來正確地聲明一個(gè)動(dòng)態(tài)數(shù)組. A. Private A(n) as integerB. Dim A() As IntegerC. Dim A(,) as IntegerD. Dim A(1 to n)34. 以下有關(guān)數(shù)組的說明中，錯(cuò)誤的________ 。A. 根據(jù)數(shù)組說明的方式，可將數(shù)組分為動(dòng)態(tài)數(shù)組和靜態(tài)數(shù)組B. 在過程中，不能用private語句定義數(shù)組C. 利用Redim語句重新定維時(shí)，不得改變已經(jīng)說明過的數(shù)組的數(shù)據(jù)類型D. 利用Redim語句重新定維后，原有的數(shù)組元素內(nèi)容必定丟失35. 單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為________ 。Private Sub Command1_Click() For i=1 To 10 GetValue i Next i print GetValue(i)End SubPrivate Function GetValue(ByVal a As Integer) Static s As Intger s=s+a GetValue=sEnd FunctionA. 10 B. 65 C. 66 D. 11二、 填空題( 每空2分，共30分）1. 設(shè)有一棵二叉樹，對(duì)此二叉樹前序遍歷的結(jié)果為： （1） 2．在最壞情況下，冒泡排序的時(shí)間復(fù)雜度為 （2） 。3．一個(gè)類可以從直接或間接的祖先中繼承所有屬性和方法。采用這個(gè)方法提高了軟件的 （3） 。 4．?dāng)?shù)據(jù)流圖的類型有 （4） 和事務(wù)型。5．實(shí)體之間的聯(lián)系可以歸結(jié)為一對(duì)一、一對(duì)多(或多對(duì)多)聯(lián)系與多對(duì)多聯(lián)系。如果一個(gè)學(xué)校有許多教師，而一個(gè)教師只歸屬于一個(gè)學(xué)校，則實(shí)體集學(xué)校和實(shí)體集教師之間的聯(lián)系 是屬于 （5） 的聯(lián)系。6．設(shè)有如下聲明：  Dim X As Integer  如果Sgn(X) 的值為1，則X的值是____（6）______。 7．下列代碼功能為：單擊窗體時(shí)，移除List1（ListBox控件）的第一項(xiàng)內(nèi)容，請(qǐng)補(bǔ)充完成Private Sub C1_Click() （7）______ 0End Sub8．設(shè)a=6，則執(zhí)行 x=IIf(a5,3,0)后，x 的值為____（8）______。 （9）_______。 (Mid(QBASIC,3,4))的值是___（10）_______。 （11）____。num =0While num=2num = num+1WendPrint num12. 下面是一個(gè)體操評(píng)分程序，20位評(píng)委，除去一個(gè)最高分和一個(gè)最低分，計(jì)算平均分(設(shè)滿分為10分)。Private Sub Command1_Click()Max=0Min=10For I=1 TO 20N=Val(InputBox(請(qǐng)輸入分?jǐn)?shù)：))IF NMaxThen Max=NIF NMin Then Min=N_____（12）_____Next IS=_____（13）_____P=S/18Print最高分：；MaxPrint最低分：；MinPrint最后得分：；PEND Sub13．下面的程序用“冒泡”法將數(shù)組a中的10個(gè)整數(shù)按升序排列，請(qǐng)將程序補(bǔ)充完整。Option Base 1Private Sub Command1_Click()Dim aa=Array(678,45,324,528,439,387,87,875,273,823)For i= ____（14）______ For j= ___（15）___to 10 If a(i) =a(j) Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next jNext iFor i=1 To 10 Print a(i)Next iEnd Sub 筆試模擬試卷答案1. 筆試模擬試卷一【單選題】15. C A C B B 610. C C B C D C CD A 1620. D A D A C A C D D 2630. C B D D B31— A D B B【填空題】(1) 邏輯 (2) 實(shí)例化 (3) 內(nèi)聚 (4) 軟件生命周期 (5) 實(shí)體完整性(6) 4 (7) 468 (8) X=0 (9) X (10) 計(jì)算機(jī) (11) 等級(jí)考試 (12) Output (13) EOF(1) (14 )Close (15) 36 2. 筆試模擬試卷二【單選題】15. D B B D A 610. D C B D B1115. B A C D A 1620. A C D A C2125. D C D C C 2630. B A C A C31—35. D D C B B【填空題】(1) 數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu) (2) 物理設(shè)計(jì) (3) 概要 (4) 中序遍歷 (5) 文檔(6) False (7) BASIC (8)678910 (9) 0 （10）num Mod 5 = 3 （11）SetFocus (12) 1234 (13) 1 （14）Int(Rnd * 200 + 100)（15）a(i) Mod 7 = 03. 筆試模擬試卷三【單選題】15. D C B A D 610. A C D B C 1115. C C D D D 1620. B B B C A2125. D B D B D 2630. A D D A A31—35. A B B D C【填空題】（1）ATBZXCTP （2）n(n1)/2 （3）可重用性 （4）變換型 （5）1:n（一對(duì)多）（6）小于0的整數(shù) （7）RemoveItem （8） 3 （9）now （10） asic （11） 3 (12） S=S+N （13）SmaxMin （14）a to 9 （15） i+1