全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB真題(2005-2011)

2005年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷一、選擇題((1)-(35)每小題2分，共70分)(1)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指TOC\o"1-5"\h\zA)存儲(chǔ)在外存中的數(shù)據(jù) B)C)數(shù)據(jù)在計(jì)算機(jī)中的順序存儲(chǔ)方式 D)(2)下列關(guān)于棧的描述中錯(cuò)誤的是A)棧是先進(jìn)后出的線性表 B)C)棧具有記憶作用 D)數(shù)據(jù)所占的存儲(chǔ)空間量數(shù)據(jù)的邏輯結(jié)構(gòu)在計(jì)算機(jī)中的表示棧只能順序存儲(chǔ)對(duì)棧的插入與刪除操作中，不需要改變棧底指針(3)對(duì)于長(zhǎng)度為n的線性表，在最壞情況下，下列各排序法所對(duì)應(yīng)的比較次數(shù)中正確的是A)冒泡排序?yàn)閚/2B)冒泡排序?yàn)閚C)快速排序?yàn)閚 D)快速排序?yàn)閚(n-D/2(4)對(duì)了長(zhǎng)度為n的線性表進(jìn)行順序查找，在最壞情況下所需耍的比較次數(shù)為D)n+1A)log2n B)n/2 C)nD)n+1(5)下列對(duì)于線性鏈表的描述中正確的是A)存儲(chǔ)空間不?定是連續(xù)，且各元素的存儲(chǔ)順序是任意的B)存儲(chǔ)空間不一定是連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面C)存儲(chǔ)空間必須連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面D)存儲(chǔ)空間必須連續(xù)，且各元素的存儲(chǔ)順序是任意的(6)(6)下列對(duì)于軟件測(cè)試的描述中正確的是A)軟件測(cè)試的目的是證明程序是否正確B)軟件測(cè)試的目的是使程序運(yùn)行結(jié)果正確C)軟件測(cè)試的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)程序就是軟件 C)軟件既是邏輯實(shí)體，又是物理實(shí)體軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合不同的數(shù)據(jù)只能被對(duì)應(yīng)的應(yīng)用程序所使用以上三種說法都不對(duì)D)以上三個(gè)都是TOC\o"1-5"\h\zB)軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合不同的數(shù)據(jù)只能被對(duì)應(yīng)的應(yīng)用程序所使用以上三種說法都不對(duì)D)以上三個(gè)都是(9)數(shù)據(jù)獨(dú)立性是數(shù)據(jù)庫技術(shù)的重耍特點(diǎn)之一。所謂數(shù)據(jù)獨(dú)立性是指A)數(shù)據(jù)與程序獨(dú)立存放 C)B)不同的數(shù)據(jù)被存放在不同的文件中 D)(10)用樹形結(jié)構(gòu)表示實(shí)體之間聯(lián)系的模型是A)關(guān)系模型 B)網(wǎng)狀模型 C)層次模型(11)在窗體(名稱為Forml)上畫一個(gè)名稱為Tbxtl的文本框和一個(gè)名稱為Commandl的命令按鈕，然后編寫?個(gè)事件過程。程序運(yùn)行以后，如果在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過程是：PrivateSubCommandl_Click()Caption』'PrivateSubCommandl_Click()Caption』'計(jì)算機(jī)等級(jí)考試”EndSubD)PrivateSubCommandl_Click()Textl.lbxt="計(jì)宣機(jī)等級(jí)考試”EndSubAndb<>cOrc>dFalse D)2Commandl.Caption="計(jì)算機(jī)等級(jí)考試”EndSubC)PrivateSubForml_Click()TextLCaption="計(jì)算機(jī)等級(jí)考試”EndSub(12)設(shè)a=5,b=4,c=3,d=2,下列表達(dá)式的值是3>2*bOrA)1 B)True(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,ll,10)(14)假定有如下的窗體事件過程，程序運(yùn)行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Righl(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=IIf((a<d)A“，“B")后，x的值為：A)"a" B)Mb" C)wB" D)MA”(16)為了使命令按鈕(名稱為Command1)右移200,應(yīng)使用的語句是A)Command1.Move-200 B)Command1.Move200C)Command1.Left=Command1.Left+200 D)Command1.Left=Command1.Left-200(17)在窗體上畫?個(gè)文本框，然后編寫如下事件過程，程序運(yùn)行時(shí)，在文本框中輸入456,然后單擊窗體，在輸入對(duì)話框中輸入123,單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：PrivateSubForm_Click()x=lnputBox("請(qǐng)輸入一個(gè)整數(shù)”)Printx+Text1.TextEndSubA)123 B)456 C)579 D)123456(18)在窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為Textl和Timeri,在屬性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000,Enabled屬性設(shè)置為False,程序運(yùn)行后，如果單擊命令按鈕，則每隔?秒鐘在文本框中顯示?次當(dāng)前的時(shí)間。以下是實(shí)現(xiàn)上述操作的程序，在處應(yīng)填入的內(nèi)容是PrivateSubCommand1_Click()Timerl. EndSubPrivateSubTimerl_Timer()Textl.lext=TimeEndSubA)Enabled=Tnie B)Enabled=False C)Visible=True D)Visible=False(19)假定在圖片框Piclurel中裝入了一個(gè)圖形，為了清除該圖形(不刪除圖片框)，應(yīng)采用的正確方法是：A)選擇圖片框，然后按Del鍵B)執(zhí)行語句Picture1.Picture=LoadPicture()C)執(zhí)行語句Picture1.Picture=””D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵(20)在窗體上畫一個(gè)Listl的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)口的名稱，卜.列能正確實(shí)現(xiàn)上述操作的程序是A)PrivateSubListl_Click()Label1.CaptionA)PrivateSubListl_Click()Label1.Caption=Listl.ListindexEndSubB)PrivateSubListl_Click()Label1.Name=Listl.ListindexEndSub(21)在窗體上畫一個(gè)命令按鈕，名稱為Commandl,然后編寫如下事件過程：PrivateSubCommandl_Click()DimiAsInteger,xAsIntegerFori=1Tb6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為A)9 B)6C)12 D)15(23)執(zhí)行以下程序段后，x的值為DimxAsInteger,iAsIntegerx=0Fori=20lb1Step-2x=x+i\5NextIA)16 B)17PrivateSubListl_Click()Label1.Name=Listl.TextEndSubPrivateSubListl_Click()Label1.Caption=Listl.TextEndSub(22)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()c="ABCD”Forn=1lb4Print NextEndSub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：DCDBCDABCD則在處應(yīng)填入的內(nèi)容為A)Left(c,n)C)Mid(cnl)B)Right(c,n)D)Mid(c,n,n)C)18 D)19(24)在VisualBasic工程中，可以作為啟動(dòng)對(duì)象的程序是(24)在VisualBasic工程中，可以作為啟動(dòng)對(duì)象的程序是A)任何窗體或標(biāo)準(zhǔn)模塊B)任何窗體或過程C)SubMain過程或其他任何模塊 D)SubMain過程或任何窗體(25)假定建立了一個(gè)名為Command1的命令按鈕數(shù)組，則以下說法中錯(cuò)誤的是A)數(shù)組中每個(gè)命令按鈕的名稱(名稱屬性)均為Command1B)數(shù)組中每個(gè)命令按鈕的標(biāo)題(Caption屬性)都一樣C)數(shù)組中所有命令按鈕可以使用同?個(gè)過程D)用名稱Command"下標(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è)文本框，名稱分別為Command1和Tbxtl,然后編寫如卜.程序:PrivateSubCommand1_Click()a=InputBox("請(qǐng)葡入日期(1~31)")t="旅游景點(diǎn):"&IIf(a>0Anda<=10,"長(zhǎng)城&IIf(a>10Anda<=20,"故宮&nf(a>20Anda<=30J頤和園"J")Text1.Text=tEndSub程序運(yùn)行后，如果從鍵盤輸入16,則在文本框中顯示的內(nèi)容是：A)旅游景點(diǎn)：長(zhǎng)城故宮 B)旅游景點(diǎn)：長(zhǎng)城頤和園C)旅游景點(diǎn)：頤和園 D)旅游景點(diǎn)：故宮程序運(yùn)行后，單擊窗體，在標(biāo)簽中顯示的內(nèi)容是(28)在窗體上畫一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，然后編寫如下事件過程，PrivateSubForm_Click()程序運(yùn)行后，單擊窗體，在標(biāo)簽中顯示的內(nèi)容是Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2lb4Forj=2lb4arr(i,j)=i*jNextjNextiD)15(30)閱讀程序：OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()D)15(30)閱讀程序：OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1lb3Forj=1lb2arr(ij)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3lb4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSub程序運(yùn)行后，單擊窗體,輸出結(jié)果為：A)21B)13C)8D)25(29)在窗體上畫一個(gè)名稱為Comamndl的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommandl_Click()DimiAsInteger,sAsIntegers=0Fori=1lb5s=s+fun(i)NextPrintsEndSub程序運(yùn)行后，單擊命令按鈕,則窗體上顯示的是:A)6B)7C)8D)931)在窗體上畫?個(gè)名稱為Command1的命令按鈕,然后編寫如下程序:OptionBase1PrivateSubCommandI_Click()DimcAsInteger,dAsIntegerd=0:c=6x=Array(2,4,6,8,10,12)Fori=11b6Ifx(i)>cThend=d+x(i):c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸入的內(nèi)容為A)10 B)16C)12 D)20(32)設(shè)有如下程序:PrivateSubCommandl_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("請(qǐng)輸入一個(gè)整數(shù)")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox。'請(qǐng)輸入一個(gè)整數(shù)”)LoopPrintc+dEndSub程序運(yùn)行后，單擊命令按鈕如果在輸入對(duì)話框中依次輸入1、2、3、4、5、6、7、8、9、0,則輸出結(jié)果是：A)12 B)11C)10 D)9(33)在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為生xtl的文本框，在文本框中輸入以下字符串:MicrosoftVisualBasicProgramming,然后編寫如卜事件過程：PrivateSubCommandl_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1TbLen(Textl.lext)c=Mid(lextl.Text,i,1)Ifc>=MAHAndc<=MZ"ThenPrint#1,LCase(c)；EndIfNextiCloseEndSub程序運(yùn)行后,單擊命令按鈕，文件outf.txt中的內(nèi)容是：A)MVBP B)mvbpTOC\o"1-5"\h\zC)M D)mV vB bP P(34)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下程序：DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubCommandl_Click()DimintNumAsIntegerintNum=InputBox(,M,)IfSWThenPrintfunc(intNum)EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSub程序運(yùn)行后,單擊命令按鈕，將顯示一個(gè)輸入對(duì)話框,如果在對(duì)話框中輸入25,則程序的執(zhí)行結(jié)果是：A)輸出0 B)輸出25C)輸出45 D)無任何輸出(35)設(shè)有如下通用過程：PublicSubfun(a()AsInteger,xAsInteger)Fori=1Tb5x=x+a(i)NextEndSub在窗體上畫一個(gè)名稱為Tbxtl的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()Dimarr(5)AsInteger,nAsIntegerFori=1lb5arr(i)=i+iNextfunarr,nText1.Text=Str(n)EndSub程序運(yùn)行后，單擊命令按鈕,則在文本框中顯示的內(nèi)容是A)30B)25C)20 D)15二、填空題(每空2分，共30分)請(qǐng)將每一個(gè)空的正確答案寫在答題卡［1】?【15】序號(hào)的橫線上，答在試卷上不得分。注意：以命令關(guān)鍵字填空的必須拼寫完整。(1)某二叉樹中度為2的結(jié)點(diǎn)有18個(gè)，則該二樹中有【1】個(gè)葉子結(jié)點(diǎn)。(2)在面向?qū)ο蠓椒ㄖ?，類的?shí)例稱為【2】o(3)診斷和改正程序中錯(cuò)誤的工作通常稱為【3】o(4)在關(guān)系數(shù)據(jù)庫中，把數(shù)據(jù)表示成二維表，每一個(gè)二維表稱為【4】o(5)問題處理方案的正確而完整的描述稱為【5】o(6)以下語句PrintIm(12345.6789*104。5)/100的輸出結(jié)果是：【6】(7)在窗體上畫一個(gè)文本框和一個(gè)圖片框,然后編寫如卜.兩個(gè)事件過程：PrivateSubForm_Click()Text1.Text=”VB程序設(shè)計(jì)”EndSubPrivateSublextl_Change()PictureI.Print"VBProgramming'1EndSub程序運(yùn)行后，單擊窗體，在文本框中顯示的內(nèi)容是【7］，而在圖片框中顯示的內(nèi)容是［8】(8)閱讀卜.面的程序，程序運(yùn)行后，單擊窗體，輸出結(jié)果是［9】PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub(9)設(shè)有如下程序：PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8s=0Do

n=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】，程序運(yùn)行后，單擊窗體，輸出結(jié)果為【11】(10)設(shè)有如下程序：OptionBase1PrivateSubCommand1_Click()DimarrlDimMinAsInteger,iAsIntegerarrl=Array(12,435,76,-24,78,54,866,43)Min=[12]Fori=2Tb8Ifarrl(i)<MinThen[13]NextiPrint”最小值是:";MinEndSub以上程序的功能是用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中的最小值,請(qǐng)?zhí)羁?11)在名稱為Forml的窗體上畫一個(gè)文本框，其名稱為Ifextl,在屬性窗口中把文本框的MultiLine屬性設(shè)置為True,然后編寫如下事件過程：PrivateSubForm_Click()Open"d:\test\smtextl.txt1'ForInputAs#1DoWhileNot[14]LineInput#1,aspect$whole$=whole$+aspects+Chr(13)+Chr(10)LoopText1.Text=whole$Close#1Open"d:\test\smtext2.txt,'ForOutputAs#1Print#1,[15]Close#1EndSub上述程序的功能是，把磁盤文件smtextl.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入磁盤文件smlext2.txt.請(qǐng)?zhí)羁铡?005年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試參考答案象序系法19對(duì)程關(guān)算[6]象序系法19對(duì)程關(guān)算[6]12345.68VB程序設(shè)計(jì)VBProgramming(9]10[10]求1?8的和[11]36[12]arrl(l)[13]min=arrl(i)[14]EOF(l)(151text1.text(或whole$)選擇題：1—5DBDCA6—10CBDDC11-15ABBCD16--20CDABD21-25ABCDB26-30CDBBA31-35CDBDA填空題：2005年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷一、選擇題（每小題2分，共70分）下列各題A）、B）、C）,D）四個(gè)選項(xiàng)中,試卷上不得分。（1）下列敘述中正確的是A）程序設(shè)計(jì)就是編制程序C）程序經(jīng)調(diào)試改錯(cuò)后還應(yīng)進(jìn)行再測(cè)試只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置匕答在B）程序的測(cè)試必須由程序員自己去完成D）程序經(jīng)調(diào)試改錯(cuò)后不必進(jìn)行再測(cè)試（2）卜列數(shù)據(jù)結(jié)構(gòu)中，能用：分法進(jìn)行在找的是A）順序存儲(chǔ)的有序線性表（3）下列關(guān)于棧的描述正確的是B）線性鏈表C）二2005年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷一、選擇題（每小題2分，共70分）下列各題A）、B）、C）,D）四個(gè)選項(xiàng)中,試卷上不得分。（1）下列敘述中正確的是A）程序設(shè)計(jì)就是編制程序C）程序經(jīng)調(diào)試改錯(cuò)后還應(yīng)進(jìn)行再測(cè)試只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置匕答在B）程序的測(cè)試必須由程序員自己去完成D）程序經(jīng)調(diào)試改錯(cuò)后不必進(jìn)行再測(cè)試（2）卜列數(shù)據(jù)結(jié)構(gòu)中，能用：分法進(jìn)行在找的是A）順序存儲(chǔ)的有序線性表（3）下列關(guān)于棧的描述正確的是B）線性鏈表C）二叉鏈表D）有序線性鏈表A)B)C)D)在棧中只能插入元素而不能刪除元素在棧中只能刪除元素而不能插入元素棧是特殊的線性表，只能在一端插入或刪除元素棧是特殊的線性表，只能在?端插入元素，而在另端刪除元素（4）下列敘述中正確的是A)B)C)D)一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)只能有一種存儲(chǔ)結(jié)構(gòu)數(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)B)C)D)軟件工程只是解決軟件項(xiàng)目的管理問題軟件工程主:要解決軟件產(chǎn)品的生產(chǎn)率問題軟件工程的主要思想是強(qiáng)調(diào)在軟件開發(fā)過程中需要應(yīng)用工程化原則軟件.1：程只是解決軟件開發(fā)中的技術(shù)問題（6）在軟件設(shè)計(jì)中，不屬于過程設(shè)計(jì)工具的是A）PDL（過程設(shè)計(jì)語言）PAD圖N-S圖DFD圖（7）卜.列敘述中正確的是A）軟件交付使用后還需要進(jìn)行維護(hù)C）軟件交付使用后其生命周期就結(jié)束（8）數(shù)據(jù)庫設(shè)計(jì)的根本目標(biāo)是耍解決B）軟件一旦交付使用就不需要再進(jìn)行維護(hù)D）軟件維護(hù)是指修復(fù)程序中被破壞的指令D）簡(jiǎn)化數(shù)據(jù)維護(hù)A）數(shù)據(jù)共享問題B）數(shù)據(jù)安全問題C）大鼠數(shù)據(jù)存儲(chǔ)問題A)T=RnsB)T=RUST=RxS（10）數(shù)據(jù)庫系統(tǒng)的核心是D)T=R/SA）數(shù)據(jù)模型B）數(shù)據(jù)庫管理系統(tǒng)C）數(shù)據(jù)庫D）數(shù)據(jù)庫管理員（11）假定一個(gè)VisualBasic應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為保存該應(yīng)用程序，以卜.正確的操作是A）只保存窗體模塊文件B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件

（12）為了清除窗體上的一個(gè)控件，下列正確的操作是C）只保存窗體模塊和標(biāo)準(zhǔn)模塊文件D）只保存工程文件A）按回車鍵B）按Esc鍵（13）以下敘述中錯(cuò)誤的是C）選擇（單擊）要清除的控件，然后按Del鍵D）選擇（單擊）耍清除的控件，然后按回車鍵A)B)C)D)打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件當(dāng)程序運(yùn)行時(shí)，雙擊?個(gè)窗體，則觸發(fā)該窗體的DblClick事件VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行事件可以由用戶引發(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è)aA)-1B)1(15)設(shè)a=5,b=10,則執(zhí)行cC)TrueIht((b-a)*Rnd+a)D）False+1后，c值的范圍為A)5?10 B)6?9 C)6?10 D)5?9(16)在窗體上畫一個(gè)命令按鈕，名稱為Commandl,然后編寫如下事件過程：PrivateSubCommand1Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub運(yùn)行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是A)softwareandhardwareB)software C)hardware D)1(17)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Commandl和血xtl,把文本框的Ext屬性設(shè)置為空白,然后編寫如下事件過程：PrivateSubCommand1_Click()a=InputBox("Enteraninteger1')b=InputBox(MEnteraninteger")Text1.Text=b+aEndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)容是A)108B)18 C)810 D)出錯(cuò)(18)在窗體上畫兩個(gè)文本框，其名稱分別為Textl和Text2,然后編寫如下程序：PrivateSubFormLoad()ShowTextl.Text="":Text2.1ext=Textl.SeFocusEndSubPrivateSubTextlChangeOText2.7ext=Mid(lextl.Text,8)EndSub程序運(yùn)行后，如果在文本框Tbxtl中輸入BeijingChina,則在文本框論xl2中顯示的內(nèi)容是A)BeijingChinaB)ChinaC)BeijingD)BeijingC(19)在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)istl和Command］，然后編寫如下事件過程：PrivateSubFoimLoad()List1.Additem"Item1MListl.Additem"Item2"Listl.Additem"Item3"EndSubPrivateSubCommandl_Click()List1.List(List1.ListCount)="AAAA”EndSub程序運(yùn)行后，單擊命令按鈕，其結(jié)果為A)把字符串“AAAA”添加到列表框中，但位置不能確定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C)把列表框中原有的最后一項(xiàng)改為“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“hem1”的前面)(20)假定有如下事件過程：PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrhtx,nEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果是A)814 B)563C)281 D)2435(21)有如下程序：PrivateSubFourClick()Dii)Check,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrhtCountei;CheckEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)150 B)20-1C)10True D)10False(22)有如下程序：PrivateSubFonnClick。DiniAsInteger;sumAsIntegersum=0Fori=2To10IfiMod2oOAndiMod3=0Thensum=sum+iEndIfNextiPrhtsumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)12B)30C)24D)18(23)在窗體上畫?個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程:PrivateSubCommandl_Click()Dinanayl(10,10)AsIntegerDiniAsInteger;jAsIntegerFori=1To3Forj=2lb4arrayl(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,然后編寫如下事件過程：PrivateSubCommandlClick()Dimal(4,4),a2(4,4)Fori=1Tb4Forj=1lb4al(i,j)=i+ja2(i,j)=al(i,j)+i+jNextjNextiPrintaI(3,3);a2(3,3)EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是A)66 B)105 C)721 D)612(25)有如下程序：0ptbnBase1PrivateSubFormClick()Dimarr,SumSum=0arr=Anay(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)Z3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrritSumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)25B)26027D)28(26)在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommandlClick()Dina6)AsStringFori=1To5a(i)=Chr(Asc(nAM)+(i-D)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ù)b為奇數(shù)，則返回值為1,否則返回值為0。以下能iE確實(shí)現(xiàn)上述功能的代碼是:A)FunctionFl(bAsInteger)B)FunctionFl(bAsInteger)IfbMod2=0ThenIfbMod2=0ThenReturn0FI=0ElseElseReturn1Fl=1EndIfEndIfEndFunctionEndFunctionC)FunctionFl(bAsInteger)D)FunctionFl(bAsInteger)IfbMod2=0ThenIfbMod2<>0ThenFl=1Return0ElseElseFl=0Return1EndIfEndIfEndFunctbnEndFunctbn(29)以下關(guān)于KeyPress事件過程中參數(shù)KeyAscii的敘述中正確的是A)KeyAscii參數(shù)是所按犍的ASCII碼B)KeyAscii參數(shù)的數(shù)據(jù)類型為字符串C)KeyAscii參數(shù)可以省略D)KeyAscii參數(shù)是所按鍵上標(biāo)注的字符(30)設(shè)窗體上有一個(gè)名為Textl的文本框，并編寫如下程序：PrivateSubFormLoad()ShowTextl.Text=Textl.SetFocusEndSubPrivateSubFonn_MouseUp(ButtonAsIntegerShiftAsInteger,XAsSingle,YAsSingle)Print"程序設(shè)訃’EndSubPrivateSubTextlKeyDown(KeyCodeAsInteger;ShiftAsInteger)Print"VisualBasic";EndSub程序運(yùn)行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是A)VisualBasicB)程序設(shè)計(jì) C)VisualBasic程序設(shè)計(jì)D)a程序設(shè)計(jì)(31)假定有卜表所列的菜單結(jié)構(gòu)：標(biāo)題名稱層次顯示appear1(主菜單)大圖標(biāo)bigicon2(子菜單)小圖標(biāo)smallicon2(子菜單)要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前添加一個(gè)“一’.以卜正確的事件過程是A)PrivateSubbigicon_Click() B)PrivateSubbigicon_Click()bigicon.Checked=False Me.appeanbigicon.Checked=TiueEndSub EndSub

C)C)PrivateSubbigicon_Click()bigicon.Checked=TrueEndSubD)PrivateSubbigicon_Click()appear.bigicon.Checked=TrueEndSub（32）假定通用對(duì)話框的名稱為CommonDialogl,命令按鈕的名稱為Commandl,則單擊命令按鈕后，能使打開的對(duì)話框的標(biāo)題為“NewFile”的事件過程是C)PrivateSubCommandl_Click()CommonDialog1.DialogTitle="NewTitleC)PrivateSubCommandl_Click()CommonDialog1.DialogTitle="NewTitle1'CommonI)iabgl.Show0penEndSubD)PrivateSubCommandl_Click()CommonDiabgl.DiabgTitle=*NewTitle*CommonDiabgl.ShowCobrEndSubCommonDiabgl.DiabgTitle=ewTitle”CommonDiabgl.ShowPriiterEndSubB)PrivateSubCommandl_Click()CommonDiabgl.DiabgTitle=*NewTitle”CommonDiabgl.ShowFontEndSub（33）如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C）用Hi加方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D）如果工程中含有SubMain過程，則程序?定首先執(zhí)行該過程（34）假定在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型TypeBooksNameAsString*10TclNumAsString*20EndType要求當(dāng)執(zhí)行事件過程Commandl_Click時(shí)，在順序文件Person.txt中寫入?條記錄。下列能夠完成該操作的事件過程是C)PrivateSubCommandl_Click()DinBC)PrivateSubCommandl_Click()DinBAsBooks0pen"cAPerson.txt"ForOutputAs#1Name=InputBox("輸入姓名J)TeNum=InputBoxC輸入電話號(hào)碼”)Writettl,BCbse#lEndSubD)PrivateSubCommandl_Click()DinBAsBook0penAPerson.txt"ForInputAs#1Name=InputBoxC輸入姓名")TeNum=InputBox("輸入電話號(hào)碼")Prht#l,B.Name,B.TelNumCbse#lEndSubC)顯示根目錄下的文件名D)顯示指定路徑下的文件DinBAsBooks0pen"cAPerson.txt"ForOutputAs#IB.Name=InputBoxC輸入姓名”)B.TeNum=InputBoxC輸入電話號(hào)碼")Writettl,B.Name,B.TeNumCbse#lEndSubB)PrivateSubCommandl_Click()DinBAsBooks0pen"c:\Person.txt"ForInputAs#1B.Name=InputBoxC輸入姓名")B.TeNum=InpulBoxC輸入電話號(hào)碼”)Prht#l,B.Name,B.TeMumCbse#1EndSub(35)目錄列表框的Path屬性的作用是A)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名B)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)二、填空題（每空2分，共30分）請(qǐng)將每空的正確答案寫在答題卡【I】?【15】序號(hào)的橫線上，答在試卷上不得分。（1）數(shù)據(jù)管理技術(shù)發(fā)展過程經(jīng)過人工管理、文件系統(tǒng)和數(shù)據(jù)庫系統(tǒng)三個(gè)階段，其中數(shù)據(jù)獨(dú)立性最高的階段是［1】O<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é)果。一棵二叉樹第六層（根結(jié)點(diǎn)為第一層）的結(jié)點(diǎn)數(shù)最多為【4】個(gè)。（5）數(shù)據(jù)結(jié)構(gòu)分為邏輯結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)，循環(huán)隊(duì)列屬于【5】結(jié)構(gòu)。（6）設(shè)有以下函數(shù)過程：FunctbnRin<mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunctbn若在程序中用語句s=fun（10）調(diào)用此函數(shù)，則s的值為【6】o（7）在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在文本框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降

序顯示到lextl序顯示到lextlupo例如，若在Textl中輸入的是abDfdb,則單擊Command1按鈕后lextl中顯示的字符串是ZYXWVUTSRQPONMLKJIHGECo請(qǐng)?zhí)羁铡rivateSubCommand1Click()DinstrAsString,sAsStrhg,cAsStrhgsir:UCase(Textl)s=**Whilec>=IfInStr(str,c)=0Thens=[7]IfInStr(str,c)=0Thens=[7]EndIfc=Chr$(Asc(c) [8])WendIfsO"ThenTextl=sEndIfEndSub(8)在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參加比賽，有很多川種不同的選法，選法的個(gè)數(shù)可以用公式 :—計(jì)算。rl(n-r)!卜.圖窗體中3個(gè)文本框的名稱依次是Textl>Text2.Text3?程序運(yùn)行時(shí)在Ibxtl、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中(見下圖)。請(qǐng)?zhí)羁铡?9)以卜是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Textl的文本框數(shù)組，然后畫一個(gè)名為Texl2的文本框和名為Commandl的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最后得分顯示在Text2文本框中(去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分)，如圖所示。請(qǐng)?zhí)羁?。PrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Text!r=Text2Text3=fun(n)/fun([9])/fun(r)EndSubFunctionfun(nAsInteger)aslongDintAsLong[10]Fork=1Tont=t*kNextfun=tEndFunctionPrivateSubCommand1Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=lextl(O)max=lextl(O)min=[11]Fork=[12]To6Ifmax<lextl(k)Thenmax=lextl(k)EndIfIfmin>lextl(k)Thenmin=lextl(k)EndIfsum=sum+lextl(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í)羁?。?□!x|查找對(duì)象：女男男男女女男男聲借兵紅成淮東方信克立張李馬李陳劉郝黃，!□!x|查找對(duì)象：女男男男女女男男聲借兵紅成淮東方信克立張李馬李陳劉郝黃?.ForalPrivateSubCommandlClick()PrivateSubCommandlClick()DinkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len([14])k=0Whitek<1.istl.LisCountAndNotfoundIfTextl=Left$(Listl.List(k),n)ThenTex12=[15]found=TrueEndIfk=k+1WendIfNotfoundThenText2="查無此人"EndIfEndSub2005年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試參考答案選擇題[1-5]CACDC[6-10]DAABB[11-15]BCCDC[16-20]CABBA[21-25]DAADC[26-30]ADBAC[31-35]CCDAB填空題【1】數(shù)據(jù)庫系統(tǒng)【2】空間【3】驅(qū)動(dòng)模塊32[5]存儲(chǔ)結(jié)構(gòu)【6】30s&c[8]-1[9]n-rt=l[II]Textl(O)[12]1(sum-max-min)[14]text1.text[15]listl.list(k)

2006年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷一、選擇題(每小題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)(1)下列選項(xiàng)中不屬了結(jié)構(gòu)化程序設(shè)計(jì)方法的是。A)自頂向下 B)逐步求精 C)模塊化(2)兩個(gè)或兩個(gè)以上模塊之間關(guān)聯(lián)的緊密程度稱為。A)耦合度 B)內(nèi)聚度 C)復(fù)雜度(3)卜.列敘述中正確的是.A)軟件測(cè)試應(yīng)該由程序開發(fā)者來完成B)程序經(jīng)調(diào)試后一般不需要再測(cè)試(4)按照“后進(jìn)先出''原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是。A)隊(duì)列B)棧 C)雙向鏈表(5)下列敘述中正確的是。A)線性鏈表是線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)B)棧與隊(duì)列是非線性結(jié)構(gòu)(6)對(duì)如下二叉樹D)可復(fù)用D)數(shù)據(jù)傳輸特性C)軟件維護(hù)只包括對(duì)程序代碼的維護(hù)D)以上三種說法都不對(duì)D)二叉樹C)雙向鏈表是非線性結(jié)構(gòu)D)只有根結(jié)點(diǎn)的二叉樹是線性結(jié)構(gòu)進(jìn)行后序遍歷的結(jié)果為。A)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度為7進(jìn)行后序遍歷的結(jié)果為。A)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度為7的滿二義樹中，葉子結(jié)點(diǎn)的個(gè)數(shù)為。A)32 B)31C)64 D)63“商品”與"顧客”兩個(gè)實(shí)體集之間的聯(lián)系一般是。A)一對(duì)一 B)一對(duì)多 C)多對(duì)一(9)在E-R圖中，用來表示實(shí)體的圖形是.A)矩形 B)橢圓形 C)菱形D)多對(duì)多D)三角形(10)數(shù)據(jù)庫DB、數(shù)據(jù)庫系統(tǒng)DBS、數(shù)據(jù)庫管理系統(tǒng)DBMS之間的關(guān)系是。DB包含DB包含DBS和DBMSC)DBS包含DB和DBMSDBMS包含DB和DBSD)沒有任何關(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í)行順序D)VisualBasic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化程序的一:種基本結(jié)構(gòu)(12)以下敘述中，錯(cuò)誤的是。一個(gè)VisualBasic應(yīng)用程序可以含有多個(gè)標(biāo)準(zhǔn)模塊文件C)標(biāo)準(zhǔn)模塊文件可以屬于某個(gè)指定的窗體文件一個(gè)VisualBasic工程可以含有多個(gè)窗體文件 D)標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas(13)以下敘述中，錯(cuò)誤的是。A)在VisualBasic中，對(duì)象所能響應(yīng)的事件是由系統(tǒng)定義的B)對(duì)象的任何屬性既可以通過屬性窗口設(shè)定，也可以通過程序語句設(shè)定VisualBasic中允許不同對(duì)象使用相同名稱的方法VisualBasic中的對(duì)象具有自己的屬性和方法(14)設(shè)有如F語句：Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下關(guān)于這段代碼的敘述中，錯(cuò)誤的是。a被定義為Integer類型變量 C)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+lOrcvdAndbModc的值是。A)True B)1 C)-1D)0(17)以下可以作為VisualBasic變量名的是。A)A#A B)counstAC)3AD)?AA(18)設(shè)x=4,y=6,則以下不能在窗體上顯示出“A=10”的語句是。A)PrintA=x+y B)Print*'A=H;x+yC)Print“A="+SRx+y) D)Print"A=H&x+y(19)假定有如卜.的命令按鈕(名稱為Commandl)事件過程：PrivateSubCommandl_Click()x=InputBox("輸入：%"輸入整數(shù)”)MsgBox”輸入的數(shù)據(jù)是：“，，”輸入數(shù)據(jù)：”+xEndSub程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)10,則以卜敘述中錯(cuò)誤的是。A)x的值是數(shù)值A(chǔ))x的值是數(shù)值10B)輸入對(duì)話框的標(biāo)題是“輸入整數(shù)”C)信息框的標(biāo)題是“輸入數(shù)據(jù)：10”D)信息框中顯示的是“輸入的數(shù)據(jù)是：”(20)在窗體上畫(20)在窗體上畫1個(gè)命令按鈕(名稱為Command1)和1個(gè)文本框(名稱為Tbxtl),然后編寫如下事件過程：PrivateSubCommandl_Click()x=Val(lextl.Text)SelectCasexCase1,3y=x*xCaseIs>=10?Is<=-10y=xCase-10lb10y=-xEndSelectEndSub程序運(yùn)行后，在文本框中輸入3,然后單擊命令按鈕，則以下敘述中正確的是。A)執(zhí)行y=x*x B)執(zhí)行y=-xC)先執(zhí)行y=x*x,再執(zhí)行y=-xD)程序出錯(cuò)(21)設(shè)有命令按鈕Command1單擊事件過程，代碼如下:PrivateSubCommandl_Click()Dima(30)AsIntegerFori=l7b30a(i)=Int(Rnd*100)NextForEacharrltemInaIfarrltemMod7=0ThenPrintarrltem：IfarrItem>90ThenExitForNextEndSub對(duì)于該事件過程，以卜敘述中錯(cuò)誤的是。A)a數(shù)組中的數(shù)據(jù)是30個(gè)100以內(nèi)的整數(shù)B)語句ForEacharrltemIna有語法錯(cuò)誤IfarrltemMod7=0……語句的功能是輸出數(shù)組中能夠被7整除的數(shù)Ifarr!tem>90……語句的作用是當(dāng)數(shù)組元素的值大于90時(shí)退出For循環(huán)(22)設(shè)有命令按鈕(22)設(shè)有命令按鈕Commandl的單擊事件過程，代碼如下，PrivateSubCommandl_Click()Dima(3?3)AsIntegerFori=l7b3Forj=llb3a(i,j)=i*j+iNextjNextiSum=0Fori=lTb3Sum=Sum+a(i?4-i)NextiPrintSumEndSub運(yùn)行程序，單擊命令按鈕，輸出結(jié)果是。A)20B)7C)16 D)17(23)在窗體上畫1個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()a=0Fori=lTb2Forj=llb4IfjMod2o0Thena=a-lEndIfa=a+lNextjNextiPrintaEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A)0B)2C)3 D)4(24)窗體上有名稱分別為Ibxtl、Text2的2個(gè)文本框，有一個(gè)由3個(gè)單選按鈕構(gòu)成的控件數(shù)組Option1，如圖1所示。程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則執(zhí)行Rxti中的數(shù)值與該單選按鈕所對(duì)應(yīng)的運(yùn)算(乘以1、io或loo),m結(jié)果顯示在Tbxt2中，如圖2所示。為了實(shí)現(xiàn)上述功能，在程序中的問號(hào)(?)處應(yīng)填入的內(nèi)容是。

PrivateSubOptionl_Click(IndexAsInteger)Iflextl.Texto,M,ThenSelectCase?Case0Text2.1ext=Val(lext1.Text)Text2.1ext=Val(lext1.Text)*10Text2.1ext=Val(lext1.Text)*100EndSelectEndIfEndSubOption1(Index)OptionI(Index).ValueA)Index B)Option1.IndexOption1(Index)OptionI(Index).Value(25)在窗體上畫1個(gè)命令按鈕，其名稱為Commandl,然后編寫如下程序:PrivateSubCommandl_Click()Dima(10)AsIntegerDimxAsIntegerFori=llb10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為。A)12B)15C)17D)18A)12B)15C)17D)18（26）以下關(guān)于過程的敘述中，錯(cuò)誤的是。A）（26）以下關(guān)于過程的敘述中，錯(cuò)誤的是。A）事件過程是由某個(gè)事件觸發(fā)而執(zhí)行的過程B）函數(shù)過程的返回值可以有多個(gè)（27）在窗體上畫3個(gè)標(biāo)簽、3個(gè)文本框（名稱分別為TextH如圖所示。編寫如下程序：C）可以在事件過程中調(diào)用通用過程D）不能在事件過程中定義函數(shù)過程Text2和Tbxl3）和1個(gè)命令按鈕（名稱為Command］）,外觀PrivateSubForm_Load()Text1.Text=MText2.Text="7ext3.1ext=,'EndSubPrivateSubCommandl_Click()x=Val(lextl.Text)y=Val(lext2.Text)Text3.1ext=f(x,y)EndSubFunctionf(ByVaixAsInteger,ByVaiyAsInteger)DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction運(yùn)行程序，在Ibxtl文本框中輸入36,在Text2文本框中輸入24,然后單擊命令按鈕，則在Text3文本框中顯示的內(nèi)容是。A)4 B)6 C)8 D)12(28)窗體上有名稱分別為Textl、Text2的2個(gè)文本框，要求文本框Ibxtl中輸入的數(shù)據(jù)小于500,文本框Tbxt2中輸入的數(shù)據(jù)小于1000,否則重新輸入。為了實(shí)現(xiàn)上述功能，在以下程序中問號(hào)(?)處應(yīng)填入的內(nèi)容是PrivateSub7extl_LostFocus()CallChecklnput(lextl,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(lext2,1000)EndSubSubChecklnput(tAs?,xAsInteger)IfVal(t.Text)>xThenMsgBox”請(qǐng)重新輸入!”EndIfEndSubA)Text B)Sellext C)Control D)Form(29)在窗體上.畫1個(gè)文本框，其名稱為Textl,然后編寫如下過程：PrivateSubText1_KeyDown(KeyC(xleAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubTexll_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)Columns B)Style C)List D)MultiSelect(31)在窗體上畫1個(gè)命令按鈕，名稱為Commands然后編寫如下程序：DimFlagAsBooleanPrivateSubCommandl_Click()DimintNumAsIntegerinlNum=InpulBox("請(qǐng)輸入：M)IfFlagThenPrintf(intNum)EndSubFunctionRXAsInteger)AsIntegerIfX<10Then

Y=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=lThenPopupMenuMenuOEndIfEndSub則以下敘述中錯(cuò)誤的是。A)該過程的作用是彈出一個(gè)菜單B)單擊鼠標(biāo)右鍵時(shí)彈出菜單C)Menu。是在菜單編輯器中定義的彈出菜單的名稱D)參數(shù)X、Y指明鼠標(biāo)當(dāng)前位置的坐標(biāo)(33)窗體上有1個(gè)名稱為CD1的通用對(duì)話框，1個(gè)名稱為Commandl的命令按鈕。命令按鈕的單擊事件過程如下：PrivateSubCommandl_Click()CDl.FileName=,M,CDLFiltei^"AllFilesl*.*l(*.DoC)l*.Docl(*.Txt)CDl.FilterIndex=2CDl.Action=lEndSub關(guān)于以上代碼，錯(cuò)誤的敘述是。A)執(zhí)行以上事件過程，通用對(duì)話框被設(shè)置為“打開”文件對(duì)話框 C)通用對(duì)話框的默認(rèn)文件類型為*.TxtB)通用對(duì)話框的初始路徑為當(dāng)前路徑 D)以上代碼不對(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分，共30分)請(qǐng)將每空的正確答案寫在答題標(biāo)【1】?［15］序號(hào)的橫線上，答在試卷上不得分。(1)對(duì)長(zhǎng)度為10的線性表進(jìn)行冒泡排序，最壞情況下需要比較的次數(shù)為［11.(2)在而向?qū)ο蠓椒ㄖ校?】描述的是具有相似屬性與操作的一組對(duì)象。(3)在關(guān)系模型中，把數(shù)據(jù)看成是二維表，每?個(gè)二維表稱為一個(gè)［31(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é)果是(6LPrintFormat(Int(12345.6789*1004-0.5)/100,"0000.0.00")(7)在窗體上畫(7)在窗體上畫1個(gè)命令按鈕，其名稱為Command1,然后編寫如下事件過程：PrivateSubCommandl_Click()Dimarr(llb100)AsIntegerFori=llb100arr(i)=Int(Rnd*1000)NextiMax=arr(1)：Min=arr(1)Fori=llb100If[7]Then Max=arr(i)If[8]Then Min=arr(i)NextiPrint"Max=M：Max,"Min=M；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è)名稱分別為Ibxtl、Text2的文本框，如圖所示，然后編寫如下程序：FunctionFun(xAsInteger,ByVaiyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=-10：b=5lextl.lext=Fun(a,b)Text2.Text=Fun(a>b)EndSub程序運(yùn)行后，單擊命令按鈕，Textl和Texl2文本框顯示的內(nèi)容分別是【9】和【101(9)在窗體上畫1個(gè)命令按鈕和1個(gè)文本框，其名稱分別為Commandl和Tbxll,然后編寫如下代碼:DimSaveAllAsStringPrivateSubCommandl_Click()Text1.lext=Lcft(UCase(SaveAll),4)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序運(yùn)行后，在文本框中輸入abcdefg,單擊命令按鈕，則文本框中顯示的內(nèi)容是【11】。18(10)在窗體上畫1個(gè)命令按鈕和1個(gè)通用對(duì)話框，其名稱分別為Commandl和CommonDialogl,然后編寫如下事件過程：PrivateSubCommandl_Click()CommonDialogl.[12]="打開文件"CommonDialogl.Filter="AllFiles(*.*)1*.*”CommonDialog1.InitDir=HC：\"CommonDialog1.ShowOpenEndSub該程序的功能是，程序運(yùn)行后，單擊命令按鈕，將顯示“打開”文件對(duì)話框，其標(biāo)題是“打開文件”，在"文件類型''欄內(nèi)顯示“AIlFiles(*.*)“，并顯示C盤根目錄下的所有文件，請(qǐng)?zhí)羁铡?11)在窗體上畫1個(gè)文本框，名稱為Tbxtl,然后編寫如下程序：PrivateSubForm_Load()Opened：\temp\dat.txt"ForOutputAs#Ilextl.lext=,M,EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)If[13]=13ThenIf