1、2009年3月計算機等級考試二級VB筆試試題及答案一、選擇題（每題2分，共計70分）(1)下列敘述中正確的是 A)棧是先進先出的線性表B)隊列是"先進后出"的線性表C)循環(huán)隊列是非線性結(jié)構(gòu)D)有序線性表即可以采用順序存儲結(jié)構(gòu),也可以采用鏈式存儲結(jié)構(gòu) (2)支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是A)棧 B)樹 C)隊列 D)二叉樹 (3)某二叉樹有5個讀為2的結(jié)點,則該二叉樹中的葉子結(jié)點數(shù)是A)10 B)8 C)6 D)4 (4)下列排序方法中,最壞情況下比較次數(shù)最少的是A)冒泡排序 B)簡單選擇排序 C)直接插入排序 D)堆排序(5)軟件按功能可以分為:應

2、用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下列屬于應用軟件的是A)編譯程序 B)操作系統(tǒng) C)教務管理系統(tǒng) D)匯編程序 (6)下面敘述中錯誤的是A)軟件測試的目的是發(fā)現(xiàn)錯誤并改正錯誤B)對被調(diào)試程序進行"錯誤定位"是程序調(diào)試的必要步驟C)程序調(diào)試也成為DebugD)軟件測試應嚴格執(zhí)行測試計劃，排除測試的隨意性(7)耦合性和內(nèi)聚性是對模塊獨立性度量的兩個標準。下列敘述中正確的是A)提高耦合性降低內(nèi)聚性有利于提高模塊的獨立性B)降低耦合性提高內(nèi)聚性有利于提高模塊的獨立性C)耦合性是指一個模塊內(nèi)部各個元素間彼此結(jié)合的緊密程度D)內(nèi)聚性是指模塊間互相連接的緊密程度(8)

3、數(shù)據(jù)庫應用系統(tǒng)中的核心問題是A)數(shù)據(jù)庫設計 B)數(shù)據(jù)庫系統(tǒng)設計 C)數(shù)據(jù)庫維護 D)數(shù)據(jù)庫管理員培訓(9)有兩個關系R,S如下：由關系R通過運算得到關系S,則所使用的運算為A)選擇 B)投影 C)插入 D)連接 (10)將E-R圖轉(zhuǎn)換為關系模式時,實體和聯(lián)系都可以表示為A)屬性 B)鍵 C)關系 D)域(11)執(zhí)行語句 Dim X,Y As Integer 后,A)X和Y均被定義為整型變量B)X和Y均被定義為變體類型變量C)X被定義為整型變量,Y被定義為變體變量D)X被定義為變體類型變量,Y被定義為整型變量(12)以下關系表達式中，其值為True的是A)"XYZ"

4、>"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(13)執(zhí)行以下程序段a$="Visual Basic Programming"b$="C+"C$=UCase(Left$(a$,7) & b$ & Right$(a$,12)后,變量C$的值為A)Visual BASIC Programm

5、ing B)VISUAL C+ ProgrammingC)Visual C+ Programming D)VISUAL BASIC Programming(14)下列敘述中正確的是A)MsgBox語句的返回值是一個整數(shù)B)執(zhí)行MsgBox語句并出現(xiàn)信息框后,不用關閉信息框即可執(zhí)行其他操作C)MsgBox語句的第一個參數(shù)不能省略D)如果省略MsgBox語句的第三個參數(shù)(Title),則信息框的標題為空(15)在窗體上畫一個文本框(名稱為Text1)和一個標簽(名稱為Label1),程序運行后,在文本框中每輸入一個字符，都會立即在標簽中顯示文本框中字符的個數(shù),以下可以實現(xiàn)上述操作的事件過程是A)P

6、rivate Sub Text1_Change()Label1.Caption=str(Len(Text1.Text)End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text)End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text)End Sub(16)在窗體上畫兩個單選按鈕(名稱分別為Option1,Option2

7、,標題分別為"宋體"和"黑體"),1個復選框(名稱為Check1,標題為粗體)和1個文本框(名稱為Text1,Text屬性為"改變文字字體")，窗體外觀如圖所示。程序運行后，要求“宋體”單選按鈕和“粗體”復選框被選中，則以下能夠?qū)崿F(xiàn)上述操作的語句序列是A)Option1.Value=FalseCheck1.Value=TrueB)Option1.Value=TrueCheck1.Value=0C)Option2.Value=FalseCheck1.Value=2D)Option1.Value=TrueCheck1.Value=1(17

8、)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c)Fori=1To4Print_NextEndSub程序運行后,單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在橫線處應填入的內(nèi)容為A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,1)(18)假定有一下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti則語句Print i*j 的執(zhí)行次數(shù)是A)15 B)16 C)17 D)18(1

9、9)在窗體上畫兩個文本框（名稱分別為Text1和Text2）和一個命令按鈕（名稱為Command1），然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為A)1和0 B)2和72 C)3和50 D)4和168(20)閱讀程序：PrivateSubCommand1_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序運行后

10、，單擊窗體，輸出結(jié)果是A)105 B)1 C)120 D)15 (21)以下說法中正確的是A)當焦點在某個控件上時，按下一個字母鍵，就會執(zhí)行該控件的KeyPress事件過程B)因為窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程C)若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中的KeyCode參數(shù)的值也相同D)在KeyPress事件過程中，KeyAscii參數(shù)可以省略 (22)語句Dim a(-3 To 4,3 To 6) As Integer 定義的數(shù)組的元素個數(shù)是A)18 B)28 C)21 D)32  

11、(23)在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下代碼：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序運行后，單擊命令按鈕，其輸出結(jié)果是A)4321 B)1234 C)34 D)12 (24)假定通過復制，粘貼操作建立了一個命令按鈕數(shù)組Command1，以下說法中錯誤的是A)數(shù)組中每個命令按鈕的名稱(Name屬性)均為Command1B)若未做修改,數(shù)組中每個命令按鈕的大小都一樣C)數(shù)組中各個

12、命令按鈕使用同一個Click事件過程D)數(shù)組中每個命令按鈕的Index屬性值都相同 (25)在窗體上畫一個命令按鈕，名稱為Command1,然后編寫如下代碼：OptionBase0PrivateSubCommand1_Click()DimA1(4)AsInteger,A2(4)AsIntegerFork=0To2A1(k+1)=InputBox("請輸入一個整數(shù)")A2(3-k)=A1(k+1)NextkPrintA2(k)EndSub程序運行后,單擊命令按鈕，在輸入對話框中依次輸入2、4、6則輸出結(jié)果為A)0 B)1 C)2 D)3 (26)以下關于函

13、數(shù)過程的敘述中，正確的是A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關系B)在函數(shù)過程中，過程的返回值可以有多個C)當數(shù)組作為函數(shù)過程的參數(shù)是，既能以傳值方式傳遞，也能以傳址方式傳遞D)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型 (27)在窗體上畫兩個標簽按鈕和一個命令按鈕，其名稱分別為Label1、Label2和Command1，然后編寫如下程序：PrivateSubfunc(LAsLabel)L.Caption="1234"EndSubPrivateSubForm_Load()Label1.Caption="ABCDE"Label2

14、.Caption=10EndSubPrivateSubCommand1_Click()a=Val(Label2.Caption)Callfunc(Label1)Label2.Caption=aEndSub程序運行后，單擊命令按鈕，則在兩個標簽中顯示的內(nèi)容分別為A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10 (28)在窗體上畫一個命令按鈕(名稱為Command1)，并編寫如下代碼:Functionfun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+afun1=t+bEndFun

15、ctionPrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(fun1(x,(fun1(x,x-1),x-1)EndSub程序運行后，單擊命令按鈕，輸出結(jié)果是A)10 B)0 C)11 D)21 (29)以下關于過程及過程參數(shù)的描述中，錯誤的是A)過程的參數(shù)可以是控件名稱B)調(diào)用過程時使用的實參的個數(shù)應與過程形參的個數(shù)相同C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中D)窗體可以作為過程的參數(shù) (30)設有如下通用過程PublicFunctionFun(xStrAsString)AsStringDimtStrAs

16、String,strLAsIntegertStr=""strL=Len(xStr)i=strL/2DoWhilei<=strLtStr=tStr&Mid(xStr,i+1,1)i=i+1LoopFun=tStr&tStrEndFunction在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕。然后編寫如下事件過程PrivateSubCommand1_Click()DimS1AsStringS1="ABCDEF"Text1.Text=LCase(Fun(S1)EndSub程序運行后，單擊命令按鈕，文本框中顯示

17、的是A)ABCDEF B)abcdef C)defdef D)defabc (31)在窗體上畫一個命令按鈕和一個文本框（名稱分別為Command1和Text1）,并把窗體的KeyPreview屬性設置為True,然后編寫如下代碼：DimSaveAllAsStringPrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubCommand1_Click()Text1.Text=LCase(SaveAll)+SaveAllEndSubPrivateSubForm_KeyPress(KeyAs

18、ciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序運行后，直接用鍵盤輸入：VB,再單擊命令按鈕則文本框中顯示的內(nèi)容為A)vbVB B)不顯示任何信息 C)VB D)出錯 (32)設有以下程序PrivateSubForm_Click()x=50Fori=1To4y=InputBox("請輸入一個整數(shù)")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序運行后，單擊窗體，在輸入對話框中依次輸入15,24,35,46,輸出結(jié)果為A)100 B)50

19、 C)120 D)70 (33)以下關于菜單的敘述中，錯誤的是A)當窗體為活動窗體時，用Ctrl+E鍵可以打開菜單編輯器B)把菜單項的Enabled屬性設置為False,則可刪除該菜單項C)彈出式菜單在菜單編輯器中設計D)程序運行時，利用控件數(shù)組可以實現(xiàn)菜單項的增加或減少 (34)以下敘述中錯誤的是A)在程序運行時,通用對話框控件是不可見的B)調(diào)用同一個通用對話框控件的不同方法(如ShowOpen或ShowSave)可以打開不同的對話框窗口C)調(diào)用通用對話框控件的ShowOpen方法,能夠直接打開在該通用對話框中指定的文件D)調(diào)用通用對話框控件的ShowColor方法,可以

20、打開顏色對話框窗口(35)設在工程文件中有一個標準模塊，其中定義了如下記錄類型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗體上畫一個名為Command1的命令按鈕，要求當執(zhí)行事件過程Command1_Click時，在順序文件Person.txt中寫入一條Books類型的記錄，下列能夠完成該操作的事件過程是A)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=

21、InputBox("輸入電話號碼")Write#1,B.Name,B.TelNumClose#1EndSubB)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=InputBox("輸入電話號碼")Print#1,B.Name,B.TelNumClose#1EndSubC)PrivateSubCommand1_Click()DimBAsBooksOpen"Perso

22、n.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=InputBox("輸入電話號碼")Write#1,BClose#1EndSubD)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=InputBox("輸入電話號碼")Print#1,Name,TelNumClose#1EndSub二、填空題（每空

23、2分，共計30分）(1)假設用一個長度為50的數(shù)組(數(shù)組元素的下標從0到49)作為棧的存儲空間,棧底 指針bottom指向棧底元素,棧頂指針top指向棧頂元素,如果bottom=49,top=30(數(shù)租下標),則棧中具有【1】個元素(2)軟件測試可分為白盒測試和黑盒測試。基本路徑測試屬于【2】測試(3)符合結(jié)構(gòu)化原則的三種基本控制結(jié)構(gòu)是:選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)和【3】(4)數(shù)據(jù)庫系統(tǒng)的核心是【4】(5)在E-R圖中，圖形包括矩形框、菱形框、橢圓框。其中表示實體聯(lián)系的是【5】框(6)窗體如圖所示,其中汽車是名稱為Image1的圖像框，命令按鈕的名稱Command1, 計時器的名稱為Timer1,直線

24、的名稱為Line1。程序運行時，單擊命令按鈕，則汽車每0.1秒向左移動100，車頭到達左邊的直線時停止移動。請?zhí)羁胀瓿上旅娴膶傩栽O置和程序，以便實現(xiàn)上述功能。1)Timer1的Interval屬性的值應事先設置為【6】2)Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub3)Private Sub Timer1_Timer()If Image1.Left > 【7】 ThenImage1.Left = 【8】 - 100End IfEnd Sub 7.上題【7】的答案是 8.上一題【8】的答案是 

25、9. (7)設窗體上有一個名稱為Combo1的組合框,并有以下程序：Private Sub Combo1_KeyPress(KeyAscii As Integer)If 【9】 = 13 ThenFor k = 0 To Combo1.ListCount - 1If Combo1.Text = Combo1.List(k) ThenCombo1.Text = ""Exit ForEnd IfNext kIf Combo1.Text <> "" ThenCombo1.AddItem 【10】End IfEnd IfEnd Sub程序的功能是：在

26、組合框的編輯區(qū)中輸入文本后按回車鍵，則檢查列表中有無與此文本相同的項目，若有，則把編輯區(qū)中的文本刪除，否則把編輯區(qū)中的文本添加到列表的尾部。請?zhí)羁铡?#160;10. 上一題【10】的答案是 11. (8)在當前目錄下有一個名為"myfile.txt"的文本文件,其中有若干行文本。下面程序的功能是讀入此文件中的所有文本行，按行計算每行字符的ASCII碼之和，并顯示在窗體上。請?zhí)羁誔rivateSubCommand1_Click()Dimch$,asciiAsIntegerOpen"myfile.txt"For【11】As#1WhileNotEO

27、F(1)LineInput#1,chascii=toascii(【12】)PrintasciiWendClose#1EndSubPrivateFunctiontoascii(mystr$)AsIntegern=0Fork=1To【13】n=n+Asc(Mid(mystr,k,1)Nextktoascii=nEndFunction 12. 上一題【12】的答案是 13. 上一題【13】的答案是 14. (9)本程序?qū)崿F(xiàn)文本加密。先給定序列:a1,a2,.,an,它們的取值范圍是1n,而且互不相同。加密算法是:把原文本中第k個字符放到加密后文本的第ak個位置處。若原文

28、本長度大于n，則只對前面n個字符加密,后面的字符不變；若原文本長度小于n，則在后面補字符"*"使文本長度為n后再加密。例如：若給定序列a1,a2,.a7分別為2,5,3,7,6,1,4當文本為“PROGRAM"時，加密后的文本為"APOMRRG"當文本為"THANK"時，加密后的文本為"*TA*HKN"下面的過程code實現(xiàn)這一算法。其中參數(shù)數(shù)組a()中存放給定序列(個數(shù)與數(shù)組a的元素個數(shù)相等)a1,a2,a3.的值，要加密的文本放在參數(shù)變量mystr中，過程執(zhí)行完畢，加密后的文本仍然放在變量mystr中

29、。請?zhí)羁铡ptionBase1PrivateSubcode(a()AsInteger,mystrAsString)DimchAsString,c1AsStringn=UBound(a)-Len(mystr)Ifn>0Thenmystr=mystr&String$(n,"*")EndIfch=mystrFork=【14】ToUBound(a)c1=Mid(mystr,k,1)n=【15】Mid(ch,n)=c1Nextkmystr=chEndSub15. 上一題【15】的答案是 2009年9月全國計算機等級考試二級VB筆試試題及答案一、選擇題（每小題

30、2分，共70分） 一、選擇題1下列數(shù)據(jù)結(jié)構(gòu)中，屬于非線性結(jié)構(gòu)的是（     ）。A.     循環(huán)隊列 B.帶鏈隊列C.二叉樹  D.帶鏈棧答案 C解析 樹均是非線性結(jié)構(gòu)2. 下列數(shù)據(jù)結(jié)構(gòu)中,能夠按照”先進后出”原則存取數(shù)據(jù)的是（     ）。A.     循環(huán)隊列 B.棧  C.隊列 D.二叉樹答案 B解析:棧是先進后出或后進先出的線性表3. 對于循環(huán)隊列,下列敘述中正確的是（   &

31、#160; ）。A.隊頭指針是固定不變的B.隊頭指針一定大于隊尾指針C.隊頭指針一定小于隊尾指針D.隊頭指針可以大于隊尾指針，也可以小于隊尾指針答案 D解析:如果隊頭指針大于隊尾指針說明隊列已經(jīng)循環(huán)存放數(shù)據(jù)了,如果隊頭指針小于隊尾指針說明沒有進行循環(huán)存放4. 算法的空間復雜度是指（     ）。A.算法在執(zhí)行過程中所需要的計算機存儲空間    B.算法所處理的數(shù)據(jù)量C.算法程序中的語句或指令條數(shù)           

32、            D.算法在執(zhí)行過程中所需要的臨時工作單元數(shù)答案 A解析:算法的空間復雜度是指執(zhí)行算法所需要的內(nèi)存空間,包括算法程序所占空間,輸入的初始數(shù)據(jù)所占空間和執(zhí)行過程中所需要的額外空間.5. 軟件設計中劃分模塊的一個準則是（     ）。A. 低內(nèi)聚低耦合 B. 高內(nèi)聚低耦合 C. 低內(nèi)聚高耦合  D. 高內(nèi)聚高耦合答案 B解析:模塊內(nèi)部各元素之間的聯(lián)系要緊密,高內(nèi)聚,模塊間的連接的緊密程度要低,低耦合,這樣可以

33、提高模塊的獨立性.6. 下列選項中不屬于結(jié)構(gòu)化程序設計原則的是（     ）。A.可封裝 B.自頂向下 C.模塊化 D.逐步求精答案 A7.軟件詳細設計產(chǎn)生的圖如下該圖是(    ).A.N-S圖 B. PAD圖 C. 程序流程圖 D.E-R圖答案 C8.數(shù)據(jù)庫管理系統(tǒng)是（     ）。A. 操作系統(tǒng)的一部分 B.在操作系統(tǒng)支持下的系統(tǒng)軟件 C.一種編譯系統(tǒng) D.一種操作系統(tǒng) 答案 B 9.在E-R圖中，用來表示實體聯(lián)系的圖形是（    

34、; ）。A.橢圓形 B.矩形 C.菱形 D .三角形 答案 C 10.有三個關系R,S,T 如下：R ABCa12b21c31S ABCd32T ABCa12b21c31d32 其中關系T由關系R和S通過某種操作得到，該操作稱為（     ）。A.選擇 B.投影  C. 交 D. 并 答案 D解析:T是由S表或R表中的元素組成的（11）以下變量名中合法的是 C）str_n （12）把數(shù)學表達式表示為正確的VB表達式應該是 D）(x*5+3)/(y*2-6) （13）下面有關標準模塊的敘述中，錯誤的是 A）

35、標準模塊不完全由代碼組成，還可以有窗體 （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”的控件時，執(zhí)行此過程 （17）可以產(chǎn)生30-50（含30到50）之間的

36、隨機整數(shù)的表達式是 A）Int(Rnd*21+30) （18）在程序運行時，下面的敘述中正確的是 C）只裝入而不顯示窗體，也會執(zhí)行窗體的Form_Load事件過程 （19）窗體有名稱為Command1的命令按鈕和名稱為Text1的文本框 Private Sub Command1_Click() Text1.Text = "程序設計" Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text = "等級考試" End Sub 運行以上程序，單擊命令按鈕后 B）文本框中顯示的是“等級考試”，

37、且焦點在文本框中 （20）設窗體上有名稱為Option1的單選按鈕，且程序中有語句： If Option.Value=True Then 下面語句中與該語句不等價的是 C）If Value=True Then （21）設窗體上有1個水平滾動條，已經(jīng)通過屬性窗口把它的Max屬性設置為1，Min屬性設置為100，下面敘述中正確的是 A）程序運行時，若使?jié)L動條向左移動，滾動條的Value屬性值就增加 （22）有如下過程代碼： Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1

38、 Print numa; numb End Sub 連續(xù)3次調(diào)用var_dim過程，第3次調(diào)用時的輸出是 C）6 1 （23）在窗體上畫1個命令按鈕，并編寫如下事件過程： Private Sub Command1_Click() For i = 5 To 1 Step -0.8 Print Int(i); Next i End Sub 運行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為 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

39、 3 If n = m Or n = 4 - m Then a(m, n) = m + n Else a(m, n) = 0 End If Print a(m, n); Next n Print Next m End Sub B）2 0 4 0 4 0 4 0 6 （25）設有如下函數(shù)過程： 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 E

40、nd Function 若調(diào)用函數(shù)fun時的實際參數(shù)都是自然數(shù)，則函數(shù)返回的是 B）a、b的最小公倍數(shù) （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 Text1.ForeColor = &HFF& '&HFF&為紅

41、色 Else Text1.ForeColor = &HC000& '&HC000&為綠色 End If End Sub 以下敘述中正確的是 C）程序執(zhí)行后，文本框的文字每5秒改變一次顏色 （27）為計算1+2+22+23+24+210的值，并把結(jié)果顯示在文本框Text1中，若編寫如下事件過程： Private Sub Command1_Click() Dim a%, s%, k% s = 1 a = 2 For k = 2 To 10 a = a * 2 s = s + a Next k Text1.Text = s End Sub 執(zhí)行此事件過程后發(fā)現(xiàn)

42、結(jié)果是錯誤的，為能夠得到正確結(jié)果，應做的修改是 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 （29）設a，b都是自然數(shù)，為求a除以b的余數(shù)，默認編寫了以下函數(shù)： Fu

43、nction fun(a As Integer, b As Integer) While a > b a = a - b Wend fun = a End Function 在調(diào)試時發(fā)現(xiàn)函數(shù)是錯誤的，為使函數(shù)能產(chǎn)生正確的返回值，應做的修改是 D）把While a>b改為While a>=b （30）下列關于通用對話框CommonDialog1的敘述中，錯誤的是 A）只要在“打開”對話框中選擇了文件，并單擊“打開”按鈕，就可以將選中的文件打開 （31）在利用菜單編輯器設計菜單時，為了把組合鍵“Alt+X”設置為“退出(X)”菜單項的訪問鍵，可以將該菜單項的標題設置為 B）退出(

44、&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 For i = Len(ss) To 1 Step -1 m = m + Mid

45、(ss, i, 1) Next Text1.Text = UCase(m) End Sub 程序運行后，在文本框中輸入“Number 100”，并單擊命令按鈕，則文本框中顯示的是 D）001REMBUN （33）窗體的左右兩端各有1條直線，名稱分別為Line1、Line2；名稱為Shape1的圓靠在左邊的Line1直線上（見圖）；另有1個名稱為Timer1的計時器控件，其屬性值為True。要求程序運行后，圓每秒向右移動100，當圓遇到Line2時則停止移動。為實現(xiàn)上述功能，某人把計時器的Interval屬性設置為1000，并編寫了如下程序： Private Sub Timer1_Timer()

46、 For k = Line1.X1 To Line2.X1 Step 100 If Shape1.Left + Shape1.Width < Line2.X1 Then Shape1.Left = Shape1.Left + 100 End If Next k End Sub 運行程序時發(fā)現(xiàn)圓立即移動到右邊的直線處，與題目要求的移動方式不符。為得到與題目要求相符的結(jié)果，下面修改方案中正確的是 B）把 For k = Line1.X1 To Line2.X1 Step 100 和Next k兩行刪除 （34）下列有關文件的敘述中，正確的是 C）隨機文件中，每個記錄的長度是固定的 （35）窗

47、體如圖1所示。要求程序運行時，在文本框Text1中輸入一個姓氏，單擊“刪除”按鈕（名稱為Command1），則可刪除列表框List1中所有該姓氏的項目。若編寫以下程序來實現(xiàn)此功能： Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListCount - 1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub 在調(diào)試時發(fā)現(xiàn)，如輸入“陳”，可以正確刪除所有姓“陳”的項目，但

48、輸入“劉”，則只刪除了“劉邦”、“劉備”項，結(jié)果如圖所示。這說明程序不能適應所有情況，需要改正。正確的修改方案是把For k=0 to List1.ListCount-1改為 A）For k = List1.ListCount - 1 To 0 Step -1 二、填空題（每空2分，共30分） （1）某二叉樹有5個度為2的結(jié)點以及3個度為1的結(jié)點，則該二叉樹中共有 【1】14 個結(jié)點。 （2）程序流程圖中的菱形框表示的是【2】 邏輯條件 或 邏輯判斷 或 條件或判斷。 （3）軟件開發(fā)過程主要分為需求分析、設計、編碼與測試四個階段，其中【3】需求分析 階段產(chǎn)生“軟件需求規(guī)格說明書”。 （4）在數(shù)

49、據(jù)庫技術中，實體集之間的聯(lián)系可以是一對一或一對多的，那么“學生”和“可選課程”的聯(lián)系為【4】多對多。 （5）人員基本信息一般包括：身份證號，姓名，性別，年齡等。其中可以作為主關鍵字的是【5】身份證號。 （6）工程中有Form1和Form2兩個窗體。Form1窗體外觀如圖1所示。程序運行時，在Form1中名稱為Text1的文本框中輸入一個數(shù)值（圓的半徑），然后單擊命令按鈕“計算并顯示”（其名稱為Command1），則顯示Form2窗體，且根據(jù)輸入的圓的半徑計算圓的面積，并在Form2的窗體上顯示出來，如圖2所示。如果單擊命令按鈕時，文本框中輸入的不是數(shù)值，則用信息框顯示“請輸入數(shù)值數(shù)據(jù)！”。請?zhí)?/p>

50、空。 Private Sub Command1_Click() If Text1.Text = "" Then magbox "請輸入半徑！" ElseIf Not IsNumeric(【6】Text1.Text) Then MsgBox "請輸入數(shù)值數(shù)據(jù)！" Else r = Val(【7】Text1.Text) Form2.Show 【8】Form2.Print "圓的面積是" & 3.14 * r * r End If End Sub （7）設有整型變量s，取值范圍為0100，表示學生的成績，有如下程

51、序段： If s >= 90 Then Level = "A" ElseIf s >= 75 Then Level = "B" ElseIf s >= 60 Then Level = "C" Else Level = "D" End If 下面用Select Case結(jié)構(gòu)改寫上述程序，使兩段程序所實現(xiàn)的功能完全相同，請?zhí)羁铡?Select Case s Case【9】 Is >= 95 Level = "A" Case 75 To 90 Level = "B&q

52、uot; Case 60 To 74 Level = "C" Case 【10】Else 或 Is<60 Level = "D" 【11】End Select （8）窗體上有名稱為Command1的命令按鈕。事件過程及2個函數(shù)過程如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z x = 3 y = 5 z = fy(y) Print fx(fx(x), y End Sub Function fx(ByVal a As Integer) a = a + a fx =

53、a End Function Function fy(ByRef a As Integer) a = a + a fy = a End Function 運行程序，并單擊命令按鈕，則窗體上顯示的2個值依次是【12】12和【13】10。 （9）窗體上有名稱為Command1的命令按鈕及名稱為Text1、能顯示多行文本的文本框。程序運行后，如果單擊命令按鈕，則可打開磁盤文件c:test.txt，并將文件中的內(nèi)容（多行文本）顯示在文本框中。下面是實現(xiàn)此能的程序，請?zhí)羁铡?Private Sub Command1_Click() Text1 = "" Number = FreeFi

54、le Open "c:test.txt" For Input As Number Do While Not EOF(【14】Number) Line Input #Number, s Text1.Text = Text1.Text +【15】 s + Chr(13) + Chr(10) Loop Close #Number End Sub參考答案 一選擇題 11.C   12.D   13.A   14.C   15.D16.D   17.A  

55、 18.C   19.B   20.C21.A   22.C   23.A   24.B   25.D26.C   27.D   28.B   29.D   30.A31.B   32.D   33.B   34.C   35.A二填空題  text1.text  Form27.IS ELSE END SELECT8.12  109.NUMBER  S公共基礎試題答案選擇題 1.C 2.B 3.D 4.A 5.B6.A 7.C 8.B 9.C 10.D填空題1.142.