VB資料之家計算機(jī)二級考試

2005-2011全國計算機(jī)二級考試VB歷年真題及答案2005年4月全國計算機(jī)等級考試二級VB筆試試卷ー、選擇題（（1）?（35）每小題2分,共70分）（1）數(shù)據(jù)的存儲結(jié)構(gòu)是指A）存儲在外存中的數(shù)據(jù) B）數(shù)據(jù)所占的存儲空間量〇數(shù)據(jù)在計算機(jī)中的順序存儲方式 D）數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機(jī)中的表示（2）下列關(guān)于棧的描述中錯誤的是A）棧是先進(jìn)后出的線性表 B）棧只能順序存儲〇棧具有記憶作用 D）對棧的插入與刪除操作中,不需要改變棧底指針（3）對于長度為n的線性表，在最壞情況下,下列各排序法所對應(yīng)的比較次數(shù)中正確的是A）冒泡排序為n/2B）冒泡排序為n C）快速排序為n D）快速排序為n（n-l）/2（4）對于長度為n的線性表進(jìn)行順序査找,在最壞情況下所需要的比較次數(shù)為A）log2n B）n/2 C）n D）n+1（5）下列對于線性鏈表的描述中正確的是A）存儲空間不一定是連續(xù)，且各元素的存儲順序是任意的B）存儲空間不一定是連續(xù),且前件元素一定存儲在后件元素的前面〇存儲空間必須連續(xù),且前件元素一定存儲在后件元素的前面D）存儲空間必須連續(xù),且各元素的存儲順序是任意的（6）下列對于軟件測試的描述中正確的是A）軟件測試的目的是證明程序是否正確 B）軟件測試的目的是使程序運行結(jié)果正確C）軟件測試的冃的是盡可能多地發(fā)現(xiàn)程序中 D）軟件測試的目的是使程序符合結(jié)構(gòu)化原則的錯誤（7）為了使模塊盡可能獨立,要求A）模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強(qiáng)B）模塊的內(nèi)聚程度要盡量高,且各模塊間的耦合程度要盡量弱〇模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱D）模塊的內(nèi)聚程度要盡量低,且各模塊間的耦合程度要盡量強(qiáng)（8）下列描述中正確的是A）程序就是軟件 〇軟件既是邏輯實體,又是物理實體B）軟件開發(fā)不受計算機(jī)系統(tǒng)的限制 D）軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合（9）數(shù)據(jù)獨立性是數(shù)據(jù)庫技術(shù)的重要特點之一。所謂數(shù)據(jù)獨立性是指A）數(shù)據(jù)與程序獨立存放 用B）不同的數(shù)據(jù)被存放在不同的文件中 D）以上三種說法都不對〇不同的數(shù)據(jù)只能被對應(yīng)的應(yīng)用程序所使（10）用樹形結(jié)構(gòu)表示實體之間聯(lián)系的模型是A）關(guān)系模型 B）網(wǎng)狀模型 〇層次模型 D）以上三個都是（11）在窗體（名稱為Forml）上畫?個名稱為Textl的文本框和?個名稱為Commandl的命令按鈕,然后編寫ー個事件過程。程序運行以后，如果在文本框中輸入ー個字符，則把命令按鈕的標(biāo)題設(shè)置為“計算機(jī)等級考試”。以下能實現(xiàn)上述操作的事件過程是:PrivateSubTextl_Change()PrivateSubTextl_Change()Commandl.Caption="計算機(jī)等級考試EndSubPrivateSubCommandl_Click()Caption二”計算機(jī)等級考試”EndSubC)C)PrivateSubForml_Click()Textl.Caption=M計算機(jī)等級考試”EndSub Textl.Text=>>計算機(jī)等級考試”D)PrivateSubCommandl_Click() EndSub(12)設(shè)a=5,b=4,c=3,d=2,下列表達(dá)式的值是3>2*bOra=cAndb<>cOrc>dA)1 B)True C)False D)2(13)設(shè)a二"MicrosoftVisualBasicw?則以下使變量b的值為“VisualBasicw的語句是A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,11,10)(14)假定有如下的窗體事件過程,程序運行后單擊窗體,則在彈出的信息框中的標(biāo)題欄中顯示的信息是:PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSubA)MicrosoftVisual B)Microsoft C)Basic D)5(15)設(shè)a="a“，b二"b”，c二”c”，d二”d”,執(zhí)行語句x二Uf((avd),”A“JB”)后,x的值為:A)“a” B)”b” C)”B“ D)"A”(16)為了使命令按鈕(名稱為Command1)右移200,應(yīng)使用的語句是A)Command1.Move-200 B)Command1.Move200C)Command1.Left二Command1.Left+200 D)Command1.Left二Command1.Left-200(17)在窗體上畫一個文本框,然后編寫如下事件過程,程序運行時,在文本框中輸入456,然后單擊窗體,在輸入對話框中輸入123,單擊“確定”按鈕后,在窗體上顯示的內(nèi)容是:PrivateSubForm_Click()x二InputBox("請輸入ー個整數(shù)”)Printx+Text1.TextEndSubA)123 B)456 C)579 D)123456(18)在窗體上畫一個文本框和一個計時器控件,名稱分別為Text!和Timer1,在屬性窗口中把計時器的Interval屬性設(shè)置為100〇,Enabled屬性設(shè)置為False,程序運行后,如果單擊命令按鈕,則每隔?秒鐘在文本框中顯示一次當(dāng)前的時間。以下是實現(xiàn)上述操作的程序,在 處應(yīng)填入的內(nèi)容是PrivateSubCommand1_Click()Timer1. EndSubPrivateSubTimerl_Timer()Text1.Text二TimeEndSubA)Enabled二True B)Enabled二False C)Visible二True D)Visible二False(19)假定在圖片框Picture1中裝入了一個圖形,為了清除該圖形(不刪除圖片框),應(yīng)采用的正確方法是:A)選擇圖片框，然后按Del鍵B)執(zhí)行語句Picture1.Picture二LoadPicture("”)C)執(zhí)行語句Picture1.Picture="”D)選擇圖片框,在屬性窗口中選擇Picture屬性,然后按回車鍵(20)在窗體上畫一個Listl的列表框,ー個名稱為しabell的標(biāo)簽,列表框中顯示若干個項目,當(dāng)單擊列表框中的某個項目時,在標(biāo)簽中顯示被選中的項目的名稱,下列能正確實現(xiàn)上述操作的程序是

(21)在窗體上畫一個命令按鈕,名稱為Commandl?然后編寫如下事件過程:(22)在窗體上畫一個名稱為Commandl的命令PrivateSubCommand1_Click()按鈕,然后編寫如下事件過程:DimiAsInteger,xAsIntegerPrivateSubCommand1_Click()Fori=1To6c="ABCD”Ifi=1Thenx=iForn=1To4Ifi<=4ThenPrint x=x+1NextElseEndSubx=x+2程序運行后,單擊命令按鈕,要求在窗體EndIf上顯示如下內(nèi)容:NextiDPrintxCDEndSubBCD程序運行后,單擊命令按鈕,其輸出結(jié)果ABCD為則在 處應(yīng)填入的內(nèi)容為A)9 B)6A)Left(c,n) B)Right(c,n)C)12 D)15C)Mid(c,n,l) D)Mid(c,n,n)(23)執(zhí)行以下程序段后,x的值為DimxAsInteger,iAsIntegerx=0Fori=20To1Step-2x=x+i\5NextIA)16 B)17C)18 D)19PrivateSubListl_Click()Label1.Caption=PrivateSubListl_Click()Label1.Caption=List1.ListindexEndSubPrivateSubListl_Click()Label1.Name=List1.ListindexEndSubPrivateSubListl_Click()Label1.Name=Listl.TextEndSubPrivateSubListl_Click()Label1.C叩tion=Listl.TextEndSub(24)在VisualBasic工程中,可以作為啟動對象的程序是A)任何窗體或標(biāo)準(zhǔn)模塊 B)任何窗體或過程C)SubMain過程或其他任何模塊 D)SubMain過程或任何窗體(25)假定建立了一個名為Commandl的命令按鈕數(shù)組,則以下說法中錯誤的是A)數(shù)組中毎個命令按鈕的名稱(名稱屬性)均為CommandlB)數(shù)組中每個命令按鈕的標(biāo)題(Caption屬性)都一樣〇數(shù)組中所有命令按鈕可以使用同一個事件過程D)用名稱Commandl(下標(biāo))可以訪問數(shù)組中的每個命令按鈕(26)把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下事件過程:PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)EndSub程序運行后,按鍵盤上的“A”鍵,則在窗體上顯示的內(nèi)容是A)A B)B C)C D)D(27)在窗體上畫一個命令按鈕和一個文本框,名稱分別為Commandl和Textl,然后編寫如下程序:PrivateSubCommand1_Click()a=Inpu出ox(”請輸入日期(1?31)りt=”旅游景點:"&IIf(a>OAnda<=10,“長城","“)&IIf(a>10Anda<=20,”故宮”，”り_&IIf(a>20Anda<=30,”頤和園”,””)Text1.Text=tEndSub程序運行后,如果從鍵盤輸入16,則在文本框中顯示的內(nèi)容是：A)旅游景點:長城故宮 B)旅游景點:長城頤和園C)旅游景點:頤和園D)旅游景點:故宮(28)在窗體上畫一個名稱為Label1的標(biāo)簽,然后編寫如ド事件過程,程序運行后,單擊窗體,在標(biāo)簽中顯示的內(nèi)容是PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSubA)12 B)13 C)14(29)在窗體上畫一個名稱為Comamndl的命令按鈕,然后編寫如下通用過程和命令按鈕的事件過程:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommandl_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序運行后,單擊命令按鈕,則窗體上顯示D)15的是:A)6B)7C)8D)9(30)閱讀程序:OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1To2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSub A)21B)13C)8D)25程序運行后,單擊窗體,輸出結(jié)果為:31)在窗體上畫一個名稱為Commandl的命令按鈕,然后編寫如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerd=0:c=6x=Array(2,4,6,8,10,12)Fori=1To6Ifx(i)>cThend=d+x(i):c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運行后,如果單擊命令按鈕,則在窗體上輸入的內(nèi)容為A)10 B)16C)12 D)20(32)設(shè)有如下程序:PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("請輸入ー個整數(shù)”)DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("請輸入ー個整數(shù)”)LoopPrintc+dEndSub程序運行后,單擊命令按鈕如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0,則輸出結(jié)果是:A)12 B)11C)10 D)9(33)在窗體上畫一個名稱為Commandl的命令按鈕和一個名稱為Textl的文本框,在文本框中輸入以ド字符串:MicrosoftVisualBasicProgramming,然后編寫如ド事件過程:PrivateSubCommandl_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Textl.Text)c=Mid(Textl.Text,i,1)Ifc>="A"Andcv=”Z”ThenPrint#1,LCase(c)；EndIfNextiCloseEndSub程序運行后,單擊命令按鈕,文件outf.txt中的內(nèi)容是:A)MVBP B)mvbpTOC\o"1-5"\h\zC)M D)mV vB bP P(34)在窗體上畫一個名稱為Command)的命令按鈕,然后編寫如下程序:DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox(,,H)IfSWThenPrintfunc(intNum)EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSub程序運行后,單擊命令按鈕,將顯示ー個輸入對話框,如果在對話框中輸入25,則程序的執(zhí)行結(jié)果是:A)輸出〇 B)輸出25C)輸出45 D)無任何輸出(35)設(shè)有如下通用過程:PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗體上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕,然后編寫如ド事件過程:PrivateSubCommandI_Click()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=i+iNextfunarr,nText1.Text=Str(n)EndSub程序運行后,單擊命令按鈕,則在文本框中顯示的內(nèi)容是A)30B)25C)20 D)15二、填空題(每空2分,共30分)請將每一個空的正確答案寫在答題卡【1】?【15】序號的橫線上,答在試卷上不得分。注意:以命令關(guān)鍵字填空的必須拼寫完整。(1)某ニ叉樹中度為2的結(jié)點有18個，則該二樹中有【1】個葉子結(jié)點。(2)在面向?qū)ο蠓椒ㄖ?，類的實例稱為【2】。(3)診斷和改正程序中錯誤的工作通常稱為【3】。(4)在關(guān)系數(shù)據(jù)庫中，把數(shù)據(jù)表示成二維表,每ー個二維表稱為【4】〇(5)問題處理方案的正確而完整的描述稱為［5］。(6)以下語句Printlnt(12345.6789*100+0.5)/100的輸出結(jié)果是:【6】(7)在窗體上畫一個文本框和一個圖片框,然后編寫如下兩個事件過程:PrivateSubForm_Click()Textl.Text="VB程序設(shè)計"EndSubPrivateSubTextl_Change()Picture1.Print"VBProgramminguEndSub程序運行后,單擊窗體,在文本框中顯示的內(nèi)容是【7】,而在圖片框中顯示的內(nèi)容是［8】(8)閱讀下面的程序,程序運行后,單擊窗體,輸出結(jié)果是［9］PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub(9)設(shè)有如下程序:PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】,程序運行后,單擊窗體,輸出結(jié)果為[11](10)設(shè)有如下程序:OptionBase1PrivateSubCommand1_Click()DimarrlDimMinAsInteger,iAsIntegerarrl=Array(12,435,76,-24,78,54,866,43)Min=[12]Fori=2To8Ifarrl(i)<MinThen[13]NextiPrint”最小值是:";MinEndSub以上程序的功能是用Array函數(shù)建立一個含有8個元素的數(shù)組,然后查找并輸出該數(shù)組中的最小值,請?zhí)羁?11)在名稱為Forml的窗體上畫一個文本框,其名稱為Textl,在屬性窗口中把文本框的MultiLine屬性設(shè)置為True,然后編寫如下事件過程:PrivateSubForm_Click()Open"d:\test\smtext1.txt"ForInputAs#1DoWhileNot[14]LineInput#1,aspectswhole$=wholeS+aspects+Chr(13)+Chr(l0)LoopText1.Text=wholeSClose#1Open"d:\test\smtext2.txt”ForOutputAs#1Print#1,[15]Close#1EndSub上述程序的功能是,把磁盤文件smtextl.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來,然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt.請?zhí)羁铡?005年4月全國計算機(jī)等級為試二級VB筆試參考答案選擇題:1—5DBDCA6—10CBDDC11-15ABBCD16-20CDABD21-25ABCDB26-30CDBBA31-35CDBDA填空題:[1]19[9]10[2]對象[10]求!-8的和[3]程序調(diào)試[II]36[4]關(guān)系[12]arrl(l)[5I算法[13]min=arrl(i)[6]12345.68[14]EOF(l)[7]VB程序設(shè)計[15]text1.text(或whole$)[8]VBProgramming2005年9月全國計算機(jī)等級考試二級VB筆試試卷ー、選擇題（每小題2分,共70分）下列各題A）、B）、C）、D）四個選項中,只有一個選項是正確的。請將正確選項填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1）下列敘述中正確的是A）程序設(shè)計就是編制程序 B）程序的測試必須由程序員自己去完成〇程序經(jīng)調(diào)試改錯后還應(yīng)進(jìn)行再測試 D）程序經(jīng)調(diào)試改錯后不必進(jìn)行再測試（2）下列數(shù)據(jù)結(jié)構(gòu)中,能用二分法進(jìn)行查找的是A）順序存儲的有序線性表 B）線性鏈表 C）ニ叉鏈表 D）有序線性鏈表（3）下列關(guān)于棧的描述正確的是A）在棧中只能插入元素而不能刪除元素B）在棧中只能刪除元素而不能插入元素〇棧是特殊的線性表，只能在一端插入或刪除元素D）棧是特殊的線性表，只能在一端插入元素,而在另一端刪除元素（4）下列敘述中1E確的是A）ー個邏輯數(shù)據(jù)結(jié)構(gòu)只能有一種存儲結(jié)構(gòu)B）數(shù)據(jù)的邏輯結(jié)構(gòu)屬于線性結(jié)構(gòu),存儲結(jié)構(gòu)屬于非線性結(jié)構(gòu)Oー個邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲結(jié)構(gòu),且各種存儲結(jié)構(gòu)不影響數(shù)據(jù)處理的效率D）ー個邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲結(jié)構(gòu)，且各種存儲結(jié)構(gòu)影響數(shù)據(jù)處理的效率（5）下列描述中正確的是A）軟件工程只是解決軟件項目的管理問題B）軟件工程主要解決軟件產(chǎn)品的生產(chǎn)率問題〇軟件工程的主要思想是強(qiáng)調(diào)在軟件開發(fā)過程中需要應(yīng)用工程化原則D）軟件工程只是解決軟件開發(fā)中的技術(shù)問題（6）在軟件設(shè)計中，不屬于過程設(shè)計工具的是A）PDL（過程設(shè)計語言） B）PAD圖C）N-S圖 D）DFD圖（7）下列敘述中正確的是A）軟件交付使用后還需要進(jìn)行維護(hù) B）軟件一旦交付使用就不需要再進(jìn)行維護(hù)〇軟件交付使用后其生命周期就結(jié)束 D）軟件維護(hù)是指修復(fù)程序中被破壞的指令

(8)數(shù)據(jù)庫設(shè)計的根本目標(biāo)是要解決D)筒化數(shù)據(jù)維護(hù)A)數(shù)據(jù)共享問題 B)數(shù)據(jù)安全問題 〇D)筒化數(shù)據(jù)維護(hù)(9)設(shè)有如下關(guān)系表:D)T=R/SD)數(shù)據(jù)庫管理員A)T=RCSD)T=R/SD)數(shù)據(jù)庫管理員(10)數(shù)據(jù)庫系統(tǒng)的核心是A)數(shù)據(jù)模型B)數(shù)據(jù)庫管理系統(tǒng) 〇數(shù)據(jù)庫(11)假定一個VisualBasic應(yīng)用程序由一個窗體模塊和一個標(biāo)準(zhǔn)模塊構(gòu)成。為保存該應(yīng)用程序,以下正確的操作是A)只保存窗體模塊文件 〇只保存窗體模塊和標(biāo)準(zhǔn)模塊文件B)分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工 D)只保存工程文件程文件(12)為了清除窗體上的ー個控件,下列正確的操作是A)按回車鍵 〇選擇(單擊)要清除的控件,然后按Del鍵B)按Esc鍵 D)選擇(單擊)要清除的控件,然后按回車鍵(13)以下敘述中錯誤的是A)打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B)當(dāng)程序運行時,雙擊ー個窗體,則觸發(fā)該窗體的DblClick事件〇VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D)事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)(14)設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式Nota<=cOr4*c=bA2Andboa+c的值是A)-1B)1(15)設(shè)a=5,bA)-1B)1(15)設(shè)a=5,b=10,則執(zhí)行A)5~10 B)6~9C)Truec=Int((b-a)*Rnd+a)+1C)6~10D)False后，c值的范圍為D)5~9(16)在窗體上畫一個命令按鈕,名稱為Commandl,然后編寫如下事件過程:PrivateSubCommandl_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub運行程序,單擊命令按鈕,則在彈出的信息框的標(biāo)題欄中顯示的是A)softwareandhardwareB)software C)hardware D)1(17)在窗體上畫一個命令按鈕和一ー個文本框，其名稱分別為Command)和Textl,把文本框的Text屬性設(shè)置為空白,然后編寫如下事件過程:PrivateSubCommand1_Click()a=InputBox("Enteraninteger")b=InputBox("Enteraninteger")Textl.Text=b+aEndSub程序運行后,單擊命令按鈕,如果在輸入對話框中分別輸入8和10,則文本框中顯示的內(nèi)容是A)108B)18 C)810 D)出錯(18)在窗體上畫兩個文本框,其名稱分別為Textl和Text2,然后編寫如下程序:PrivateSubForm_Load()ShowText1.Text""“：Text2.Text"”"：Textl.SetFocusEndSubPrivateSubTextl_Change()Text2.Text二Mid(Textl.Text,8)EndSub程序運行后,如果在文本框Textl中輸入BeijingChina,則在文本框Text2中顯示的內(nèi)容是A)BeijingChinaB)ChinaC)BeijingD)BeijingC(19)在窗體上畫一個列表框和一個命令按鈕，其名稱分別為Listl和Commandl,然后編寫如下事件過程:PrivateSubForm_Load()List1.Additem"Item1”List1.Additem"Item2"List1.Additem"Item3"EndSubPrivateSubCommand1_Click()Listl.List(Listl.ListCount)二“AAAA”EndSub程序運行后,單擊命令按鈕,其結(jié)果為A)把字符串“AAAA”添加到列表框中,但位置不能確定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)〇把列表框中原有的最后ー項改為“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Itemド的前面)(20)假定有如下事件過程:PrivateSubForm_Click()DimxAsInteger,nAsIntegerx二1n二〇DoWhilex<28x=x*3n二n+1LoopPrintx,nEndSub程序運行后,單擊窗體,輸出結(jié)果是A)814 B)563C)281 D)2435(21)有如下程序：PrivateSubForm_Click()DimCheck,CounterCheck二TrueCounter二0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序運行后,單擊窗體,輸出結(jié)果為A)150 B)20-1C)10True D)10False(22)有如下程序:PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序運行后,單擊窗體,輸出結(jié)果為A)12B)30C)24D)18(23)在窗體上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()Dimarrayl(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4arrayl(i,j)=i+jNextjNextiTextl.Text=array1(2,3)+array1(3,4)EndSub程序運行后,單擊命令按鈕,在文本框中顯示的值是A)12B)13C)14D)15(24)在窗體上畫一個命令按鈕,其名稱為Commandl,然后編寫如下事件過程:PrivateSubCommand1_Click()Dimal(4,4),a2(4,4)Fori=1To4Forj=1To4al(i,j)=i+ja2(i,j)=al(i,j)+i+jNextjNextiPrinta1(3,3);a2(3,3)EndSub程序運行后,單擊命令按鈕,在窗體上輸出的是A)66 B)105 C)721 D)612(25)有如下程序:OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(l,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序運行后,単擊窗體,輸出結(jié)果為A)25B)26027D)28(26)在窗體上畫一個命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()Dima(5)AsStringFori=1To5a(i)=Chr(Asc(HAn)+(i-1))NextiForEachbInaPrintb;NextEndSub程序運行后,單擊命令按鈕,輸出結(jié)果是A)ABCDE B)12345C)abcde D)出錯信息(27)以下關(guān)于函數(shù)過程的敘述中,正確的是A)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B)函數(shù)過程的返回值可以有多個〇當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以引用方式傳遞D)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系(28)函數(shù)過程F1的功能是:如果參數(shù)b為奇數(shù),則返回值為1,否則返回值為0。以下能正確實現(xiàn)上述功能的代碼是:A)FunctionFl(bAsInteger) ElseIfbMod2=0Then Return1EndIfReturn0EndIfFunctionFl(bAsInteger)IfbMod2=FunctionFl(bAsInteger)IfbMod2=0ThenFl=0FunctionFl(bAsInteger)IfbMod2=0ThenFl=1ElseFl=0EndIfEndFunctionFl=1EndIfEndFunctionFunctionFl(bAsInteger)IfbMod200ThenReturn0ElseReturn1EndIfEndFunctionElseEndFunctionElse(29)以下關(guān)于KeyPress事件過程中參數(shù)KeyAscii的敘述中正確的是KeyAscii參數(shù)是所按鍵的ASCII碼KeyAscii參數(shù)的數(shù)據(jù)類型為字符串KeyAscii參數(shù)可以省略KeyAscii參數(shù)是所按鍵上標(biāo)注的字符(30)設(shè)窗體上有一個名為Textl的文本框,并編寫如下程序:PrivateSubForm_Load()ShowTextl.Text=""： Textl.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”程序設(shè)計”EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintnVisualBasic**;EndSub程序運行后,如果在文本框中輸入字母“a”,然后單擊窗體,則在窗體上顯示的內(nèi)容是A)VisualBasicB)程序設(shè)計 C)VisualBasic程序設(shè)計D)a程序設(shè)計(31)假定有下表所列的菜單結(jié)構(gòu):標(biāo)題名稱層次顯示appear1(主菜單)大圖標(biāo)bigicon2(子菜單)小圖標(biāo)smallicon2(子菜單)要求程序運行后,如果單擊菜單項“大圖標(biāo)”,程是PrivateSubbigicon_Click()要求程序運行后,如果單擊菜單項“大圖標(biāo)”,程是PrivateSubbigicon_Click()bigicon.Checked=FalseEndSubC)PrivateSubbigicon_Click()bigicon.Checked=TrueEndSub(32)假定通用對話框的名稱為CommonDialogl,則在該菜單項前添加一個“ノ 以下正確的事件過PrivateSubbigicon_Click()Me.appear.bigicon.Checked=TrueEndSubD)PrivateSubbigicon_Click()appear.bigicon.Checked=TrueEndSub命令按鈕的名稱為Commandl,則單擊命令按鈕后,能使打開的對話框的標(biāo)題為“NewTitle”的事件過程是A)PrivateSubCommandl_Click()C)PrivateSubCommand1_Click()CommonDialogl.DialogTitle="NewTitle"CommonDialog1.DialogTitle="NewTitle1'CommonDialog1.ShowPrinterCommonDialog1.ShowOpenEndSubEndSubB)PrivateSubCommandl_Click()D)PrivateSubCommandl_Click()CommonDialog1.DialogTitle="NewTitle'1CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontCommonDialog1.ShowColorEndSubEndSub（33）如果ー個工程含有多個窗體及標(biāo)準(zhǔn)模塊,則以下敘述中錯誤的是A）任何時刻最多只有一個窗體是活動窗體B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊C）用Hide方法只是隱藏?個窗體,不能從內(nèi)存中清除該窗體D）如果工程中含有SubMain過程,則程序一定首先執(zhí)行該過程（34）假定在工程文件中有一個標(biāo)準(zhǔn)模塊,其中定義了如下記錄類型TypeBooksNameAsString*10TelNumAsString*20EndType要求當(dāng)執(zhí)行事件過程Commandl_Click時,在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是A)PrivateSubCommandl_Click()DimBAsBooksOpen"c:\Person.txr,ForOutputAs#1B.Name=InputBox("輸入姓名”)B.TelNum=InputBox("輸入電話號碼”)Write#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommandl_Click（）DimBAsBooksOpen"c:\Person.txt”ForInputAs#1B.Name=InputBox（"輸入姓名”）B.TelNum=InputBox（"輸入電話號碼”）Print#1,B.Name,B.TelNumClose#1EndSub（35）目錄列表框的Path屬性的作用是A）顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名B）顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)〇顯示根目錄下的文件名二、填空題（每空2分,共30分）【15】序號的橫線上,答在試卷上不得分。請將每空的正確答案寫在答題卡【【15】序號的橫線上,答在試卷上不得分。PrivateSubCommand1_Click()DimBAsBooksOpen"c:\Person.txt”ForOutputAs#1Name=InputBox("輸入姓名”)PrivateSubCommand1_Click()DimBAsBooksOpen"c:\Person.txt”ForOutputAs#1Name=InputBox("輸入姓名”)TelNum=InputBox("輸入電話號碼”)Write#1,BClose#1EndSubPrivateSubCommand1_Click()DimBAsBookOpen"c:\Person.txt1'ForInputAs#1Name=InputBox(”輸入姓名”)TelNum=InputBox("輸入電話號碼”)Print#1,B.Name,B.TelNumClose#1EndSubD)顯示指定路徑下的文件(2)算法復(fù)雜度主要包括時間復(fù)雜度和【2】復(fù)雜度。(3)在進(jìn)行模塊測試時,要為每個被測試的模塊另外設(shè)計兩類模塊:驅(qū)動模塊和承接模塊(樁模塊)。其中【3】的作用是將測試數(shù)據(jù)傳送給被測試的模塊,并顯示被測試模塊所產(chǎn)生的結(jié)果。(4)一棵ニ叉樹第六層(根結(jié)點為第一層)的結(jié)點數(shù)最多為【4】個。(5)數(shù)據(jù)結(jié)構(gòu)分為邏輯結(jié)構(gòu)和存儲結(jié)構(gòu),循環(huán)隊列屬于[5]結(jié)構(gòu)。(6)設(shè)有以下函數(shù)過程:Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用語句s=fun(10)調(diào)用此函數(shù),則s的值為【6】〇(7)在窗體上畫一個命令按鈕和一個文本框,然后編寫命令按鈕的Click事件過程。程序運行后,在文本框中輸入ー串英文字母(不區(qū)分大小寫),單擊命令按鈕,程序可找出未在文本框中輸入的其他所有英文字母,并以大寫方式降序顯示到Text!中。例如,若在Textl中輸入的是abDfdb,則單擊Command1按鈕后Textl中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請?zhí)羁?。PrivateSubCommandl_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Textl)s=心c=Whilec>="AnIfInStr(str,c)=0Thens=[7]EndIfc=Chr$(Asc(c)[8])WendIfsonnThenTextl=sEndIfEndSubPrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fun(n)/fun(PrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fun(n)/fun([9])/fun(r)か---計算。下圖窗體中3個文本框的名稱依r!(n-r)!次是Textl、Text2、Text3。程序運行時在Textl、Text2中分別輸入n和r的值,單擊Command!按鈕即可求出選法的個數(shù),并顯示在Text3文本框中(見下圖)。請?zhí)羁铡?/p>

EndSubFunctionfun(nAsInteger)aslongDimtAsLong[10]EndSubFunctionfun(nAsInteger)aslongDimtAsLong[10]Fork=1Tont=t*kNextfun=tEndFunction（9）以下是ー個比賽評分程序。在窗體上建立一個名為Textl的文本框數(shù)組,然后畫一個名為Text2的文本框和名為Command）的命令按鈕。運行時在文本框數(shù)組中輸入7個分?jǐn)?shù),單擊“計算得分”命令按鈕,則最后得分顯示在Text2文本框中（去掉ー個最高分和一個最低分后的平均分即為最后得分）,如圖所示。請?zhí)羁?。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=[11]Fork=[12]To6Ifmax<Textl(k)Thenmax=Textl(k)EndIfIfmin>Textl(k)Thenmin=Textl(k)EndIfsum=sum+Text1(k)NextkText2=([13])/5EndSub（10）如圖所示,在列表框Listl中已經(jīng)有若干人的簡單信息,運行時在Textl文本框（即“查找對象”右邊的文本框）輸入ー個姓或姓名,單擊“查找”按鈕,則在列表框中進(jìn)行査找,若找到,則把該人的信息顯示在Text2文本框中。若有多個匹配的列表項,則只顯示第1個匹配項;若未找到,則在Text2中顯示“查無此人”。請?zhí)羁铡?For?l張李馬李陳劉郝黃張李馬李陳劉郝黃紅成淮東方借殼立女男男男女女男男查找對象:李成 男PrivateSubCommand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len([14])k=0Whilek<Listl.ListCountAndNotfoundIfTextl=Left$(Listl.List(k),n)ThenText2=[15]found=TrueEndIfk=k+1WendIfNotfoundThenText2="查無此人"EndIfEndSub2005年9月全國計算機(jī)等級考試二級VB筆試參考答案選擇題[1-5]CACDC[6-10]DAABB[11-15]BCCDC[16-20]CABBA[21-251DAADC[26-30]ADBAC[31-351CCDAB填空題[11數(shù)據(jù)庫系統(tǒng)[21空間[31驅(qū)動模塊[4]32[5l存儲結(jié)構(gòu)[6130[71s&c[81-1[91n-r[101t=l[111Textl(O)[12]1[13](sum-max-min) [14]textl.text[15]listl.list(k)D)數(shù)據(jù)傳輸特性軟件維護(hù)只包括對程序代碼的維護(hù)以上D)數(shù)據(jù)傳輸特性軟件維護(hù)只包括對程序代碼的維護(hù)以上三種說法都不對A)隊列B)棧 C)(5)下列敘述中正確的是。A)線性鏈表是線性表的鏈?zhǔn)酱鎯Y(jié)構(gòu)B)棧與隊列是非線性結(jié)構(gòu)雙向鏈表 D)二叉樹C)雙向鏈表是非線性結(jié)構(gòu)D)只有根結(jié)點的ニ叉樹是線性結(jié)構(gòu)2006年4月全國計算機(jī)等級考試二級VB筆試試卷ー、選擇題(每小題2分,共70分)下列各題A)、B)、C)、D)四個選項中,只有一個選項是正確的。請將正確選項填涂在答題卡相應(yīng)位置上,答在試卷上不得分。(1)下列選項中不屬于結(jié)構(gòu)化程序設(shè)計方法的是。A)自頂向下 B)逐步求精 〇模塊化D)可復(fù)用(2)兩個或兩個以上模塊之間關(guān)聯(lián)的緊密程度稱為。A)耦合度 B)內(nèi)聚度 C)復(fù)雜度(3)下列敘述中正確的是。A)軟件測試應(yīng)該由程序開發(fā)者來完成 〇B)程序經(jīng)調(diào)試后ー一般不需要再測試 D)(4)按照“后進(jìn)先出”原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是。(6)對如下ニ叉樹進(jìn)行后序遍歷的結(jié)果為。A)ABCDEFB)DBEAFCA)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度為7的滿ニ叉樹中,葉子結(jié)點的個數(shù)為。A)32 B)31C)64 D)63“商品”與“顧客”兩個實體集之間的聯(lián)系一般是。A) ー對ー B) ー對多 C)多對ー D)多對多(9)在E-R圖中，用來表示實體的圖形是。A)矩形 B)橢圓形 〇菱形 D)三角形(10)數(shù)據(jù)庫DB、數(shù)據(jù)庫系統(tǒng)DBS、數(shù)據(jù)庫管理系統(tǒng)DBMS之間的關(guān)系是。A)DB包含DBS和DBMS B)DBMS包含DB和DBSC)DBS包含DB和DBMSD)沒有任何關(guān)系(11)以下關(guān)于VisualBasic特點的敘述中,錯誤的是。VisualBasic是采用事件驅(qū)動編程機(jī)制的語言VisualBasic程序既可以編譯運行，也可以解釋運行C)構(gòu)成VisualBasic程序的多個過程沒有固定的執(zhí)行順序D)VisualBasic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化程序的三種基本結(jié)構(gòu)(12)以下敘述中，錯誤的是。ー個VisualBasic應(yīng)用程序可以含有多個標(biāo)準(zhǔn)模塊D)標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas文件ー個VisualBasic工程可以含有多個窗體文件〇標(biāo)準(zhǔn)模塊文件可以屬于某個指定的窗體文件(13)以下敘述中,錯誤的是。A)在VisualBasic中，對象所能響應(yīng)的事件是由系統(tǒng)定義的B)對象的任何屬性既可以通過屬性窗口設(shè)定,也可以通過程序語句設(shè)定VisualBasic中允許不同對象使用相同名稱的方法VisualBasic中的對象具有自己的屬性和方法

(14)設(shè)有如下語句:Dima,bAsIntegerc=MVisualBasicMd=#7/20/2005#以下關(guān)于這段代碼的敘述中,錯誤的是。a被定義為Integer類型變量 〇c中的數(shù)據(jù)是字符串b被定義為Integer類型變量 D)d中的數(shù)據(jù)是日期類型(15)以下能從字符串"VisualBasic”中直接取出子字符串"Basic"的函數(shù)是。A)Left B)MidC)StringD)Instr(16)設(shè)a=4,b=3,c=2,d=l,下歹リ表達(dá)式a>b+lOrcvdAndbMode的值是。A)True B)1C)-1D)0(17)以下可以作為VisualBasic變量名的是。A)A#A B)counstAC)3AD)?AA(18)設(shè)x=4,y=6.則以下不能在窗體上顯示出“A=10”的語句是。A)PrintA=x+yB)Print"A=";x+yC)Print"A="+Str(x+y) D)Print"A="&x+y(19)假定有如下的命令按鈕(名稱為Commandl)事件過程:PrivateSubCommandl_Click()x=InputBox("輸入:","輸入整數(shù)")MsgBox"輸入的數(shù)據(jù)是：”,，”輸入數(shù)據(jù)："+xEndSub程序運行后,單擊命令按鈕,如果從鍵盤上輸入整數(shù)10,則以下敘述中錯誤的是。A)x的值是數(shù)值10 〇信息框的標(biāo)題是“輸入數(shù)據(jù):10”B)輸入對話框的標(biāo)題是“輸入整數(shù)” D)信息框中顯示的是“輸入的數(shù)據(jù)是:”(20)在窗體上畫(20)在窗體上畫1個命令按鈕(名稱為Commandl)和1個文本框(名稱為Textl),然后編寫如下事件過程:PrivateSubCommandl_Click()x=Val(Textl.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序運行后,在文本框中輸入3,然后單擊命令按鈕,則以下敘述中正確的是。A)執(zhí)行y=x*x B)執(zhí)行y=?x〇先執(zhí)行y=x*x,再執(zhí)行y=?xD)程序出錯(21)設(shè)有命令按鈕Commandl單擊事件過程,代碼如下：PrivateSubCommand1_Click()Dima(30)AsIntegerFori=lTo30a(i)=Int(Rnd*100)NextForEacharrltemInaIfarrltemMod7=0ThenPrintarrltem；IfarrItem>90ThenExitForNextEndSub對于該事件過程,以下敘述中錯誤的是。A)a數(shù)組中的數(shù)據(jù)是30個100以內(nèi)的整數(shù)B)語句ForEacharrltemIna有語法錯誤IfarrltemMod7=0 語句的功能是輸出數(shù)組中能夠被7整除的數(shù)IfarrItem>90 語句的作用是當(dāng)數(shù)組元素的值大于90時退出For循環(huán)(22)設(shè)有命令按鈕Commandl的單擊事件過程，|代碼如下:PrivateSubCommand1_Click()鈕,然后編寫如下事件過程:Dima(3,3)AsIntegerPrivateSubCommand1_Click()Fori=lTo3a=0Forj=lTo3Fori=lTo2a(i,j)=i*j+iForj=lTo4NextjIfjMod2<>0ThenNextia=a-lSum=0EndIfFori=lTo3a=a+lSum=Sum+a(i,4-i)NextjNextiNextiPrintSumPrintaEndSubEndSub運行程序,單擊命令按鈕,輸出結(jié)果是。程序運行后,單擊命令按鈕,輸出結(jié)果是A)20 B)7 C)16 D)A)0 B)2 C)3 D)174(23)在窗體上畫1個名稱為Command)的命令按(24)窗體上有名稱分別為TextKText2的2個文本框,有一個由3個單選按鈕構(gòu)成的控件數(shù)組Oplionl,如圖1所示。程序運行后,如果單擊某個單選按鈕,則執(zhí)行Textl中的數(shù)值與該單選按鈕所對應(yīng)的運算(乘以1、10或100),并將結(jié)果顯示在Texl2中,如圖2所示。為了實現(xiàn)上述功能,在程序中的問號。)處應(yīng)填入的內(nèi)容是。圖1圖2圖1圖2PrivateSubOptionl_Click(IndexAsInteger)IfTextl.Textou'ThenSelectCase?CaseOText2.Text=Val(Text1.Text)Text2.Text=Val(Text1.Text)*10Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSubC)Option1(Index)D)A)Index C)Option1(Index)D)Option1(Index).Value(25)在窗體上畫I個命令按鈕,其名稱為Commandl,然后編寫如ド程序:PrivateSubCommandl_Click()Dima(10)AsIntegerDimxAsIntegerFori=lTo10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序運行后,單擊命令按鈕,輸出結(jié)果為。A)12 B)15 C)17 D)18(26)以下關(guān)于過程的敘述中,錯誤的是。A)事件過程是由某個事件觸發(fā)而執(zhí)行的過程 C)可以在事件過程中調(diào)用通用過程B)函數(shù)過程的返回值可以有多個 D)不能在事件過程中定義函數(shù)過程(27)在窗體上畫3個標(biāo)簽、3個文本框(名稱分別為Textl、Text2和Text3)和1個命令按鈕(名稱為Command1)?外觀如圖所示。編寫如卜程序:PrivateSubForm_Load()Text1.Textゴ"Text2.Text=,H,Text3.Text=H"EndSubPrivateSubCommand1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByValxAsInteger,ByVaiyAsInteger)DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction運行程序,在Text1文本框中輸入36,在Text2文本框中輸入24,然后單擊命令按鈕,則在Text3文本框中顯示的內(nèi)容是。

A)4B)6C)8D)12A)4B)6C)8D)12(28)窗體上有名稱分別為Textl、Text2的2個文本框,要求文本框Textl中輸入的數(shù)據(jù)小于500,文木框Text2中輸入的數(shù)據(jù)小于100〇,否則重新輸入。為了實現(xiàn)上述功能,在以下程序中問號(?)處應(yīng)填入的內(nèi)容是PrivateSubTextl_LostFocus()CallCheckInput(Textl,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2,1000)EndSubSubChecklnput(tAs?,xAsInteger)IfVal(t.Text)>xThenMsgBox”請重新輸入!”EndIfEndSubA)Text B)SelText C)Control D)Form(29)在窗體上畫1個文本框,其名稱為Textl,然后編寫如下過程:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode+2)EndSub程序運行后,把焦點移到文本框中,此時如果敲擊“A”鍵,則輸出結(jié)果為。A)A B)A C)A D)AA B C D(30)為了使列表框中的項目呈多列顯示,需要設(shè)置的屬性為。A)Columns B)Style C)List D)MultiSelect(31)在窗體上畫1個命令按鈕，名稱為Commandl,然后編寫如下程序:DimFlagAsBooleanPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox("請輸入:*')IfFlagThenPrintf(intNum)EndSubFunctionf(XAsInteger)AsIntegerIfX<10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Flag=TrueEndSub運行程序,首先單擊窗體,然后單擊命令按鈕,在輸入對話框中輸入5,則程序的輸出結(jié)果為。A)0 B)5 C)15 D)無任何輸出(32)在菜單編輯器中建立1個名稱為MenuO的菜單項，將其“可見”屬性設(shè)置為False,并建立其若干子菜單，然后編寫如下過程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenPopupMenuMenuOEndIfEndSub則以下敘述中錯誤的是。A)該過程的作用是彈出ー個菜單B)單擊鼠標(biāo)右鍵時彈出菜單C)MenuO是在菜單編輯器中定義的彈出菜單的名稱D)參數(shù)X、丫指明鼠標(biāo)當(dāng)前位置的坐標(biāo)(33)窗體上有1個名稱為CD1的通用對話框，1個名稱為Commandl的命令按鈕。命令按鈕的單擊事件過程如下:PrivateSubCommandl_Click()CDl.FileName=""CDl.Filter="AUFilesl*.*l(*.DoC)l*.Docl(*.Txt)l*.txt"CDl.FilterIndex=2CDl.Action=lEndSub關(guān)于以上代碼，錯誤的敘述是。A)執(zhí)行以上事件過程，通用對話框被設(shè)置為“打開”文D)以上代碼不對文件執(zhí)行讀寫操作件對話框B)通用對話框的初始路徑為當(dāng)前路徑〇通用對話框的默認(rèn)文件類型為?.Txt(34)以下敘述中錯誤的是。A)用Shell函數(shù)可以執(zhí)行擴(kuò)展名為.exe的應(yīng)用程序B)若用Static定義通用過程，則該過程中的局部變量都被默認(rèn)為Static類型〇Static類型的變量可以在標(biāo)準(zhǔn)模塊的聲明部分定義D)全局變量必須在標(biāo)準(zhǔn)模塊中用Public或Global聲明(35)以下關(guān)于文件的敘述中,錯誤的是。A)使用Append方式打開文件時，文件指針被定位于文件尾B)當(dāng)以輸入方式(Input)打開文件時，如果文件不存在，則建立一個新文件C)順序文件各記錄的長度可以不同D)隨機(jī)文件打開后，既可以進(jìn)行讀操作，也可以進(jìn)行寫操作二、填空題(每空2分,共30分)請將每空的正確答案寫在答題卡［1】?【15】序號的橫線上,答在試卷上不得分。(1)對長度為10的線性表進(jìn)行冒泡排序，最壞情況下需要比較的次數(shù)為［1L(2)在面向?qū)ο蠓椒ㄖ?，?】描述的是具有相似屬性與操作的一組對象。(3)在關(guān)系模型中，把數(shù)據(jù)看成是二維表，每ー個二維表稱為ー個［31(4)程序測試分為靜態(tài)分析和動態(tài)測試。其中【4】是指不執(zhí)行程序，而只是對程序文本進(jìn)行檢査，通過閱讀和討論,分析和發(fā)現(xiàn)程序中的錯誤。(5)數(shù)據(jù)獨立性分為邏輯獨立性與物理獨立性。當(dāng)數(shù)據(jù)的存儲結(jié)構(gòu)改變時，其邏輯結(jié)構(gòu)可以不變，因此,基于邏輯結(jié)構(gòu)的應(yīng)用程序不必修改,稱為【5】。(6)下列語句的輸出結(jié)果是[6LPrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00”)(7)在窗體上畫(7)在窗體上畫1個命令按鈕,其名稱為Command1?然后編寫如下事件過程:PrivateSubCommandl_Click()Dimarr(lTo100)AsIntegerFori=lTo100arr(i)=Int(Rnd*1000)NextiMax=arr(l)：Min=arr(1)Fori=lTo100If[7]Then Max=arr(i)If[8]Then Min=arr(i)NextiPrinf'Maxゴ;Max,"Minゴ:MinEndSub程序運行后,單擊命令按鈕,將產(chǎn)生100個1000以內(nèi)的隨機(jī)整數(shù),放入數(shù)組arr中,然后查找并輸出這100個數(shù)中的最大值Max和最小值Min,請?zhí)羁铡?8)在窗體上畫1個名稱為Command1的命令按鈕和2個名稱分別為Textl、Text2的文本框,如圖所示,然后編寫如下程序:FunctionFun(xAsInteger,ByVaiyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=-10：b=5Textl.Text=Fun(a,b)Text2.Text=Fun(a,b)EndSub程序運行后,單擊命令按鈕,Textl和Text2文本框顯示的內(nèi)容分別是[9]和【10】。(9)在窗體上畫1個命令按鈕和1個文本框,其名稱分別為Commandl和Textl,然后編寫如下代碼:DimSaveAllAsStringPrivateSubCommandl_Click()Text1.Text=Left(UCase(SaveAll),4)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序運行后,在文本框中輸入abcdefg,單擊命令按鈕,則文本框中顯示的內(nèi)容是【11】。(10)在窗體上畫1個命令按鈕和1個通用對話框,其名稱分別為Commandl和CommonDialogl,然后編寫如下事件過程:PrivateSubCommand1_Click()CommonDialogl.【12】ゴ打開文件”CommonDialog1.Filter='fAllFiles(*.*)1*.*"CommonDialog1.InitDirゴC：\CommonDialog1.ShowOpenEndSub該程序的功能是,程序運行后,單擊命令按鈕,將顯示“打開”文件對話框,其標(biāo)題是“打開文件”，在，，文件類型，，欄內(nèi)顯示，，ARFiles(*.*)”,并顯示C盤根目錄下的所有文件,請?zhí)羁铡?11)在窗體上畫1個文本框,名稱為Textl,然后編寫如下程序:PrivateSubForm_Load()Opened：\temp\dat.txtMForOutputAs#lTextl.Textゴ"

EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)If[13]=13ThenIfUCase(Textl.Text)=[14]ThenClose1EndElseWrite#),[15]Text1.Textゴ"EndIfEndIfEndSub以上程序的功能是,在D盤temp目錄下建立1個名為dat.txt的文件,在文本框中輸入字符,每次按回車鍵(回車符的ASCH碼是13)都把當(dāng)前文本框中的內(nèi)容寫入文件dat.txt,并清除文本框中的內(nèi)容;如果輸入“END”,則結(jié)束程序。請?zhí)羁铡?006年4月全國計算機(jī)等級考試二級VB筆試參考答案2006年4月全國計算機(jī)等級考試二級VB筆試參考答案ー、選擇題(1)…(5)DADBA (6)—(10)DCDAC(16)…(20)DBAAA(31)-(35)BBCCB二、填空題(1)45(2)類(3)關(guān)系(4)靜態(tài)分析(靜態(tài)測試)(5)物理獨立性(21)…(25)BCDAD(11