VB考试题及答案

1、VB应用程序中可以包括三种模块：(窗体模块)、(原则模块)和类模块。2、下列过程不能在原则模块中定义的是(A)。A、事件过程B、子过程C、函数过程D、公共过程3、如下论述中错误的是DA、假如过程被定义为Static类型，则该过程中的局部变量都是Static类型B、Sub过程中不能嵌套定义Sub过程C、Sub过程中可以嵌套调用Sub过程D、事件过程可以像通用过程同样由顾客定义过程名2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上(窗体名称)。2、自定义的过程有两种形式：＿Sub＿和＿Function＿。3、用于退出过程的语句是(D)。A、ExitB、ExitForC、ExitDoD、ExitSub4、在过程的参数列表中列入__Optional__关键字，就可以指定过程的参数为可选的。5、假如使用Call关键字来调用一种需要参数的过程，参数就必须要加上__括号__。1、在窗体代码中有如下事件过程的申明，其中Private表达(B)PrivateSublblAbc_Change()……EndSubA、此过程可以被任何其他过程调用B、此过程只可以被本窗体模块中的其他过程调用C、此过程不可以被其他过程调用D、此过程只可以被本工程中的其他过程调用9、假定已定义了一种过程SubAdd(aAsSingle,bAsSingle)，则对的的调用语句是(A)。A、Add12,5B、Call(2*x,Add(1.57))C、CallAddx,yD、CallAdd(12,12,x)10、要想在过程调用后返回两个成果，下面的过程定义语句合法的是(C)。A、SubProcl(ByVal,n,ByValm)B、SubProcl(n,ByValm)C、SubProcl(n,m)D、SubProcl(ByValn,m)6、写出单击命令按钮Command1时的窗体显示成果。PublicSubProc(ByRefnAsInteger,ByValmAsInteger)n=nMod10m=m\10EndSubPrivateSubCommand1_Click()DimxasInteger,yAsIntegerx=15:y=30CallProc(x,y)Printx;yEndSub显示成果：5307、下列程序代码的功能是计算的值，在横线上填上合适内容。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、单击命令按钮，在输入对话框中输入234，窗体输出成果为__24__。FunctionFun(numAsInteger)AsIntegerDimkAsIntegerk=1num=Abs(num)DoWhilenumk=k*(numMod10)num=num\10LoopFun=kEndFunctionPrivateSubCommand1_Click()DimnAsIntegerDimrAsIntegern=InputBox("请输入一种数")n=Val(n)r=Fun(n)PrintrEndSub12、编程实现显示如下图形：******************PrivateSubp(ByValiAsInteger)Dimj%,k%Forj=0To7-iPrint"";NextjFork=0To2*i-1Print"*";NextkPrintEndSubPrivateSubCommand1_Click()Dimi%Fori=1To2piNextiFori=3To1Step-1piNextiEndSub20、补全程序题：如下过程实现求2到50以内奇数的和，请在划线处将过程补充完整：Sub

mult()Dimsum

as

Integersum=0DimIasIntegerForI=2to50ifIMOD2=___0___Then__Loop_____sum=sum+I______NextI______PrintsumEndSub16、补全程序题：如下Prime过程，用于判断一种数与否为素数。请在划线处将过程补充完整：SubPrime(inputvarAsInteger)Fori=__2Toinputvar-1IfinputvarModi=_0___ThenGoTocomfinishEndIfNextiPrint"素数"GoTo__finish__comfinish:Print"不是素数"finish:EndSub9、在窗体上有一种名称为Command1的命令按钮，程序的功能：通过调用过程swap，调换数组中数值的寄存位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换，请填空补全程序。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常用内部函数简介5、体现式Sgn(-25)+Sqr(625)的值为＿24＿。1、要返回不不小于X最大整数的函数是(A)。A、Int(x)B、Fix(x)C、Cint(x)D、Clng(x)2、求COS35°可以使用的函数是(D)。Cos35B、Cos(35)C、Cos(35º)D、Cos(35*3.14159/180)1、通过调用函数实现从字符串“VisualBasic6.0”中截取子串“Basic”，调用形式为(Mid(“VisualBasic6.0”,8,5))。6、产生[a,b]区间的随机整数，可使用体现式_a+Int(Rnd*(b-a+1))_。1、如下哪种形式可以得到[1，6]之间的随机整数(D)。A、Rnd*5+1B、Int(Rnd*5+1)C、Rnd*6+1D、Int(Rnd*6+1)2、可以同步删除字符串前导和尾部空白的函数是(C)。A、Ltrim B、RtrimC、TrimD、Mid3、执行如下程序段后，变量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、设a=6，则执行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、编写语句段：运用Rnd产生100个1~4之间的随机整数，并记录产生的1、2、3、4的个数。参照答案：DimS(4)AsIntegerRandomizeForI=1To4S(i)=0NextiFori=1To100x=Int(Rnd*4+1)S(x)=S(x)+1NextiFori=1To4Print"S(";i;")=";S(i)NextI3.6自定义类型与枚举类型9、下面论述中不对的的是(C)。A、自定义类型的数据就是若干变量构成的一种集合B、自定义类型中的元素类型可以是系统提供的基本数据类型或已申明的自定义类型C、自定义类型只能在窗体模块的通用申明段进行申明D、在窗体模块中定义自定义类型时必须使用Private关键字2、设有如下语句TypeStunameAsString*10ScoreAsSingleEndTypeDimStulAsStu,Stu2AsStu则下面论述中错误的是(C)。A、Type是保留字B、Stu是顾客定义的记录类型C、name和score表达记录变量Stu1的组员D、Stu1和Stu2是属于记录类型Stu的变量2、有如下程序段TYPEgoodsNumASINTEGERNamASSTRING*13ENDTYPEDIMclothASgoods该程序段定义了两个程序成分,它们分别是_A_。A、记录类型和记录变量B、记录类型和数组C、显示类型和数组D、记录变量和数组3、若有如下阐明语句TypeemployeenumAsIntegersalaryAsSingleEndTypeDimprogrammerAsemployee则下面表达记录变量programmer的组员Salary对的的是(D)。A、programmer->salary B、.salaryC、grammer D、programmer.salary4、下面事件过程的功能是：输入若干个学生的姓名和年龄寄存到一维数组S中，然后输入一种姓名，查询该学生的年龄并输出，在横线上填上合适内容。PrivateTypestunameAsString*10ageAsIntegerEndTypePrivateSubCommand1_Click()Dims()AsstuDimfnameAsString*10n=InputBox("请输入学生人数:")ReDims(n)Fori=1TonWiths(i).