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

2003年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB語言筆試試卷(含答案)一、選擇題((1)?(20)每小題2分，(21)~(30)每小題3分，共70分)(1)以下敘述中錯(cuò)誤的是VisualBasic是事件驅(qū)動(dòng)型可視化編程工具VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語句VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性VisualBasic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置(2)以下敘述中錯(cuò)誤的是A)在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件B)以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件C)窗體文件包含該窗體及其控件的屬性D)一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件(3)以下敘述中錯(cuò)誤的是A)雙擊鼠標(biāo)可以觸發(fā)DblClick事件B)窗體或控件的事件的名稱可以由編程人員確定C)移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件D)控件的名稱可以由編程人員設(shè)定(4)以下不屬于VisualBasic系統(tǒng)的文件類型是A).frmB).batC).vbgD).vbp(5)以下敘述中錯(cuò)誤的是A)打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B)保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文件及工程文件C)VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D)事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)(6)以下能正確定義數(shù)據(jù)類型TelBook的代碼是(資料來源：東方教育網(wǎng))A)TypeTelBookB)TypeTelBookNameAsString*10NameAsString*10TelNumAsIntegerTelNumAsIntegerEndTypeEndTelBookC)TypeTelBookD)TypedefTelBookNameString*10NameString*1()TelNumIntegerTelNumIntegerEndTypeTelBookEndType(7)以下聲明語句中錯(cuò)誤的是A)Constvarl=123B)Dimvar2='ABC'C)Deflnta-zD)Staticvar3AsInteger(8)設(shè)窗體上有一個(gè)列表框控件Lis選中的列表項(xiàng)內(nèi)容的是tl,且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被A)List1.ListB)List1.ListindexC)List1.IndexD)List1.Text(9)程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件是MouseDownB)MouseUpC)LoadD)Click(10)設(shè)a=10,b=5?c=1,執(zhí)行語句Printa>b>c后，窗體上顯示的是A)TrueB)FalseC)1D)出錯(cuò)信息(11)如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是A)CaptionB)NameC)BackColorD)BorderStyle(12)以下能判斷是否到達(dá)文件尾的函數(shù)是A)BOFB)LOCOLOFD)EOF(13)如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A)如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程B)不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C)用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D)任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體(14)窗體的MouseDown事件過程Form_MouseDown(ButtSingle)onAsInteger,ShiftAsInteger,XAsSingle,YAs有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是A)通過Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵Shifl參數(shù)只能用來確定是否按下Shift鍵Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵D)參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)(15)設(shè)組合框Combol中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語句是Combo1.RemoveitemTextCombo1.Removeltem2Combo1.Removeitem3Combo1.RemoveltemCombo1.Listcount(16)以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是A)如果文本框的TabStop屬性為False,則不能接收從鍵盤上輸入的數(shù)據(jù)B)當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件C)當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用D)可以用Tabindex屬性改變Tab順序(17)如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為A)=B)*C)&D)-(18)執(zhí)行語句Open"數(shù)據(jù)能夠執(zhí)行的操作是Tel.dat"ForRandomAs#1Len=50后，對(duì)文件Tel.dat中的A)只能寫，不能讀B)只能讀，不能寫C)既可以讀，也可以寫D)不能讀，不能寫(19)在窗體上畫一個(gè)本框，然后編寫如下事件過名稱為Commandl的命令按鈕和兩程：個(gè)名稱分別為Textl、Text2的文PrivateSubCommandl_CIick()n=Text1.TextSelectCasenCase1To20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序運(yùn)行后，如果在文內(nèi)容是本框Textl中輸入10,然后單擊命令按鈕，則在Text2中顯示的10B)20030D)40(20)設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體LoopWhile<條件〉則以下敘述中錯(cuò)誤的是A)若"條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體”條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C)循環(huán)體中可以使用ExitDo語句D)如果"條件"總是為True,則不停地執(zhí)行循環(huán)體(21)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是A)13.45.8B)135147D)無數(shù)據(jù)輸出(22)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程:PrivateSubCommandl_CIick()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a-1LoopWhilea<=0Prints;aEndSub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是A)79B)340C)97D)死循環(huán)(23)設(shè)有如下通用過程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEnclFunction在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommandl_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是105B)205C)2040D)1040(24)設(shè)有如下通用過程：PublicSubFun(a(),ByVaixAsInteger)Fori=1To5x=x+a(i)Next在窗體上畫一個(gè)名稱為Textl的文本下的事件過程：框和一個(gè)名稱為Command1的命令按鈕，然后編寫如PrivateSubCommand1_CJick()Dimarr(5)AsVariantFori=1To5arr(i)=iNextn=10CallFun(arr(),n)TextI.Text=nEndSub程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是A)10B)15C)25D)24(25)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下代碼:OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為A)89B)99023D)77(26)在窗體上畫兩個(gè)別為L(zhǎng)abell、Label2>Labe顯示“A“、”B"、“A*B”等文Label3顯示A*B的計(jì)算結(jié)果。當(dāng)單擊命令按鈕“計(jì)算”時(shí)Label3中。以下不能實(shí)現(xiàn)上滾動(dòng)條，名稱分別為HscroH113、Label4、Label5、Label6,字信息，標(biāo)簽Labe"、Labe】2分。如圖所示。當(dāng)移動(dòng)滾動(dòng)框時(shí)，，對(duì)標(biāo)簽Labell、Label2中顯示述功能的事件過程是、Hscro112；六個(gè)標(biāo)簽，名稱分其中標(biāo)簽Label4?Label6分別別顯示其右側(cè)的滾動(dòng)條的數(shù)值，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值的兩個(gè)值求積，并將結(jié)果顯示在A)PrivateSubCommandl_Click()Label3.Caption=Str(VaI(Label1.Caption)*Val(LabeI2.Caption))EndSubPrivateSubCommand1_Click()Labcl3.Caption=HScrolH.Value*HScroll2.ValueEndSubPrivateSubCommandl_Click()Label3.Caption=HScroll1*HScrolI2PrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEndSub(27)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程:PrivateSubCommandl_Click()Forn=1To20IfnMod3<>0Thenm=m+n\3NextnPrintnEndSub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是A)15B)18021D)24(28)在窗體上畫一個(gè)名稱為Textl的文本框，并編寫如下程序：PrivateSubForm_Load()ShowTextl.Text=,M,Textl.SetFocusEndSubPrivateSubForm_MouYAsSingle)seUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,(資料來源：東方教育網(wǎng))Print”程序設(shè)計(jì)”EndSubPrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"VisualBasic";EndSub程序運(yùn)行后，如果按“A”鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是A)VisualBasicB)程序設(shè)計(jì)C)A程序設(shè)計(jì)D)VisualBasic程序設(shè)計(jì)(29)設(shè)有如下程序：PrivateSubCommandl_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub該程序通過For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是A)1+1/2+2/3+3/4+4/5B)1+1/2+2/3+3Z4C)172+2/3+3/4+4/5D)1+1/2+1/3+1/4+1/5（30）以下有關(guān)數(shù)組定義的語句序列中，錯(cuò)誤的是Staticarrl(3)arrl(l)=100arr1(2)="Hello”arrl(3)=123.45Dimarr2()AsIntegerDimsizeAsIntegerPrivateSubCommand2_C1ick()size=InputBox("輸入：")ReDimarr2(size)EndSubOptionBase1PrivateSubCommand3_Click()Dimarr3(3)AsIntegerEndSubD)DimnAsIntegerPrivateSubCommand4_Click()Dimarr4(n)AsIntegerEndSub二、填空題（每空2分，共30分）(1)執(zhí)行下面的程序段后，i的值為Ki1，s的值為K23os=2Fori=3.2To4.9Step0.8s=s+1Nexti(2)把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下兩個(gè)事件過程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForni_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub程序運(yùn)行后，如果直接分別是H33和K42。按鍵盤上的鍵(即不按住Shift鍵)，則在窗體上輸出的字符(3)在窗體上畫一個(gè)標(biāo)簽(名稱為L(zhǎng)寫如下幾個(gè)事件過程：abell)和一個(gè)計(jì)時(shí)器(名稱為Time"),然后編PrivateSubFonn_Load()Timer1.Enabled=FalseTimer1.Interval=U53EndSubPrivateSubForm_Click()Timer1.Enabled=K63PrivateSubTimerl_Timer()Label1.Caption=￡73EndSub程序運(yùn)行后，單擊窗體，將在標(biāo)簽中填空。顯示當(dāng)前時(shí)間，每隔1秒鐘變換一次(見圖)。請(qǐng)14：54：41(4)在窗體上畫一個(gè)Labell和Command1,然后編文本框、一個(gè)標(biāo)簽和一個(gè)命令按寫如下兩個(gè)事件過程：鈕，其名稱分別為Textl、PrivateSubCommand1_Click()S$=InputBox("請(qǐng)輸入一個(gè)字符串”)Textl.Text=S$EndSubPrivateSubTextl_Change()Labell.Caption=UCase(Mid(Text1.Text,7))EndSub程序運(yùn)行后，單擊命令"VisualBasic”，則在標(biāo)簽按鈕，將顯示一個(gè)輸入對(duì)話框，中顯示的內(nèi)容是K83。如果在該對(duì)話框中輸入字符串(5)在窗體上畫一個(gè)列表框、一個(gè)Commandl和Labell,通過屬性窗口把列表、"第三個(gè)項(xiàng)目"、"第四個(gè)項(xiàng)口'。程序運(yùn)鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽選擇”第三個(gè)項(xiàng)目"的情況)。下面是實(shí)現(xiàn)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為L(zhǎng)istl、框中的項(xiàng)目設(shè)置為：,,第一個(gè)項(xiàng)目"、”第二個(gè)項(xiàng)目"行后，在列表框中選擇一個(gè)項(xiàng)口，然后單擊命令按中顯示列表框當(dāng)前的項(xiàng)口數(shù)，運(yùn)行情況如圖所示(上述功能的程序，請(qǐng)?zhí)羁?。PrivateSubCommandl_Click()IfList1.Listindex>=K92ThenListl.RcmoveltcmK102Label1.Caption=K112ElseMsgBox”請(qǐng)選擇要?jiǎng)h除的項(xiàng)口”EndIfEndSub第一個(gè)項(xiàng)目第二個(gè)項(xiàng)目COMMAND)第三個(gè)項(xiàng)目3(6)設(shè)有程序：OptionBase1PrivateSubCommandl_Click()Dimarrl,MaxasIntegerarrl=Array。2,435,76,24,78,54,866,43)(資料來源：東方教育網(wǎng))C123=arrl(l)Fori=1To8Ifarrl(i)>MaxThenK133NextiPrint”最大值是："；MaxEndSub以上程序的功能是：用Array函數(shù)建組中元素的最大值。請(qǐng)?zhí)羁?。立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)(7)以下程序的功能在文本框Textl中顯示出來是：把當(dāng)前目錄下的順序文件sm。請(qǐng)?zhí)羁铡extl.txt的內(nèi)容讀入內(nèi)存，并PrivateSubCommand1_Click()DiminDataAsStringTextl.Text=,M,OpenH.\smtextLtxt"Kl43As#1DoWhileK152Input#1,inDataTextl.Text=Text1.Text&inDataLoopClose#1EndSub2003年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB語言筆試試卷參考答案一、選擇題TOC\o"1-5"\h\z(1)C (2) A (3) B (4) B (5) C(6)A (7) B (8) D (9) C (10) B(IDA (12) D (13) A (14) A (15) B(16)A(17)D(18)C(19)A(20)A(21)B(22)C(23)C(24)A(25)CD(27)C(28)D(29)C(30)D二、填空題Cl3 5.6K235K33 AK43aK53 1000K63True《71TimeK83 BASICK93 0K103List1.Listindex Rll》List1.ListCountK123Max￡133Max=arrl(i)K143ForInput￡152NotEOF(l))2005年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷及答案一、選擇題((1)?(35)每小題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)對(duì)棧的插入與刪除操作中，不需要改變棧底指針(3)對(duì)于長(zhǎng)度為n的線性表，在最壞情況下，下列各排序法所對(duì)應(yīng)的比較次數(shù)中正確的是A)冒泡排序?yàn)閚/2B)冒泡排序?yàn)閚C）快速排序?yàn)閚D）快速排序?yàn)閚（n-1）/2（4）對(duì)于長(zhǎng)度為n的線性表進(jìn)行順序查找，在最壞情況下所需要的比較次數(shù)為log2nB）n/2C）nD）n1（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è)名稱為CommancH的命令按鈕，然后編寫一個(gè)事件過程。程序運(yùn)行以后，如果在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試“。以下能實(shí)現(xiàn)上述操作的事件過程是：A)PrivateSubText1_Change()Commandl.Caption-r算機(jī)等級(jí)考試”EndSubPrivateSubCommand1_Click()Caption="計(jì)算機(jī)等級(jí)考試”EndSubPrivateSubForm1_Click()Textl.Caption="計(jì)算機(jī)等級(jí)考試”EndSubPrivateSubCommand1_Click()Textl.Text="計(jì)算機(jī)等級(jí)考試”(12)設(shè)a=5b=4c=3d=2,下列表達(dá)式的值是3>2*bOra=cAndbocOrc>dA)1B)TrueC)FalseD)2(13)設(shè)a=MMicrosoftVisualBasicM則以下使變量b的值為“Visua舊asic”的語句是A)b=Left(a10)B)b=Mid(a10)C)b=Right(a10)D)b=Mid(a1110)(14)假定有如下的窗體事件過程：PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$5)c=Mid(a$19)MsgBoxa$34b$c$5EndSub程序運(yùn)行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：A)MicrosoftVisualB)MicrosoftC)BasicD)5(15)設(shè)2=、朋=歸七="0(=刀”執(zhí)行語句x=Hf((ad)“A““B")后,x的值為：A)“a"B)“b"C)“B"D)“A"(16)為了使命令按鈕(名稱為Commandl)右移200,應(yīng)使用的語句是A)Command1.Move-200Commandl.Move200Commandl.Left=Commandl.Left200Commandl.Left=Commandl.Le代-2007)在窗體上畫一個(gè)文本框，然后編寫如下事件過程：PrivateSubForm_Click()x=lnputBox("請(qǐng)輸入一個(gè)整數(shù)”)PrintxTextl.TextEndSub程序運(yùn)行時(shí)，在文本框中輸入456,然后單擊窗體，在輸入對(duì)話框中輸入123,單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：A)123B)456C)579D)123456(18)在窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為Textl和Timer1在屬性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000,Enabled屬性設(shè)置為False程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。以下是實(shí)現(xiàn)上述操作的程序：PrivateSubCommand1_Click()Timeri. EndSubPrivateSubTimer1_Timer()Textl.Text=TimeEndSub在處應(yīng)填入的內(nèi)容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在圖片框Picturel中裝入了一個(gè)圖形，為了清除該圖形(不刪除圖片框)，應(yīng)采用的正確方法是：A)選擇圖片框，然后按Del鍵B)執(zhí)行語句Picturel.Picture=LoadPicture(MM)C)執(zhí)行語句Picturel.Picture=,M,D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵(20)在窗體上畫一個(gè)Lis”的列表框，一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)目的名稱，下列能正確實(shí)現(xiàn)上述操作的程序是PrivateSubList1_Click()Label1.Caption=Listl.ListindexEndSubPrivateSubList1_Click()LabeH.Name=Listl.ListindexLabell.Name=Listl.TextEndSubD)PrivateSubList1_Click()Labell.Caption=Listl.TextEndSub(21)在窗體上畫一個(gè)命令按鈕，名稱為CommancH,然后編寫如下事件過程:PrivateSubCommand1_Click()DimiAsIntegerxAsIntegerFori=1To6Ifi=1Thenx=iIfi<=4Thenx=x1Elsex=x2EndIfNextiPrintxEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為A)9B)6C)12D)15(22)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click()c="ABCD”Forn=1To4Print NextEndSub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：DCDBCDABCD則在處應(yīng)填入的內(nèi)容為A)Left(cn)B)Right(cn)C)Mid(cn1)D)Mid(cnn)(23)執(zhí)行以下程序段DimxAsIntegeriAsIntegerx=0Fori=20To1Step-2NextI后，x的值為A)16B)17C)18D)19(24)在VisualBasic工程中，可以作為啟動(dòng)對(duì)象的程序是A)任何窗體或標(biāo)準(zhǔn)模塊B)任何窗體或過程C)SubMain過程或其他任何模塊D)SubMain過程或任何窗體(25)假定建立了一個(gè)名為Commandl的命令按鈕數(shù)組，則以下說法中錯(cuò)誤的是A)數(shù)組中每個(gè)命令按鈕的名稱(名稱屬性)均為CommandlB)數(shù)組中每個(gè)命令按鈕的標(biāo)題(Caption屬性)都一樣C)數(shù)組中所有命令按鈕可以使用同一個(gè)時(shí)間過程D)用名稱Command[(下標(biāo))可以訪問數(shù)組中的每個(gè)命令按鈕(26)把窗體的KeyPreview屬性設(shè)置為True然后編寫如下事件過程：PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii2)EndSub程序運(yùn)行后按鍵盤上的“A”鍵則在窗體上顯示的內(nèi)容是A)AB)BC)CD)D(27)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框名稱分別為Commanch和Textl然后編寫如下程序:PrivateSubCommand1_Click()a=lnputBox(”請(qǐng)輸入日期(1~31)”)t=”旅游景點(diǎn):&IIf(a>0Anda<=10“長(zhǎng)城" _&IIf(a>10Anda<=20“故宮" _&llf(a>20Anda<=30“頤和園")Textl.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(1010)AsIntegerDimiAsIntegerjAsIntegerFori=2To4Forj=2To4arr(ij)=i*jNextjNextiLabel1.Caption=Str(arr(22)arr(33))EndSub程序運(yùn)行后單擊窗體在標(biāo)簽中顯示的內(nèi)容是A)12B)13C)14D)15(29)在窗體上畫一個(gè)名稱為Comamndl的命令按鈕然后編寫如下通用過程和命令按鈕的事件過程:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1PrivateSubCommand1_Click()DimiAsIntegersAsIntegers=0Fori=1To5s=sfun(i)NextPrintsEndSub程序運(yùn)行后單擊命令按鈕則窗體上顯示的是二A)6B)7C)8D)9(30)閱讀程序:OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsIntegerjAsIntegerReDimarr(32)Fori=1To3arr(ij)2jNextjNextiReDimPreservearr(34)Forj=3To4arr(3j)=j9NextjPrintarr(32)arr(34)EndSub程序運(yùn)行后單擊窗體輸出結(jié)果為：A)21B)13C)8D)25(31)在窗體上畫一個(gè)名稱為Commandl的命令按鈕然后編寫如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsIntegerdAsIntegerd=0c=6x=Array(24681012)Fori=1To6Ifx(i)>cThend=dx(i)c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運(yùn)行后如果單擊命令按鈕則在窗體上輸入的內(nèi)容為A)10B)16C)12D)20(32)設(shè)有如下程序：PrivateSubCommand1_Click()DimcAsIntegerdAsIntegerc=4d=lnputBox("請(qǐng)輸入一個(gè)整數(shù)”)DoWhiled>0Ifd>cThenc=c1d=lnputBox(“請(qǐng)輸入一個(gè)整數(shù)”)LoopPrintcdEndSub程序運(yùn)行后單擊命令按鈕如果在輸入對(duì)話框中依次輸入1、2、3、4、5、6、7、8、9、0則輸出結(jié)果是：A)12B)11C)10D)9(33)在窗體上畫一個(gè)名稱為Commandl的命令按鈕和一個(gè)名稱為Textl的文本框在文本框中輸入以下字符串：MicrosoftVisualBasicProgramming然后編寫如下事件過程：PrivateSubCommand1_Click()Open"d:\temp\outf.txt”ForOutputAs#1Fori=1ToLen(Text1.Text)c=Mid(Text1.Texti1)Ifc>="AMAndc<="Z"ThenPrint#1LCase(c)EndIfNextiClose程序運(yùn)行后單擊命令按科文件outf.txt中的內(nèi)容是：A)MVBPB)mvbpC)MVBPD)mvbP(34)在窗體上畫一個(gè)名稱為Commandl的命令按鈕然后編寫如下程序:DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20XEndIffunc=YPrivateSubCommand1_Click()DimintNumAsIntegerintNum=lnputBox(,'M)IfSWThenPrintfunc(intNum)EndIfEndSubPrivateSubForm_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)SW=FalseEndSubPrivateSubForm_Mousellp(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)SW=TrueEndSub程序運(yùn)行后單擊命令按鈕將顯示一個(gè)輸入對(duì)話框如果在對(duì)話框中輸入25則程序的執(zhí)行結(jié)果是：A)輸出0B)輸出25C)輸出45D)無任何輸出(35)設(shè)有如下通用過程：PublicSubfun(a()AsIntegerxAsInteger)Fori=1To5Xa(i)NextEndSub在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕然后編寫如下事件過程:PrivateSubCommand1_Click()Dimarr(5)AsIntegernAsIntegerFori=1To5arr(i)=iiNextfunarrnTextl.Text=Str(n)EndSub程序運(yùn)行后單擊命令按鈕則在文本框中顯示的內(nèi)容是A)30B)25C)20D)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ù)庫(kù)中，把數(shù)據(jù)表示成二維表，每一個(gè)二維表稱為【4】o(5)問題處理方案的正確而完整的描述稱為【5】o(6)以下語句的輸出結(jié)果是：【6】Printlnt(12345.6789*1000.5)/100(7)在窗體上畫一個(gè)文本框和一個(gè)圖片框然后編寫如下兩個(gè)事件過程：PrivateSubForm_Click()Textl.Text="VB程序設(shè)計(jì)”EndSubPrivateSubText1_Change()Picturel.Print"VBProgramming"EndSub程序運(yùn)行后單擊窗體在文本框中顯示的內(nèi)容是【7】而在圖片框中顯示的內(nèi)容是［8】(8)閱讀下面的程序PrivateSubForm_Click()DimCheckAsBooleanCounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub程序運(yùn)行后單擊窗體輸出結(jié)果是［9】(9)設(shè)有如下程序PrivateSubForm_Click()DimaAsIntegersAsIntegern=8s=0Dos=snn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是(101程序運(yùn)行后單擊窗體輸出結(jié)果為【11】(10)設(shè)有如下程序：OptionBase1PrivateSubCommand1_Click()DimMinAsIntegeriAsIntegerarr1=Array(1243576-24785486643)Min=[12]Fori=2To8Ifarr1(i)vMinThen[13]NextiPrint”最小值是:“MinEndSub以上程序的功能是用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組然后查找并輸出該數(shù)組中的最小值請(qǐng)?zhí)羁?11)在名稱為Forml的窗體上畫一個(gè)文本框其名稱為Textl在屬性窗口中把文本框的MultiLine屬性設(shè)置為True然后編寫如下事件過程：PrivateSubForm_Click()OpenMd:\test\smtext1.txtHForInputAs#1DoWhileNot[14]LineInput#1aspectswhole$=whole$aspectsChr(13)Chr(1O)LoopTextl.Text=whole$Close#1Open"d:\test\smtext2.txt”ForOutputAs#1Print#1[15]上述程序的功能是把磁盤文件smtextl.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt.請(qǐng)?zhí)羁找韵麓鸢竷H供參考選擇題：1-5DBDCA6-10CBDDC1115ABBCD1620CDABD2125ABCDB2630CDBBA3135CDDDA填空題：19[2]對(duì)象程序調(diào)試關(guān)系算法12345.68VB程序設(shè)計(jì)VBProgramming[10]求1-8的和[11]36arr1（1）min=arr1（i）EOF⑴text"!.text（或whole$）2005年9月全國(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）下列敘述中正確的是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è)有如下關(guān)系表：RSTABCABCABC112313112223223313則下列操作中正確的是A）T=RnSB）T=RUSC）T=RXSD）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=b*2Andb<>a+cA)-1B)1C)TrueD)False(15)設(shè)a=5,b=10,則執(zhí)行c=Int((b-a)*Rnd+a)+1后，c值的范圍為A)5?10B)6?9C)6~10D)5?9(16)在窗體上畫一個(gè)命令按鈕，名稱為Commands然后編寫如下事件過程:PrivateSubCommand1ClickOa$=*softwareandhardware*b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub運(yùn)行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是A)softwareandhardwareB)softwareC)hardwareD)1(17)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Commandl和Textl,把文本框的Text屬性設(shè)置為空白，然后編寫如下事件過程：PrivateSubCommand1ClickOa=InputBox(*Enteraninteger*)b=InputBox("Enteraninteger*)Textl.Text=b+aEndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)容是A)108B)18C)810D)出錯(cuò)(18)在窗體上畫兩個(gè)文本框，其名稱分別為Textl和Text2,然后編寫如下程序：PrivateSubForm_Load()ShowTextl.Text=Text2.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)istl和Commands然后編寫如下事件過程：PrivateSubFormLoad0Listl.Additem"Item1*List1.AddItem*Item2”Listl.Addltem"Item3”EndSubPrivateSubCommand1_C1ick()Listl.List(Listl.ListCount)=*AAAA*EndSub程序運(yùn)行后，單擊命令按鈕，其結(jié)果為A)把字符串“AAAA”添加到列表框中，但位置不能確定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C)把列表框中原有的最后一項(xiàng)改為“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)(20)假定有如下事件過程：PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果是A)814B)563C)281D)2435(21)有如下程序：PrivateSubFormClick()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)150B)20-1C)10TrueD)10False(22)有如下程序：PrivateSubFormClick()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod200AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)12B)30C)24D)18(23)在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandlClickODimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4arrayl(i,j)=i+jNextjNextiTextl.Text=array1(2,3)+array1(3,4)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A)12B)13C)14D)15(24)在窗體上畫一個(gè)命令按鈕，其名稱為CommandL然后編寫如下事件過程:PrivateSubCommand1_C1ick()Dimal(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)66B)105C)721D)612(25)有如下程序:OptionBase1PrivateSubFormClick。Dimarr,SumSum二0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A)25B)26C)27D)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ù)b為奇數(shù)，則返回值為1,否則返回值為0。以下能正確實(shí)現(xiàn)上述功能的代碼是FunctionFl(bAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionFunctionFl(bAsInteger)IfbMod2=0ThenFl=0ElseFl=1EndIfEndFunctionFunctionFl(bAsInteger)IfbMod2=0ThenFl=1ElseFl=0EndIfEndFunctionFunctionFl(bAsInteger)IfbMod200ThenReturn0ElseReturn1EndIfEndFunction(29)以下關(guān)于KeyPress事件過程中參數(shù)KeyAscii的敘述中正確的是KeyAscii參數(shù)是所按鍵的ASCII碼KeyAscii參數(shù)的數(shù)據(jù)類型為字符串KeyAscii參數(shù)可以省略KeyAscii參數(shù)是所按鍵上標(biāo)注的字符(30)設(shè)窗體上有一個(gè)名為Textl的文本框，并編寫如下程序：PrivateSubFormLoad()ShowTextl.Text=""Textl.SetFocusEndSubPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”程序設(shè)計(jì)〃EndSubPrivateSubTextl_KeyDown(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è)。以下正確的事件過程是PrivateSubbigicon_Click()bigicon.Checked=FalseEndSubPrivateSubbigicon_Click()Me.appear,bigicon.Checked=TrueEndSubPrivateSubbigicon_Click()bigicon.Checked=TrueEndSubPrivateSubbigicon_Click()appear,bigicon.Checked=TrueEndSub（32）假定通用對(duì)話框的名稱為CommonDialogl,命令按鈕的名稱為Commandl,則單擊命令按鈕后,能使打開的對(duì)話框的標(biāo)題為“NewTitle”的事件過程是PrivateSubCommand1_C1ick()CommonDialogl.DialogTitle="NewTitle*CommonDialogl.ShowPrinterEndSubPrivateSubCommand1ClickOCommonDialogl.DialogTitle="NewTitle*CommonDialogl.ShowFontEndSubPrivateSubCommand1C1ick()CommonDialogl.DialogTitle=*NewTitle*CommonDialogl.ShowOpenEndSubPrivateSubCommand1ClickOCommonDialogl.DialogTitle="NewTitle*CommonDialogl.ShowCo1orEndSub（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中寫入--條記錄。下列能夠完成該操作的事件過程是PrivateSubCommand1_C1ick（）DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1Name=InputBox（"輸入姓名"）TelNum=InputBox（"輸入電話號(hào)碼”）Write#1,B.Name,B.TelNumClose41EndSubPrivateSubCommand1_C1ick（）DimBAsBooksOpen"c:\Person.txt"ForInputAs#1Name=InputBox（"輸入姓名"）TelNum=InputBox（"輸入電話號(hào)碼”）Print#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommand1ClickODimBAsBooksOpen"c:\Person.txt"ForOutputAs#1Name=InputBox（"輸入姓名"）TelNum=InpulBox（"輸入電話號(hào)碼”）Write#1,BClose#1EndSubPrivateSubCommand1Click0DimBAsBookOpen"c:\Person.txt"ForInputAs#1Name=InputBox（"輸入姓名"）TelNum=InpulBox（"輸入電話號(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】O（2）算法復(fù)雜度主要包括時(shí)間復(fù)雜度和【2】復(fù)雜度。（3）在進(jìn)行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試的模塊另外設(shè)計(jì)兩類模塊：驅(qū)動(dòng)模塊和承接模塊（樁模塊）。其中13】的作用是將測(cè)試數(shù)據(jù)傳送給被測(cè)試的模塊，并顯示被測(cè)試模塊所產(chǎn)生的結(jié)果。（4）一棵二叉樹第六層（根結(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ù)過程：Functionfun(mAsInteger)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,則單擊Commandl按鈕后Textl中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。清填空。PrivateSubCommandl_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Textl)s=c="ZHWhilec>="A"IfInStr(str,c)=0Thens=[7]EndIfc=Chr$(Asc(c)[8])WendIfs<>MHThenTextl=sEndIfEndSub(8)在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參加比賽，有很多種不同的選法，選法的個(gè)數(shù)可以用公式計(jì)算。下圖窗體中3個(gè)文本框的名稱依次是Textl、Text2.Text3o程序運(yùn)行時(shí)在Textl.Text2中分別輸入n和r的值，單擊Commandl按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中(見下圖)。請(qǐng)?zhí)羁?。PrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fun(n)/fun([9])/fun(r)EndSubFunctionfun(nAsInteger)aslongDimlAsLong[10]Fork=ITont=t*kNextfun=tEndFunction(9)以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Textl的文本框數(shù)組，然后畫一個(gè)名為Text2的文本框和名為Commandl的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最后得分顯示在Text2文本框中(去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分)，如圖所示。請(qǐng)?zhí)羁?。PrivateSubCommandl_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=(ll]Fork=[12]To6Ifmax<Textl(k)Thenmax=Textl(k)EndIfIfmin>Textl(k)Thenmin=Textl(k)EndIfsum=sum+Textl(k)NextkText2=([13])/5EndSub(10)如圖所示，在列表框Listl中已經(jīng)有若干人的簡(jiǎn)單信息，運(yùn)行時(shí)在Textl文本框(即“查找對(duì)象”右邊的文本框)輸入一個(gè)姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Texl2文本框中。若有多個(gè)匹配的列表項(xiàng)，則只顯示第I個(gè)匹配項(xiàng)；若未找到，則在Text2中顯示“查無此人請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len([14])k=0Whilek<Listl.ListCountAndNotfoundIfTextl=Left$(Listl.List(k),n)Then

Text2=[15]found=TrueEndIfk=k+1WendIfNotfoundThenText2="查無此人"EndIfEndSub2005年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷（含參考答案）選擇題[1-5] CACDC [ 6-10] DAABB[11-151 BCCDC [16-20] CABBA[21-25] DAADC [26-30] ADBAC[31-35] CCDAB填空題[1]數(shù)據(jù)庫(kù)系統(tǒng)[2]空間[31驅(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-tnin）[14]text1.text[15]listl.list（k）2006年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)試題2007-06-1617:232006年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)試題一、選擇題（每小題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）A）耦合度B）內(nèi)聚度C）復(fù)雜度（3）下列敘述中正確的是。A）軟件測(cè)試應(yīng)該由程序開發(fā)者來完成0軟件維護(hù)只包括對(duì)程序代碼的維護(hù)D）數(shù)據(jù)傳輸特性B）程序經(jīng)調(diào)試后一般不需要再測(cè)試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)0雙向鏈表是非線性結(jié)構(gòu) D)只有根結(jié)點(diǎn)的二叉樹是線性結(jié)構(gòu)(6)對(duì)如下二叉樹ABDECF進(jìn)行后序遍歷的結(jié)果為。A)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度為7的滿二叉樹中，葉子結(jié)點(diǎn)的個(gè)數(shù)為。A)32B)31C)64D)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和DBSC)DBS包含DB和DBMSD)沒有任何關(guān)系(11)以下關(guān)于VisualBasic特點(diǎn)的敘述中，錯(cuò)誤的是。A)VisualBasic是采用事件驅(qū)動(dòng)編程機(jī)制的語言 B)VisualBasic程序既可以編譯運(yùn)行，也可以解釋運(yùn)行C)構(gòu)成VisualBasic程序的多個(gè)過程沒有固定的執(zhí)行順序 D)VisualBasic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化程序的三種基本結(jié)構(gòu)(12)以下敘述中，錯(cuò)誤的是。A)一個(gè)VisualBasic應(yīng)用程序可以含有多個(gè)標(biāo)準(zhǔn)模塊文件 B)一個(gè)VisualBasic工程可以含有多個(gè)窗體文件0標(biāo)準(zhǔn)模塊文件可以屬于某個(gè)指定的窗體文件 D)標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas(13)以下敘述中，錯(cuò)誤的是.A)在VisualBasic中，對(duì)象所能響應(yīng)的事件是由系統(tǒng)定義的B)對(duì)象的任何屬性既可以通過屬性窗口設(shè)定，也可以通過程序語句設(shè)定C)VisualBasic中允許不同對(duì)象使用相同名稱的方法 D)VisualBasic中的對(duì)象具有自己的屬性和方法(14)設(shè)有如下語句：Dima,bAsIntegerc=*VisualBasic*d=#7/20/2005#以下關(guān)于這段代碼的敘述中，錯(cuò)誤的是。A)a被定義為Integer類型變量 B)b被定義為Integer類型變量0c中的數(shù)據(jù)是字符串D)d中的數(shù)據(jù)是日期類型(15)以下能從字符串"VisualBasic”中直接取出子字符串"Basic”的函數(shù)是。A)LeftB)MidC)StringD)Instr(16)設(shè)a=4,b=3,c=2,d=l,下列表達(dá)式的值是。a>b+lOrc<dAndbModcA)TrueB)1C)-ID)0(17)以下可以作為VisualBasic變量名的是。A)A#A