計(jì)算機(jī)二級(jí)考試VB鞏固題

計(jì)算機(jī)二級(jí)考試VB鞏固題鞏固題一：1.要使窗體Form1顯示出來(lái)，應(yīng)使用(【55】)(A)LoadForm1(B)Form1Load(C)Show.Form1(D)Form1.Show2.在使用通用對(duì)話(huà)框之前要先將(【56】)添加到工具箱中。(A)ActiveX(B)ComboBox(C)CommonDialog(D)Color3.用Open語(yǔ)句打開(kāi)文件時(shí)，若省略For子句，則隱含打開(kāi)文件的存取方式為(【57】)(A)Binary(B)Random(C)Input(D)OutPut4.設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體LoopWhile<條件>則以下敘述中錯(cuò)誤的是(A)“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)(B)循環(huán)體中可以使用ExitDo語(yǔ)句(C)若“條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體(D)如果“條件”總是為T(mén)rue，則不停地執(zhí)行循環(huán)體5.要獲得打開(kāi)文件的長(zhǎng)度(字節(jié)數(shù))應(yīng)用使用(【58】)函數(shù)。(A)FileLen(B)Len(C)Loc(D)Lof6.給文件改名的VB語(yǔ)句正確的是(【59】)(A)Name原文件名To新文件名(B)Rename原文件名To新文件名(C)Name原文件名As新文件名(D)Rename原文件名As新文件名7.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下的事件過(guò)程：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a(i)=iNextCallSwap【5】Fori=1To10Printa(i);NextEndSubSubSwap(b()AsInteger)n=【5】Fori=1Ton/2t=b(i)b(i)=b(n)b(n)=t【5】NextEndSub上述程序的功能是，通過(guò)調(diào)用過(guò)程Swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。請(qǐng)?zhí)羁铡?.在窗體上畫(huà)一個(gè)標(biāo)簽(名稱(chēng)為L(zhǎng)abel1)和一個(gè)計(jì)時(shí)器(名稱(chēng)為T(mén)imer1)，然后編寫(xiě)如下幾個(gè)事件過(guò)程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=【5】EndSubPrivateSubForm_Click()Timer1.Enabled=【6】EndSubPrivateSubTimer1_Timer()Label1.Caption=【7】EndSub程序運(yùn)行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時(shí)間，每隔1秒鐘變換一次(見(jiàn)圖)。請(qǐng)?zhí)羁铡?.下面程序用選擇法將數(shù)組a中的10個(gè)整數(shù)按升序排列。算法是：從數(shù)組中找出最小的值，將該數(shù)與第1個(gè)數(shù)交換，這樣第1個(gè)數(shù)組元素是最小的數(shù)。再?gòu)牡?個(gè)數(shù)開(kāi)始，找出其后各數(shù)組元素中最小的數(shù)，將該數(shù)與第2個(gè)數(shù)交換位置，這樣第2個(gè)數(shù)是次小的'數(shù)。如此重復(fù)上述過(guò)程，即可將數(shù)組排序。請(qǐng)完善以下的程序：OptionBase1PrivateSubCommand1_Click()Dima(1To10)AsInteger,iAsInteger,jAsInteger,kAsIntegerFori=1To10a(i)=Val(InputBox(“請(qǐng)輸入第a(”&i&“)個(gè)數(shù)：”))NextiFori=1To9【60】Forj=i+1To10Ifa(k)【61】a(j)Thenk=jNextjTemp=a(i):【62】:a(k)=TempNextiFori=1To10Printa(i),NextiEndSub【60】(A)k=0(B)k=1(C)k=i(D)k=j【61】(A)=(B)<>(C)<(D)>【62】(A)a(i)=a(j)(B)a(j)=a(i)(C)a(k)=a(i)(D)a(i)=a(k)10.設(shè)有程序：OptionBase1PrivateSubCommand1_Click()Dimarr1,MaxasIntegerarr1=Array(12,435,76,24,78,54,866,43)【12】=arr1(1)Fori=1To8Ifarr1(i)>MaxThen【13】NextiPrint"最大值是:";MaxEndSub以上程序的功能是：用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。請(qǐng)?zhí)羁?。鞏固題二：1.執(zhí)行以下程序段后，變量c$的值為(【45】)a$=“VisualBasic6.0Programing”b$=“Design”c$=Lcase(Mid$(a$,7,6))&Right$(a$,11)&b$(A)Visualbasic6.0design(B)basicProgramingDesign(C)BASICProgramingDesign(D)VisualBASIC6.0design2.假定有一個(gè)菜單項(xiàng)，名為MenuDiv，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效(變灰)，應(yīng)使用的語(yǔ)句是(【46】)(A)MenuDiv.Visible=False(B)MenuDiv.Visible=True(C)MenuDiv.Enabled=False(D)MenuDiv.Enabled=True3.為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器的某個(gè)屬性設(shè)置為False，這個(gè)屬性是(【47】)(A)Enabled(B)Interval(C)Timer(D)Visible4.為了把一個(gè)記錄型變量Stu的內(nèi)容寫(xiě)入隨機(jī)文件Ks48.dat中的指定位置，所使用的語(yǔ)句格式為(【48】)(A)Put#文件號(hào),記錄號(hào),Stu(B)Put#文件號(hào),Stu,記錄號(hào)(C)Get#文件號(hào),記錄號(hào),Stu(D)Get#文件號(hào),Stu,記錄號(hào)5.Sub過(guò)程的定義(【49】)(A)一定要有形參(B)一定要有過(guò)程的名稱(chēng)(C)一定要指明是公有的還是私有的(D)一定要指定其類(lèi)型6.Function過(guò)程有別于Sub過(guò)程的最主要的特點(diǎn)是(【50】)(A)Function過(guò)程一定要有形參，而Sub過(guò)程可以沒(méi)有形參(B)Function過(guò)程的終端語(yǔ)句是EndFunction，而Sub過(guò)程的終端語(yǔ)句是EndSub(C)Function過(guò)程用于計(jì)算函數(shù)值，而Sub過(guò)程用于改變屬性值(D)Function過(guò)程要返回函數(shù)值，而Sub過(guò)程沒(méi)有值的返回7.要定義一個(gè)過(guò)程為局部過(guò)程，應(yīng)用使用(【51】)關(guān)鍵字。(A)Public(B)Static(C)Sub(D)Private8.下列定義Func為函數(shù)過(guò)程的定義語(yǔ)句中錯(cuò)誤的是(【52】)(A)FunctionFunc(aAsInteger)AsInteger(B)StaticFunctionFunc(a)(C)PrivatePublicFunc(a)AsInteger(D)PrivateFunctionFunc(aAsSingle)9.標(biāo)準(zhǔn)模塊存盤(pán)后，形成的磁盤(pán)文件擴(kuò)展名為(