VB考試題及答案

1、VB應(yīng)用程序中可以包括三種模塊：(窗體模塊)、(原則模塊)和類(lèi)模塊。2、下列過(guò)程不能在原則模塊中定義的是(A)。A、事件過(guò)程B、子過(guò)程C、函數(shù)過(guò)程D、公共過(guò)程3、如下論述中錯(cuò)誤的是DA、假如過(guò)程被定義為Static類(lèi)型，則該過(guò)程中的局部變量都是Static類(lèi)型B、Sub過(guò)程中不能嵌套定義Sub過(guò)程C、Sub過(guò)程中可以嵌套調(diào)用Sub過(guò)程D、事件過(guò)程可以像通用過(guò)程同樣由顧客定義過(guò)程名2、在某一窗體模塊中定義的全局級(jí)過(guò)程，若被該模塊外的模塊所調(diào)用，必須在該過(guò)程名前加上(窗體名稱(chēng))。2、自定義的過(guò)程有兩種形式：＿Sub＿和＿Function＿。3、用于退出過(guò)程的語(yǔ)句是(D)。A、ExitB、ExitForC、ExitDoD、ExitSub4、在過(guò)程的參數(shù)列表中列入__Optional__關(guān)鍵字，就可以指定過(guò)程的參數(shù)為可選的。5、假如使用Call關(guān)鍵字來(lái)調(diào)用一種需要參數(shù)的過(guò)程，參數(shù)就必須要加上__括號(hào)__。1、在窗體代碼中有如下事件過(guò)程的申明，其中Private表達(dá)(B)PrivateSublblAbc_Change()……EndSubA、此過(guò)程可以被任何其他過(guò)程調(diào)用B、此過(guò)程只可以被本窗體模塊中的其他過(guò)程調(diào)用C、此過(guò)程不可以被其他過(guò)程調(diào)用D、此過(guò)程只可以被本工程中的其他過(guò)程調(diào)用9、假定已定義了一種過(guò)程SubAdd(aAsSingle,bAsSingle)，則對(duì)的的調(diào)用語(yǔ)句是(A)。A、Add12,5B、Call(2*x,Add(1.57))C、CallAddx,yD、CallAdd(12,12,x)10、要想在過(guò)程調(diào)用后返回兩個(gè)成果，下面的過(guò)程定義語(yǔ)句合法的是(C)。A、SubProcl(ByVal,n,ByValm)B、SubProcl(n,ByValm)C、SubProcl(n,m)D、SubProcl(ByValn,m)6、寫(xiě)出單擊命令按鈕Command1時(shí)的窗體顯示成果。PublicSubProc(ByRefnAsInteger,ByValmAsInteger)n=nMod10m=m\10EndSubPrivateSubCommand1_Click()DimxasInteger,yAsIntegerx=15:y=30CallProc(x,y)Printx;yEndSub顯示成果：5307、下列程序代碼的功能是計(jì)算的值，在橫線(xiàn)上填上合適內(nèi)容。PrivateSubCommand1_Click()Dimf1AsLong,f2AsLong,f3AsLong,sAssingleCallfact(5,f1)Callfact(7,f2)Callfact(8,f3)s=(f1+f2)/f3Print“s=”;sEndSubSubfact(ByvalnAsInteger,ByreffAsLong)DimtAsLong,iAsIntegert=1Fori=1Tont=t*iNextif=tEndSub11、單擊命令按鈕，在輸入對(duì)話(huà)框中輸入234，窗體輸出成果為_(kāi)_24__。FunctionFun(numAsInteger)AsIntegerDimkAsIntegerk=1num=Abs(num)DoWhilenumk=k*(numMod10)num=num\10LoopFun=kEndFunctionPrivateSubCommand1_Click()DimnAsIntegerDimrAsIntegern=InputBox("請(qǐng)輸入一種數(shù)")n=Val(n)r=Fun(n)PrintrEndSub12、編程實(shí)現(xiàn)顯示如下圖形：******************PrivateSubp(ByValiAsInteger)Dimj%,k%Forj=0To7-iPrint"";NextjFork=0To2*i-1Print"*";NextkPrintEndSubPrivateSubCommand1_Click()Dimi%Fori=1To2piNextiFori=3To1Step-1piNextiEndSub20、補(bǔ)全程序題：如下過(guò)程實(shí)現(xiàn)求2到50以?xún)?nèi)奇數(shù)的和，請(qǐng)?jiān)趧澗€(xiàn)處將過(guò)程補(bǔ)充完整：Sub

mult()Dimsum

as

Integersum=0DimIasIntegerForI=2to50ifIMOD2=___0___Then__Loop_____sum=sum+I______NextI______PrintsumEndSub16、補(bǔ)全程序題：如下Prime過(guò)程，用于判斷一種數(shù)與否為素?cái)?shù)。請(qǐng)?jiān)趧澗€(xiàn)處將過(guò)程補(bǔ)充完整：SubPrime(inputvarAsInteger)Fori=__2Toinputvar-1IfinputvarModi=_0___ThenGoTocomfinishEndIfNextiPrint"素?cái)?shù)"GoTo__finish__comfinish:Print"不是素?cái)?shù)"finish:EndSub9、在窗體上有一種名稱(chēng)為Command1的命令按鈕，程序的功能：通過(guò)調(diào)用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的寄存位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換，請(qǐng)?zhí)羁昭a(bǔ)全程序。OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a(i)=iNextCallswap(a)Fori=1To10Printa(i);NextEndSubSubswap(b()AsInteger)n=10Fori=1Ton/2t=b(i)b(i)=b(n)b(n)=tn=n-1NextEndSub3.5常用內(nèi)部函數(shù)簡(jiǎn)介5、體現(xiàn)式Sgn(-25)+Sqr(625)的值為＿24＿。1、要返回不不小于X最大整數(shù)的函數(shù)是(A)。A、Int(x)B、Fix(x)C、Cint(x)D、Clng(x)2、求COS35°可以使用的函數(shù)是(D)。Cos35B、Cos(35)C、Cos(35o)D、Cos(35*3.14159/180)1、通過(guò)調(diào)用函數(shù)實(shí)現(xiàn)從字符串“VisualBasic6.0”中截取子串“Basic”，調(diào)用形式為(Mid(“VisualBasic6.0”,8,5))。6、產(chǎn)生[a,b]區(qū)間的隨機(jī)整數(shù)，可使用體現(xiàn)式_a+Int(Rnd*(b-a+1))_。1、如下哪種形式可以得到[1，6]之間的隨機(jī)整數(shù)(D)。A、Rnd*5+1B、Int(Rnd*5+1)C、Rnd*6+1D、Int(Rnd*6+1)2、可以同步刪除字符串前導(dǎo)和尾部空白的函數(shù)是(C)。A、Ltrim B、RtrimC、TrimD、Mid3、執(zhí)行如下程序段后，變量c$的值為(D)。a$=“VisualBasicPrograming”b$=“Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)A、VisualBASICProgramingB、QuickBasicProgramingC、QUICKBasicProgramingD、QuickBASICPrograming7、若S=Left("Database",4)，則S的值是_Data_。4、設(shè)a=6，則執(zhí)行x=IIf(a>5,-1,0)后，x的值為(D)。A、5 B、6 C、0 D、-18、下列程序段的成果為(B)。A="abcdefghijk"ForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X&Y&ZNextIPrintZA、bcB、bcabjkC、abD、bcdabjk9、編寫(xiě)語(yǔ)句段：運(yùn)用Rnd產(chǎn)生100個(gè)1~4之間的隨機(jī)整數(shù)，并記錄產(chǎn)生的1、2、3、4的個(gè)數(shù)。參照答案：DimS(4)AsIntegerRandomizeForI=1To4S(i)=0NextiFori=1To100x=Int(Rnd*4+1)S(x)=S(x)+1NextiFori=1To4Print"S(";i;")=";S(i)NextI3.6自定義類(lèi)型與枚舉類(lèi)型9、下面論述中不對(duì)的的是(C)。A、自定義類(lèi)型的數(shù)據(jù)就是若干變量構(gòu)成的一種集合B、自定義類(lèi)型中的元素類(lèi)型可以是系統(tǒng)提供的基本數(shù)據(jù)類(lèi)型或已申明的自定義類(lèi)型C、自定義類(lèi)型只能在窗體模塊的通用申明段進(jìn)行申明D、在窗體模塊中定義自定義類(lèi)型時(shí)必須使用Private關(guān)鍵字2、設(shè)有如下語(yǔ)句TypeStunameAsString*10ScoreAsSingleEndTypeDimStulAsStu,Stu2AsStu則下面論述中錯(cuò)誤的是(C)。A、Type是保留字B、Stu是顧客定義的記錄類(lèi)型C、name和score表達(dá)記錄變量Stu1的組員D、Stu1和Stu2是屬于記錄類(lèi)型Stu的變量2、有如下程序段TYPEgoodsNumASINTEGERNamASSTRING*13ENDTYPEDIMclothASgoods該程序段定義了兩個(gè)程序成分,它們分別是_A_。A、記錄類(lèi)型和記錄變量B、記錄類(lèi)型和數(shù)組C、顯示類(lèi)型和數(shù)組D、記錄變量和數(shù)組3、若有如下闡明語(yǔ)句TypeemployeenumAsIntegersalaryAsSingleEndTypeDimprogrammerAsemployee則下面表達(dá)記錄變量programmer的組員Salary對(duì)的的是(D)。A、programmer->salary B、.salaryC、grammer D、programmer.salary4、下面事件過(guò)程的功能是：輸入若干個(gè)學(xué)生的姓名和年齡寄存到一維數(shù)組S中，然后輸入一種姓名，查詢(xún)?cè)搶W(xué)生的年齡并輸出，在橫線(xiàn)上填上合適內(nèi)容。PrivateTypestunameAsString*10ageAsIntegerEndTypePrivateSubCommand1_Click()Dims()AsstuDimfnameAsString*10n=InputBox("請(qǐng)輸入學(xué)生人數(shù):")ReDims(n)Fori=1TonWiths(i).