全國(guó)計(jì)算機(jī)考試二級(jí)筆試試卷

歷年計(jì)算機(jī)二級(jí)筆試試題匯編全國(guó)計(jì)算機(jī)考試二級(jí)筆試試卷VisualBasic語言程序設(shè)計(jì)（考試時(shí)間90分，滿分100分）2005年4月一、選擇題（每小題2分，共70分）下列各題A）、B）、C）,D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題上相應(yīng)位置上，答在試卷上不得分。（1）數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指A）存儲(chǔ)在外存中的數(shù)據(jù) B）數(shù)據(jù)所占的存儲(chǔ)空間量C）數(shù)據(jù)在計(jì)算機(jī)中的順序存儲(chǔ)方式D）數(shù)據(jù)的邏輯結(jié)構(gòu)在計(jì)算機(jī)中的表示（2）下列關(guān)于棧的描述中錯(cuò)誤的是A）棧是先進(jìn)后出的線性表B）棧只能順序存儲(chǔ)C）棧具有記憶作用D）時(shí)棧的插入與刪除操作中，不需要改變棧底指針（3）對(duì)于長(zhǎng)度位n的線性表，在最壞情況下，下列各排序法所對(duì)應(yīng)的比較次數(shù)中正確的是A）冒泡排序?yàn)閚/2 B）冒泡排序?yàn)閚C）快速排序?yàn)閚 D）快速排序?yàn)閚（n-l）/2（4）對(duì)長(zhǎng)度為n的線性表進(jìn)行順序查找，在最壞情況下所需要的比較次數(shù)為A）log2n B）n/2 C）n D）n+1（5）下列對(duì)于線性鏈表的描述中正確的是A）存儲(chǔ)空間不一定是連續(xù)，且各元素的存儲(chǔ)順序是任意的B）存儲(chǔ)空間不一定是連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面C）存儲(chǔ)空間必須連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面D）存儲(chǔ)空間必須連續(xù)，且各元素的存儲(chǔ)順序是任意的（6）下列對(duì)于軟件測(cè)試的描述中正確的是A）軟件測(cè)試的目的是證明程序是否正確B）軟件測(cè)試的目的是使程序運(yùn)行結(jié)果正確C）軟件測(cè)試的目的是盡可能多地發(fā)現(xiàn)程序中的錯(cuò)誤D）軟件測(cè)試的目的是使程序符合結(jié)構(gòu)化原則（7）為了使模塊盡可能獨(dú)立，要求A）模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強(qiáng)B）模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量弱C）模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱D）模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量強(qiáng)（8）下列描述中正確的是A）程序就是軟件B）軟件開發(fā)不受計(jì)算機(jī)系統(tǒng)的限制C）軟件既是邏輯實(shí)體，又是物理實(shí)體D）軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合（9）數(shù)據(jù)獨(dú)立性是數(shù)據(jù)庫(kù)技術(shù)的重要特點(diǎn)之一。所謂數(shù)據(jù)獨(dú)立性是指A）數(shù)據(jù)與程序獨(dú)立存放B）不同的數(shù)據(jù)被存放在不同的文件中C)不同的數(shù)據(jù)只能被對(duì)應(yīng)的應(yīng)用程序所使用D)以上三種說法都不對(duì)(10)用樹形結(jié)構(gòu)表示實(shí)體之間聯(lián)系的模型是A)關(guān)系模型B)網(wǎng)狀模型C)層次模型 D)以上三個(gè)都是(11)在窗體(名稱為Forml)上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕，然后編寫一個(gè)事件過程。程序運(yùn)行后，如果在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過程是V)PrivateSubTextl_Change()Commandl.Caption="計(jì)算機(jī)等級(jí)考試”EndSubPrivateSubCommandl_Click()Caption="計(jì)算機(jī)等級(jí)考試”EndSubPrivateSubForml_Ciick()Text1.Text="計(jì)算機(jī)等級(jí)考試”EndSubPrivateSubCommandl_Click()Textl.Text="計(jì)算機(jī)等級(jí)考試”EndSub(12)設(shè)a=5,b=4,c=3,d=2>F列表達(dá)式的值是3>2*bOra=cAndbocOrc>dA)1 B)True C)Fasle D)2(13)設(shè)a="MicrosoftVisualBasic"，則以下變量b的值為“VisualBasic”的語句是A)b=Left(a,10) B)b=Mid(a,10)C)b=Right(a,10) D)b=Mid(a,l1,10)(14)假定有如下的窗體事件代碼：PrivateSubForm_Click()a$=*'MicrosoftVisualBasic1,b$=Right(a$,5)c$=Mid(a$,l,9)MsgBoxa$,34,b$,c$,5EndSub程序運(yùn)行后，單擊窗體，則在彈出的信息框的標(biāo)題欄中顯示的信息是A)MicrosoftVisual B)MicrosoftC)Basic D)5(15)設(shè)a="a"，b="b",c="c"，d="d"，執(zhí)行語句x=HF((a<B)Or(c>D),后，x的值為A)B) C) D)(16)為了使命令按鈕(名稱為Commandl)右移200,應(yīng)使用的語句是Comandl.Move-200Comandl.Move200Command1.Left=Command1.Left+200Command1.Left=Command1.Left-200(17)在窗體上畫一個(gè)文本框，然后編寫如下事件過程：PrivateSubForm_Click()x=InputBox(“請(qǐng)輸入一個(gè)整數(shù)”)Printx+Textl.textEndSub程序運(yùn)行時(shí)，在文本框輸入456,然后單擊窗體，在輸入對(duì)話框中輸入123,單擊“確定”按鈕后，在窗體上顯示的內(nèi)容為A)123 B)456 C)579 D)123456(18)在窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為Text1和Timer1,在屬性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000.Enabled屬性設(shè)置為False。程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。以下是實(shí)現(xiàn)上述操作的程序：PrivateSubCommandl_Click()Timer1.EndSubPrivateSubTimerl_Timer()Textl.Text=TimeEndSub在 處應(yīng)填入的內(nèi)容是A)Enabled=True B)Enabled=FalseC)Visible=True D)Visible=False(19)假定在圖片框Picture1中裝入一個(gè)圖形，為了清除該圖形(不刪除圖片框)，應(yīng)該用的正確方法是A)選擇圖片框，然后按Del鍵B)執(zhí)行語句Picturel.Picture=LoadPicture ")C)執(zhí)行語句Picturel.Picture=""D)選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵。(20)在窗體上畫一個(gè)名稱為L(zhǎng)istl的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，列表框中顯示若千個(gè)項(xiàng)目。當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中項(xiàng)目的名稱。下列能正確實(shí)現(xiàn)上述操作的程序是PrivateSubListl_Click()Label1.Caption=Listl.ListindexEndSubPrivateSubListl_Click()LabelI.Name=List1.ListindexEndSubPrivateSubListl_Click()Label1.Name=List1.TextEndSubPrivateSubListl_Click()Label1.Caption=List1.TextEndSub(21)在窗體上畫一個(gè)命令按鈕，其名稱為Commands然后編寫如下事件過程：PrivateSubCommandl_Click()DimiAsInteger,xAsIntegerFori=lTo6Ifi=lThenx=iIfi<=4Thenx=x+lElsex=x+2EndIfNextiPrintxEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為A)9 B)6 C)12 D)15(22)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommandl_Click()c="ABCD"Forn=lTo4PrintNextEndSub程序運(yùn)行吼，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：DCDBCDABCD則在處應(yīng)填入的內(nèi)容為A)Left(c,n)B)Right(c,n) C)Mid(c,n,l)D)Mid(c,n,n)(23)執(zhí)行以下程序段DimxAsIntegerjAsIntegerx=0Fori=20To1Step-2x=x+i\5Nexti后，X的值為A)16 B)17 C)18 D)19(24)在VisualBisic工程塊中，可以作為“啟動(dòng)對(duì)象”的程序是A)任何窗體或標(biāo)準(zhǔn)模塊 B)任何窗體或過程C)SubMain過程或其他任何模塊D)SubMain過程或任何窗體(25)假設(shè)建立了一個(gè)名為Commandl的命令按鈕數(shù)組，則以下說法中錯(cuò)誤的是A)數(shù)組中每個(gè)命令按鈕的名稱(Name屬性)均為CommandlB)數(shù)組中每個(gè)命令按鈕的標(biāo)題(Caption屬性)都一樣C)數(shù)組中所有命令按鈕可以使用同一個(gè)事件過程D)用名稱Commandl(下標(biāo))可以訪問數(shù)組中的每個(gè)命令按鈕(26)把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下事件過程PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringCh=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)EndSub程序運(yùn)行后，按鍵盤上的“A”鍵，則在窗體上顯示的內(nèi)容是A)A B)B C)C D)D(27)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，名稱分別為Commandl和Textl,然后編寫如下程序：PrivateSubCommandl_Click()a=InputBox("請(qǐng)輸入日期(1?31)”)t=”旅游景點(diǎn)：”.&IIf(a>0Anda<=10,<W&Hf(a>10Anda<=20,"游&IIf(a>20Anda<=31,"頤和園)Text1.Text=tEndSub程序運(yùn)行后，如果從鍵盤上輸入16,則在文本框中顯示的內(nèi)容是A)旅游景點(diǎn)：長(zhǎng)城故宮 B)旅游景點(diǎn)：長(zhǎng)城頤和園C)旅游景點(diǎn)：頤和園 D)旅游景點(diǎn)：故宮(28)在窗體上畫一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，然后編寫如下事件過程：PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSub程序運(yùn)行后，單擊窗體，在標(biāo)簽中顯示的內(nèi)容是A)12 B)13 C)14 D)15(29)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=lEndIfEndFunctionPrivateSubCommandl_Click()DimiAsIntegersAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是A)6 B)7 C)8 D)9(30)閱讀程序：OptionBaseIDimarr()AsIntegerPrivateSubForm_Click()DimiAsIntegerJAsIntegerReDimarr(3,2)Fori=lTo3Forj=lTo2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)21 B)13 C)8 D)25(31)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下程序:OptionBase1PrivateSubCommandl_Click()DimcAsInteger,dAsIntegerd=0c=6x=Array(2,4,6,8,10,12)Fori=lTo6Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容誤

A)10 B)16(32)設(shè)有如下程序A)10 B)16(32)設(shè)有如下程序C)12D)20PrivateSubCommandl_Click()DimcAsInteger,dAsIntegerc=4d=lnputBox(“請(qǐng)輸入一個(gè)整數(shù)”)DoWhiled>0Ifd>cThenc=c+lEndIfd=InputBox("請(qǐng)輸入??個(gè)整數(shù)”)loopPrintc+dEndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中依次輸入1、2、3、4、5、6、7、8、9、0,則輸出結(jié)果是A)12 B)11 C)10 D)9(33)在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Textl的文本框，在文本框中輸入以下字符串：MicrosoftVisualBasicProgramming然后編寫如下事件過程：PrivateSubCommandl_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Textl.Text)c=Mid(Text1.Text,i,1)Ifc>=''A"Andcv='Z'ThenPrint#l,LCase(C)EndIfNextiCloseEndSub程序運(yùn)行后，單擊命令按鈕，文件outf.txt中的內(nèi)容是TOC\o"1-5"\h\zA)MVBP B)mvbpC)M D)mV vB bP P(34)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=2()+XEndIfFunc=YEndFunctionPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSubPrivateSubCommandl_Click()DimintNumAsIntegerintNum=InputBox("")IfSWThenprintfunc(intNum)EndIfEndSub程序運(yùn)行后，單擊命令按鈕，將顯示?個(gè)輸入對(duì)話框，如果在對(duì)話框中輸入25,則程序的執(zhí)行結(jié)果為A)輸出0 B)輸出25C)輸出45D)無任何輸出(35)設(shè)有如下通用過程：PrivateSubFun(a()AsIntegersAsInteger)Fori=lTo5x=x+a(i)NextEndSub在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下的事件過程：PrivateSubCommandl_Click()Dimarr(5)AsInteger,nAsIntegerFori=lTo5arr(i)=i+iNextFunarr,nTextl.Text=Str(n)EndSub程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是A)30 B)25 C)20 D)15二填空題(每空2分，共30分)將每空的正確答案寫在答題卡【1】?【15】序號(hào)的橫線上，答在試卷上不得分。(1)某二叉樹中度為2的結(jié)點(diǎn)有18個(gè)，則該二叉樹中有 【1】個(gè)葉子結(jié)點(diǎn)。(2)在面向?qū)ο蠓椒ㄖ?，類的?shí)例稱為【2】o(3)診斷和改正程序中錯(cuò)誤的工作通常稱為【3】.(4)在關(guān)系數(shù)據(jù)庫(kù)中，把數(shù)據(jù)表示成二維表，每一個(gè)二維表稱為 【4】o(5)問題處理方案的正確而完整的描述稱為【5】o(6)以下語句的輸出結(jié)果是[6】oPrintInt(12345.6789*100+0.5)/100(7)在窗體上畫一個(gè)文本框和一個(gè)圖片框，然后編寫如下兩個(gè)事件過程：PrivateSubForm_Click()Textl.Text=nVB程序設(shè)計(jì)”EndSubPrivateSubTextl_Change()Picture1.Print"VBProgramming"EndSub程序運(yùn)行后，單擊窗體，則在文本框中顯示的內(nèi)容是【7]，而在圖片框中顯示的內(nèi)容是[8]o(8)閱讀下面程序：PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Countei^Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為[9]o(9)設(shè)有如下程序：PrivateSubForm_Click()DimaAsIntegern=8s=0Dos=s+nn=n-lLoopWhilen>0PrintsEndSub以上程序的功能是[10]o程序運(yùn)行后，單擊窗體，輸出結(jié)果為[11].(10)設(shè)有如果程序：OptionBase1PrivateSubCommandl_Click(0DimarrlDimMinAsInteger,!AsIntegerarrl=Array（12,435,76,-24,78,54,866,43）Min=[12]Fori=2To8Ifarrl（i）＜MinThen[13]NextiPrint”最小值是："；MinEndSub以上程序的功能是：用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組值各元素的最小值。請(qǐng)?zhí)羁?。?1）在名稱為Forml的窗體上畫一個(gè)文本框，其名稱為Textl,在屬性窗口值把該文本框的MultiLine屬性設(shè)置為True,然后編寫如下的事件過程：PrivateSubForm_Click（）Open,,d:\text\smtextl.txtnForInputAs#1DoWhileNot[14]LineInput#l,aspect$Whole$=whole$+aspect$+Chr$（13）+Chr$（10）LoopText1.Text=whole$Close#1Open,,d:\text\smtext2.txtHForOutputAs#1Print#1, [15]Close#1EndSub上述程序的功能是，把磁盤文件sntextl.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt.請(qǐng)?zhí)羁铡Ｈ珖?guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷VisualBasic語言程序設(shè)計(jì)（考試時(shí)間90分，滿分100分）2005年9月一、選擇題（每小題2分，共70分）下列各題A）、B）、C）、D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)正確的，請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1）下列敘述中正確的是A）程序設(shè)計(jì)就是編制程序 B）程序的測(cè)試必須由程序員自己去完成C）程序經(jīng)調(diào)試改錯(cuò)后還應(yīng)進(jìn)行再測(cè)試 D）程序經(jīng)調(diào)試改錯(cuò)后不必進(jìn)行再測(cè)試（2）下列數(shù)據(jù)結(jié)構(gòu)中，能用二分法進(jìn)行查找的是A）順序存儲(chǔ)的有序線性表 B）線性鏈表C）二叉鏈表 D）有序線性鏈表（3）下列關(guān)于棧的描述正確的是A）在棧中只能插入元素而不能刪除元素B）在棧中只能刪除元素而不能插入元素C）棧是特殊的線性表，只能在一端插入或刪除元素D）棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素（4）下列敘述中正確的是A）一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)只能有一種存儲(chǔ)結(jié)構(gòu)B）數(shù)據(jù)的邏輯結(jié)構(gòu)屬于線性結(jié)構(gòu)，存儲(chǔ)結(jié)構(gòu)屬于非線性結(jié)構(gòu)一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲(chǔ)結(jié)構(gòu)，且各種存儲(chǔ)結(jié)構(gòu)不影響數(shù)據(jù)處理的效率一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲(chǔ)結(jié)構(gòu)，且各種存儲(chǔ)結(jié)構(gòu)影響數(shù)據(jù)處理的效率（5）下列描述中正確的是A）軟件工程只是解決軟件項(xiàng)目的管理問題B）軟件工程主要解決軟件產(chǎn)品的生產(chǎn)率問題C）軟件工程的主要思想是強(qiáng)調(diào)在軟件開發(fā)過程中需要應(yīng)用工程化原則D）軟件工程只是解決軟件開發(fā)中的技術(shù)問題（6）在軟件設(shè)計(jì)中，不屬于過程設(shè)計(jì)工具的是A）PDL（過程設(shè)計(jì)語言） B）PAD圖C）N-S圖 D）DFD圖（7）下列敘述中正確的是A）軟件交付使用后還需要進(jìn)行維護(hù)B）軟件一旦交付使用就不需要再進(jìn)行維護(hù)C）軟件交付使用后其生命周期就結(jié)束D）軟件維護(hù)是指修復(fù)程序中被破壞的指令（8）數(shù)據(jù)庫(kù)設(shè)計(jì)的根本目標(biāo)是要解決A）數(shù)據(jù)共享問題 B）數(shù)據(jù)安全問題C）大量數(shù)據(jù)存儲(chǔ)問題 D）簡(jiǎn)化數(shù)據(jù)維護(hù)（9）設(shè)有如F關(guān)系表則下列操作中正確的是A）T=RnS B）T=RUSC）T=RXS D）T=R/S（10）數(shù)據(jù)庫(kù)系統(tǒng)的核心是A）數(shù)據(jù)模型 B）數(shù)據(jù)庫(kù)管理系統(tǒng)C）數(shù)據(jù)庫(kù) D）數(shù)據(jù)庫(kù)管理員（11）假定一個(gè)VisualBasic應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存該應(yīng)用程序，以下正確的操作是A）只保存窗體模塊文件B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件C）只保存窗體模塊和標(biāo)準(zhǔn)模塊文件D）只保存工程文件（12）為了清除窗體上的一個(gè)控件，下列正確的操作是A）按回車鍵B）按Esc鍵C）選擇（單擊）要清除的控件，然后按Del鍵D)選擇(單擊)要清除的控件，然后按回車鍵(13)以下敘述中錯(cuò)誤的是A)打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B)當(dāng)程序運(yùn)行時(shí)，雙擊一個(gè)窗體，則觸發(fā)該窗體的DblClick事件C)VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D)事件可以由用戶引發(fā)，也可以有系統(tǒng)引發(fā)(14)設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式的值是Nota<=cOr4*c=bA2Andboa+cA)-1 B)1 C)True D)False(15)設(shè)a=5,b=10,則執(zhí)行c=Int((b-A)*Rnd+A)+1后，c值的范圍為A)5-10B)6?9 C)6?10 D)5?9(16)在窗體上畫一個(gè)命令按鈕，名稱為Command］，然后編寫如下事件過程：PrivateSubCommandl_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub運(yùn)行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是A)softwareandhardware B)softwareC)hardware D)1(17)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1和Textl,把文本框的Text屬性設(shè)置為空白，然后編寫如下事件過程：PrivateSubCommandl_Click()a=InputBox("Enteraninteger'1)b=InputBox(nEnteraninteger")Text1.Text=b+aEndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)容是A)108 B)18 C)810 D)出錯(cuò)(18)在窗體上畫兩個(gè)文本框，其名稱分別為Textl和Text2,然后編寫如下程序：PrivateSubForm_Load()ShowTextl.Text=,,HText2.Text=Textl.SetFocusEndSubPrivateSubTextl_Change()Text2.Text=Mid(Textl.Text,8)EndSub程序運(yùn)行后，如果在文本框Textl中輸入BeijingChina,則在文本框Text2中顯示的內(nèi)容是A)BeijingChinaB)ChinaC)BeijingD)BeijingC(19)在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)ist1和Command1,然后編寫如下事件過程：PrivateSubForm_Load()List1.AdditemHItem1"Listl.Additem“Item2”List1.Additem”Item3"EndSubPrivateSubCommandl_Click()Listl.List(Listl.ListCount)=nAAAAuEndSub程序運(yùn)行后，單擊命令按鈕，其結(jié)果為A)把字符串“AAAA”添加到列表框中，但位置不能確定B)把字符串“AAAA”添加到列表框的最后(即的后面)C)把列表框中原有的最后一項(xiàng)改為“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Ileml”的前面)(20)假定有如下事件過程PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果是A)81 4B)56 3C)28 1D)2435(21)有如下程序：PrivateSubForm_Click()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)15 0B)20 -1C)10TrueD)10False(22)有如下程序：PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2o0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)12 B)30 C)24 D)18(23)在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4arrayl(i,j)=i+jNextjNextiTextl.Text=array1(2,3)+array1(3,4)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A)12 B)13 C)14 D)15(24)在窗體上畫一個(gè)命令按鈕，其名稱為Commandl,然后編寫如下事件過程：PrivateSubCommandI_Click()Dima1(4,4),a2(4,4)Fori=1To4Forj=1To4al(i,j)=i+ja2(i,j)=al(i,j)+i+jNextjNextiPrintal(3,3);a2(3,3)EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是A)6 6B)105C)7 21D)6 12(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程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)25 B)26 C)27 D)28(26)在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()Dima(5)AsStringFori=1To5a(i)=Chr(Asc(,'A',)+(i-1))NextiForEachbInaPrintb;NextEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A)ABCDEB)12345C)abcdeD)出錯(cuò)信息(27)以下關(guān)于函數(shù)過程的敘述中，正確的是A)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B)函數(shù)過程的返回值可以有多個(gè)C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以引用方式傳遞D)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系(28)函數(shù)過程F1的功能是：能正確實(shí)現(xiàn)上述功能的代碼是A)FunctionF1(bAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionC)FunctionFl(bAsInteger)IfbMod2=0ThenFl=l如果參數(shù)b為奇數(shù)，則返回值為1,否則返回值為0,以下B)FunctionFl(bAsInteger)IfbMod2=0ThenFl=0ElseFl=lEndIfEndFunctionD)FunctionFl(bAsInteger)IfbMod2=0ThenReturn0ElseElseF1=OReturn1F1=OEndIf EndIfEndFunction EndFunction(29)以下關(guān)于KeyPress事件過程中參數(shù)KeyAscii的敘述中正確的是KeyAscii參數(shù)是所按鍵的ASCII碼KeyAscii參數(shù)的數(shù)據(jù)類型為字符串KeyAscii參數(shù)可以省略KeyAscii參數(shù)是所按鍵上標(biāo)注的字符(30)設(shè)窗體上有一個(gè)名為Textl的文本框，并編寫如下程序：PrivateSubForm_Load()ShowTextl.Text=MHTextLSetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”程序設(shè)計(jì)”EndSubPrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"VisualBasic',EndSub程序運(yùn)行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是A)VisualBasic B)程序設(shè)計(jì)C)VisualBasic程序設(shè)計(jì) D)a程序設(shè)計(jì)(31)假定有下表所列的菜單結(jié)構(gòu)：標(biāo)題 名稱層次顯示 appear 1(主菜單)大圖標(biāo) bigicon 2(子菜單)小圖標(biāo) smallicon 3(子菜單)要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前面添加一個(gè)“V”，以下正確的事件過程是A)PrivateSubbigicon_Click()B)PrivateSubbigicon_Click()bigicon.Checked=FlaseMe.appear.bigicon.Checked=FlaseEndSubEndSubC)PrivateSubbigicon_Click()D)PrivateSubbigicon_Click()bigicon.Checked=Trueappear.bigicon.Checked=FlaseEndSubEndSub(32)假定通用對(duì)話框的名稱為CommonDialogl,命令按鈕的名稱為Command1,則單擊命令按鈕后，能使打開的對(duì)話框的標(biāo)題為“NewTitle”的事件過程是PrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle1'CommonDialogl.ShowPrinterEndSubPrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle*1CommonDialogl.ShowFontEndSubPrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle"CommonDialogl.ShowOpenEndSubPrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle*'CommonDialogl.ShowColorEndSub(33)如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A)任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體B)不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C)用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D)如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程(34)假定在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型TypeBooksNameAsString*10TelNumAsString*20EndType要求當(dāng)執(zhí)行事件過程Commandl_Click時(shí)，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是PrivateSubCommandl_Click()DimBAsBooksOpen,,c:\Person.txtnForOutputAs#1B.Name=InputBox("輸入姓名”)B.TelNum=InputBox("輸入電話號(hào)碼”)Write#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommandl_Click()DimBAsBooksOpennc:\Person.txt"ForInputAs#1B.Name=InputBox("輸入姓名”)B.TelNum=InputBox("輸入電話號(hào)碼”)Print#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommandl_Click()DimBAsBooksOpen"c:\Person.txl"ForOutputAs#1Name=InputBox("輸入姓名”)TelNum=InputBox("輸入電話號(hào)碼”)Write#1,BClose#1EndSubPrivateSubCommandl_Click()DimBAsBooksOpen"c:\Person.txtHForInputAs#1B.Name=InputBox("輸入姓名BB.TelNum=InputBox("輸入電話號(hào)碼”)Print#1,B.Name,B.TelNumClose#1EndSub(35)目錄列表框的Path屬性的作用是A)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上某目錄下的文件名B)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)C)顯示根目錄下的文件名D)顯示指定路徑下的文件二、填空題(每空2分，共30分)請(qǐng)將每空的正確答案寫在答題卡【1】?【15】序號(hào)的橫線上，答在試卷上不得分。(1)數(shù)據(jù)管理技術(shù)發(fā)展過程經(jīng)過人工管理、文件系統(tǒng)和數(shù)據(jù)庫(kù)系統(tǒng)三個(gè)階段，其中數(shù)據(jù)獨(dú)立性最高的階段是 【1】 .(2)算法復(fù)雜度主要包括時(shí)間復(fù)雜度和 【2】 復(fù)雜度。(3)在進(jìn)行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試的模塊另外設(shè)計(jì)兩類模塊：驅(qū)動(dòng)模塊和承接模塊(樁模塊)。其中【3】的作用是將測(cè)試數(shù)據(jù)傳送給被測(cè)試的模塊，并顯示被測(cè)試模塊所產(chǎn)生的結(jié)果。(4)一棵二叉樹第六層(根結(jié)點(diǎn)為第一層)的結(jié)點(diǎn)數(shù)最多為 【4】結(jié)構(gòu)。(5)數(shù)據(jù)結(jié)構(gòu)分為邏輯結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)，循環(huán)隊(duì)列屬于【5】結(jié)構(gòu)。(6)設(shè)有以下函數(shù)過程：Functionfun(mAsString)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用語句s=fun(10)調(diào)用此函數(shù)，則s的值為【6】 .(7)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在文本框中輸入一串英文字母(不區(qū)分大小寫)，單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Textl中。例如，若在Textl中輸入的是abDfdb,則單擊Command1按鈕后Textl中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC<,請(qǐng)?zhí)羁?。PrivateSubCommandl_Click()DimstrAsString,sAsString,cAsStringstr=UCase(textl)1???c=“Z"Whilec>=''A1'IfInStr(str,C)=0Thens=[7]EndIfc=Chr$(Asc(C)[8] )WendIfso,H,Thentextl=sEndIfEndSub(8)在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參加比賽，有很多種不同的選法，選法的個(gè)數(shù)可以用公式計(jì)算。下圖窗體中3個(gè)文本框的名稱依次是16*門、16*12、Text3o程序運(yùn)行時(shí)在Textl、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中(見下圖)。請(qǐng)?zhí)羁?。PrivateSubCommandl__Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fiin(n)/fun([9] )/fiin(r)EndSubFunctionfun(nAsInteger)AsLongDimtAsLong[10]Fork=1Tont=t*kNextfun=tEndFunction(9)以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Textl的文本框數(shù)組，然后畫一個(gè)名為Text2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最后得分顯示在Text2文本框中(去掉一個(gè)最高分和一個(gè)最低分的平均分即為最后得分)，如圖所示。請(qǐng)?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)有若干人的簡(jiǎn)單信息，運(yùn)行時(shí)在Textl文本框（即“查找對(duì)象”右邊的文本框）輸入一個(gè)姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個(gè)匹配的列表項(xiàng)，則只顯示第1個(gè)匹配項(xiàng)；若未找到，則在Text2中顯示“查找此人”。請(qǐng)?zhí)羁?。PrivateSubCommandl_Click（）DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len（[14]）k=0Whilek<Listl.ListCountAndNotfoundIfText!=Left$（Listl.List（k）,n）ThenText2= [15]found=TrueEndIfk=k+1WendIfNotfoundThenText2二”查無此人”EndIfEndSub全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷VisualBasic語言程序設(shè)計(jì)（考試時(shí)間90分，滿分100分）2006年4月一、選擇題（每小題2分，共70分）下列各題A）、B）、C）、D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)正確的，請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1）下列選項(xiàng)中不屬于結(jié)構(gòu)化程序設(shè)計(jì)方法的是A）自頂向下 B）逐步求精 C）模塊化 D）可復(fù)用（2）兩個(gè)或兩個(gè)以上模塊之間關(guān)聯(lián)的緊密程度稱為A）耦合性 B）內(nèi)聚性 C）復(fù)雜度 D）數(shù)據(jù)傳輸特性（3）下列敘述中正確的是A）軟件測(cè)試應(yīng)該由程序開發(fā)者來完成B)程序經(jīng)調(diào)試后一般不需要再測(cè)試C)軟件維護(hù)只包括對(duì)程序代碼的維護(hù)D)以上三種說法都不對(duì)(4)按照“后進(jìn)先出”原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是A)隊(duì)列 B)棧 C)雙向鏈表 D)二叉樹(5)下列敘述中正確的是A)線性鏈表是線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)B)棧與隊(duì)列是非線性結(jié)構(gòu)C)雙向鏈表是非線性結(jié)構(gòu)D)只有根結(jié)點(diǎn)的二叉樹是線性結(jié)構(gòu)(6)對(duì)如下二叉樹進(jìn)行后序遍歷的結(jié)果為A)ABCDEF B)DBEAFC C)ABDECF D)DEBFCA(7)在深度為7的滿二叉樹中，葉子結(jié)點(diǎn)的個(gè)數(shù)為A)32 B)31 C)64 D)63“商品”與“顧客”兩個(gè)實(shí)體集之間的聯(lián)系一般是A)一對(duì)一 B)一對(duì)多 C)多對(duì)一 D)多對(duì)多(9)在E-R圖中，用來表示實(shí)體的圖形是A)矩形 B)橢圓形 C)菱形 D)三角形(10)數(shù)據(jù)庫(kù)DB、數(shù)據(jù)庫(kù)系統(tǒng)DBS、數(shù)據(jù)庫(kù)管理系統(tǒng)DBMS之間的關(guān)系是A)DB包含DBS和DBMSB)DBMS包含DB和DBSDBS包含DB和DBMS D)沒有任何關(guān)系(11)以下關(guān)于VisualBasic特點(diǎn)的敘述中，錯(cuò)誤的是VisualBasic是采用事件驅(qū)動(dòng)編程機(jī)制的語言VisualBasic程序既可以編譯運(yùn)行，也可以解釋運(yùn)行C)構(gòu)成VisualBasic程序的多個(gè)過程沒有固定的執(zhí)行順序VisualBasic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化程序的三種基本結(jié)構(gòu)(12)以下敘述中，錯(cuò)誤的是一個(gè)VisualBasic應(yīng)用程序可以含有多個(gè)標(biāo)準(zhǔn)模塊文件一個(gè)VisualBasic工程可以含有多個(gè)窗體文件C)標(biāo)準(zhǔn)模塊文件可以屬于某個(gè)指定的窗體文件D)標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas(13)以下敘述中，錯(cuò)誤的是A)在VisualBasic中，時(shí)象所能響應(yīng)的事件由系統(tǒng)定義的B)對(duì)象的任何屬性既可以通過屬性窗口設(shè)定，也可以通過程序語句設(shè)定C)VisualBasic中允許不同對(duì)象使用相同名稱的方法D)VisualBasic中的對(duì)象具有自己的屬性和方法(14)設(shè)有如下語句：Dima,bAsIntegerc=nVisualBasicMd=#7/20/2005#以下關(guān)于這段代碼的敘述中，錯(cuò)誤的是A)a被定義為Integer類型變量B)b被定義為Integer類型變量c中的數(shù)據(jù)是字符串 D)d中的數(shù)據(jù)是日期類型(15)以下能從字符串“VisualBasic”中直接取出子字符串“Basic”的函數(shù)是A)Left B)Mid C)StringD)Instr(16)設(shè)a=4,b=3,c=2,d=l>下列表達(dá)式的值是a>b+1Orc<dAndbModcA)True B)1 C)-1 D)0(17)以下可以作為VisualBasic變量名的是A)A#A B)counstA C)3A D)?AA(18)設(shè)x=4,y=6,則以下不能在窗體上顯示出“A=10”的語句是A)PrintA=x+y B)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程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)10,則以下敘述中錯(cuò)誤的是A)x的值是數(shù)值10B)輸入對(duì)話框的標(biāo)題是“輸入整數(shù)”C)信息框的標(biāo)題是“輸入數(shù)據(jù)：10”D)信息框中顯示的是“輸入的數(shù)據(jù)是：”(20)在窗體上畫1個(gè)命令按鈕(名稱為Commandl)和1個(gè)文本框(名稱為Textl),淅編寫如下事件過程：PrivateSubCommandl_Click()x=Val(Textl.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序運(yùn)行后，在文本框中輸入3,然后單擊命令按鈕，則以下敘述中正確的是A)執(zhí)行y=x*x B)執(zhí)行y=?xC)先執(zhí)行y=x*x,再執(zhí)行y=?xD)程序出錯(cuò)(21)設(shè)有命令按鈕Commandl的單擊事件過程，代碼如下：PrivateSubCommandl_Click()Dima(30)AsIntegerFori=1To30a(i)=Int(Rnd*100)NextForEacharrltemInaIfarrltemMod7=OThenPrintarrltem;Ifarrltem>90ThenExitForNextEndSub對(duì)于該事件過程，以下敘述中錯(cuò)誤的是A)a數(shù)組中的數(shù)據(jù)是30個(gè)100以內(nèi)的整數(shù)B)語句ForEacharrltemIna有語法錯(cuò)誤IfarrltemMod7=0……語句的功能是輸出數(shù)組中能夠被7整除的數(shù)Ifarrltem>90……語句的作用是當(dāng)數(shù)組元素的值大于90時(shí)退出For循環(huán)(22)設(shè)有命令按鈕Commandl的單擊事件過程，過程如下：PrivateSubCommandl_Click()Dima(3,3)AsIntegerFori=1To3Forj=1To3a(i,j)=i*j+iNextjNextiSum=0Fori=1To3Sum=Sum+a(i,4-i)NextiPrintSumEndSub運(yùn)行程序，單擊命令按鈕，輸出結(jié)果是A)20 B)7 C)16 D)17(23)在窗體上畫1個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()a=0Fori=1To2Forj=1To4IfjMod2<>OThena=a-1EndIfa=a+1NextjNextiPrintaEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A)0 B)2 C)3 D)4(24)窗體上有名稱分別為Textl、Text2的2個(gè)文本框，有一個(gè)由3個(gè)單選按鈕構(gòu)成的控件數(shù)組Optionl,如圖1所示。程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則執(zhí)行Textl中數(shù)值與該單選按鈕所對(duì)應(yīng)的運(yùn)算(乘以1、10或100),并將結(jié)果顯示在Text2中，如圖2所示。為了實(shí)現(xiàn)上述功能，在程序中的問號(hào)(?)處應(yīng)填入的內(nèi)容是PrivateSubOptionl_Click(IndexAsInteger)IfTextl.Texto,n,ThenSelectCase?Case0Text2.Text=Val(Text1.Text)CaseIText2.Text=Val(Texti.Text)*10Case2Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSubA)Index B)Option1.IndexC)Option1(Index) D)Option(Index).Value(25)在窗體上畫1個(gè)命令按鈕，其名稱為Commands然后編寫如下程序：PrivateSubCommand1_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為A)12 B)15 C)17 D)18(26)以下關(guān)于過程的敘述中，錯(cuò)誤的是A)事件過程是由某個(gè)事件觸發(fā)而執(zhí)行的過程B)函數(shù)過程的返回值可以有多個(gè)C)可以在事件過程中調(diào)用通用過程D)不能在事件過程中定義函數(shù)過程(27)在窗體上畫3個(gè)標(biāo)簽、3個(gè)文本框(名稱分別為Textl、Text2和Text3)和1個(gè)命令按鈕(名稱為Commandl),外觀如圖所示。PrivateSubForm_Load()Textl.Text=',MText2.Text=Text3.Text=EndSubPrivateSubCommandl_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByValxAsInteger,ByVaiyAsInteger)DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction運(yùn)行程序，在Textl文本框中輸入36,在Text2文本框中輸入24,然后單擊命令按鈕，則在Text3文本框中顯示的內(nèi)容是A)4 B)6 C)8 D)12(28)窗體上有名稱分別為Textl、Text2的2個(gè)文本框，要求文本框Textl中輸入的數(shù)據(jù)小于500,文本框Text2中輸入的數(shù)據(jù)小于1000,否則重新輸入。為了實(shí)現(xiàn)上述功能，在以下程序中問號(hào)(?)處應(yīng)填入的內(nèi)容是PrivateSubTextl_LostFocus()CallCheckInput(Textl,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2,1000)EndSubSubChecklnput(tAs?,xAsInteger)IfVal(t.Text)>xThenMsgBox”請(qǐng)重新輸入！”EndIfEndSubA)Text B)SelTextC)ControlD)Form(29)在窗體上畫1個(gè)文本框，其名稱為Textl,然后編寫如下過程：PrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode+2)EndSub程序運(yùn)行后，把焦點(diǎn)移到文本框中，此時(shí)如果敲擊“A”鍵，則輸出結(jié)果為A)A B)A C)A D)AA B C D(30)為了使列表框中的項(xiàng)目呈多列顯示，需要設(shè)置的屬性為A)ColumnsB)Style C)List D)MultiSelect(31)在窗體上畫1個(gè)命令按鈕，名稱為Command］，然后編寫如下程序：DimFlagAsBooleanPrivateSubCommandl_Click()DimintNumAsIntegerintNum=InputBox("請(qǐng)輸入：0)IfFlagThenPrintf(intNum)EndIfEndSubFunctionf(XAsInteger)AsIntegerIfX<10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Flag=TrueEndSub運(yùn)行程序，苜先單擊窗體，然后單擊命令按鈕，在輸入對(duì)話框中輸入5,則程序的輸出結(jié)果為A)0 B)5 C)15 D)無任何輸出(32)在菜單編輯器中建立1個(gè)名稱為Menu。的菜單項(xiàng)，將其“可見”屬性設(shè)置為False,并建立其若干子菜單，然后編寫如下過程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenPopupMenumenuOEndIfEndSub則以下敘述中錯(cuò)誤的是A)該過程的作用是彈出一個(gè)菜單B)單擊鼠標(biāo)右鍵時(shí)彈出菜單C)Menu。是在菜單編輯器中定義的彈出菜單的名稱D)參數(shù)X、丫指明鼠標(biāo)當(dāng)前位置的坐標(biāo)(33)窗體上有1個(gè)名稱為CD1的通用對(duì)話框，1個(gè)名稱為Command1的命令按鈕，按鈕的單擊事件過程如下：PrivateSubCommand1_Click()CDl.FileName=""CD1.Filter="AllFilesl*.*l(*.DoC)l*.Docl(*.Txt)l*.Txt"CD1.Filterindex=2CD1.Action=1EndSub關(guān)于以上代碼，錯(cuò)誤的敘述是A)執(zhí)行以上事件過程，通用對(duì)話框被設(shè)置為“打開”文件對(duì)話框B)通用對(duì)話框的初始路徑為當(dāng)前路徑C)通用對(duì)話框的默認(rèn)文件類型為*.TxtD)以上代碼不對(duì)文件執(zhí)行讀寫操作(34)以下敘述中錯(cuò)誤的是A)用Shell函數(shù)可以執(zhí)行擴(kuò)展名為.exe的應(yīng)用程序B)若用Static定義通用過程，則該過程中的局部變量都被默認(rèn)為Static類型C)Static類型的變量可以在標(biāo)準(zhǔn)模塊的聲明部分定義D)全局變量必須在標(biāo)準(zhǔn)模塊中用Public或Global聲明(35)以下關(guān)于文件的敘述中，錯(cuò)誤的是A)使用Append方式打開文件時(shí)，文件指針被定位于文件尾B)當(dāng)以輸入方式(Input)打開文件時(shí)，如果文件不存在，則建立一個(gè)新文件C)順序文件各記錄的長(zhǎng)度可以不同D)隨機(jī)文件打開后，既可以進(jìn)行讀操作，也可以進(jìn)行寫操作二、填空題(每空2分)請(qǐng)將每一個(gè)空的正確答案寫在答題卡【1】?【15】序號(hào)的橫線上，答在試卷上不得分。注意：以命令關(guān)鍵字填空的必須拼寫完整。TOC\o"1-5"\h\z(1)對(duì)長(zhǎng)度為10的線性表進(jìn)行冒泡排序，最壞情況下需要比較的次數(shù)為 【1】 。(2)在面向?qū)ο蠓椒ㄖ校?[2] 描述的是具有相似屬性與操作的一組對(duì)象。(3)在關(guān)系模型中，把數(shù)據(jù)看成是二維表，每一個(gè)二維表稱為一個(gè) 【3】 .(4)程序測(cè)試分為靜態(tài)分析和動(dòng)態(tài)測(cè)試。其中【4】 是指不執(zhí)行程序，而只是對(duì)程序文本進(jìn)行檢查，通過閱讀和討論，分析和發(fā)現(xiàn)程序中的錯(cuò)誤。(5)數(shù)據(jù)獨(dú)立性分為邏輯獨(dú)立性和物理獨(dú)立性。當(dāng)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)改變時(shí)，其邏輯結(jié)構(gòu)可以不變，因此，基于邏輯結(jié)構(gòu)的應(yīng)用程序不必修改，稱為[5] 。(6)下列語句的輸出結(jié)果是 [6】oPrintFormat(lnt(12345.6789*100+0.5)/100,"0000,0.00")(7)在窗體上畫1個(gè)命令按鈕，其名稱為Commandl,然后編寫如下事件過程：PrivateSubCommandI_Click()Dimarr(lTo100)AsIntegerFori=1To100arr(i)=Int(Rnd*1000)NextiMax=arr(1)Min=arr(1)Fori=1To100If[7]ThenMax=arr(i)EndIfIf[8]ThenMin=arr(i)EndIfNextiPrintMMax=H;Max,"Min=";MinEndSub程序運(yùn)行后，單擊命令按鈕，將產(chǎn)生100個(gè)1000以內(nèi)的隨機(jī)整數(shù)，放入數(shù)組arr中，然后查找并輸出這100個(gè)數(shù)中的最大值Max和最小值Min,請(qǐng)?zhí)羁铡?8)在窗體上畫1個(gè)名稱為Command1的命令按鈕和2個(gè)名稱分別為Textl、Text2的文本框，如圖所示，然后編寫如下程序：FunctionFun(xAsInteger,ByVaiyAsInteger)AsIntegerx=x+yIfx<OThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=-10:b=5Text1.Text=Fun(a,B)Text2.Text=Fun(a,B)EndSub程序運(yùn)行后，單擊命令按鈕，Textl和Text2文本框顯示的內(nèi)容分別是【9】和O(9)在窗體上畫1個(gè)命令按鈕和1個(gè)文本框，其名稱分別為Command1和Textl,然后編寫如下代碼：DimSaveAllAsStringPrivateSubCommandl_Click()Textl.Text=Left(UCase(SaveAll),4)EndSubPrivateSubText!_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序運(yùn)行后，在文本框中輸入abcdefg,單擊命令按鈕,則文本框中顯示的內(nèi)容是 [11]。(10)在窗體上畫1個(gè)命令按鈕和1個(gè)通用對(duì)話框，其名稱分別為Command1和CommonDialogl,然后編寫如下事件過程：PrivateSubCommand1_Click()CommonDialogl.[12]打開文件”CommonDialogl.Filter="AllFiles(*.*)l*.*nCommonDialogl.InitDir=MC:\MCommonDialogl.ShowOpenEndSub該程序的功能是，程序運(yùn)行后，單擊命令按鈕，將顯示“打開”文件對(duì)話框，其標(biāo)題是“打開文件”，在“文件類型”欄內(nèi)顯示“AllFile(*.*)"，堀示C盤根目錄下的所有文件，請(qǐng)?zhí)羁铡?11)在窗體上畫1個(gè)文本框，名稱為Textl,然后編寫如下程序：PrivateSubForm_Load()Opennd:\temp\dat.txtnForOutputAs#1Text1.Text="”EndSubPrivateSubTextI_KeyPress（KeyAsciiAsInteger）If[13]=13ThenIfUCase（Textl.Text）= [14]ThenClose1EndElseWrite#1, [15]Textl.Text=,M,EndIfEndIfEndSub以上程序的功能是，在D盤temp目錄下建立1個(gè)名為daLtxt的文件，在文本框中輸入字符,每次按回車鍵（回車鍵的ASCH碼是13）都把當(dāng)前文本框的內(nèi)容寫入文件dat.txt,并清除文本框中的內(nèi)容：如果輸入“END”，則結(jié)束程序。請(qǐng)?zhí)羁铡Ｈ珖?guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷VisualBasic語言程序設(shè)計(jì)（考試時(shí)間90分，滿分100分）2006年9月一、選擇題（每小題2分，共70分）下列各題A、B、C、D四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)的位置上，答在試卷上不得分。（1）下列選項(xiàng)中不符合良好程序設(shè)計(jì)風(fēng)格的是A）源程序要文檔化 B）數(shù)據(jù)說明的次序要規(guī)范化C）避免濫用goto語句 D）模塊設(shè)計(jì)要保證高耦合、高內(nèi)聚（2）從工程管理角度，軟件設(shè)計(jì)一般分為兩步完成，它們是A）概要設(shè)計(jì)與詳細(xì)設(shè)計(jì) B）數(shù)據(jù)設(shè)計(jì)與接口設(shè)計(jì)C）軟件結(jié)構(gòu)設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì) D）過程設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì)（3）下列選項(xiàng)中不屬于軟件生命周期開發(fā)階段任務(wù)的是A）軟件測(cè)試B）概要設(shè)計(jì)C）軟件維護(hù) D）詳細(xì)設(shè)計(jì)（4）在數(shù)據(jù)庫(kù)系統(tǒng)中，用戶所見的數(shù)據(jù)模式為A）概念模式 B）外模式 C）內(nèi)模式 D）物理模式（5）數(shù)據(jù)庫(kù)設(shè)計(jì)的四個(gè)階段是：需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)和A）編碼設(shè)計(jì) B）測(cè)試設(shè)計(jì) C）運(yùn)行階段 D）物理設(shè)計(jì)（6）設(shè)有如下三個(gè)關(guān)系表：

下列操作中正確的是A)T=ROSB)T=RUSC)T=RXSD)T=R/S(7)下列敘述中正確的是一個(gè)算法的空間復(fù)雜度大，則其時(shí)間復(fù)雜度也必定大一個(gè)算法的空間復(fù)雜度大，則其時(shí)間復(fù)雜度必定小一個(gè)算法的時(shí)間復(fù)雜度大，則其空間復(fù)雜度必定小D)上述三種說法都不對(duì)(8)在長(zhǎng)度為64的有序線性表中進(jìn)行順序查找，最壞情況下需要比較的次數(shù)為A)63 B)64 C)6 D)7(9)數(shù)據(jù)庫(kù)技術(shù)的根本目標(biāo)是要解決數(shù)據(jù)的A)存儲(chǔ)問題 B)共享問題 C)安全問題 D)保護(hù)問題(10)對(duì)下列二叉樹進(jìn)行中序遍歷的結(jié)果是A)ACBDFEGB)ACBDFGEC)ABDCGEFD)FCADBEGA)ACBDFEGB)ACBDFGEC)ABDCGEFD)FCADBEG(11)以下敘述中正確的是A)窗體的NAME屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體B)窗體的NAME屬性值是顯示在窗體標(biāo)題欄中的文本C)可以在運(yùn)行期間改變窗體的NAME屬性的值D)窗體的NAME屬性位可以為空(12)以下敘述中錯(cuò)誤的是A)打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體文件B)保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文件及工程文件C)VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D)窗體文件包含該窗體及其控件的屬性(13)設(shè)a=2,b=3,c=4F列表達(dá)式的植是Nota<=cOr4*c=bA2andb<>a+cA)-1 B)1 C)True D)False(14)設(shè)有如下的用戶定義類型：TypestudentNumberasstringNameasstringAgeasintegerEndtype則以下正確引用該類型成員的代碼是A)S="李明" B)DimsAsS="李明”C)DimsAsTypeStudent D)DimaAsT="李明=="李