vb期末试题和答案.pdf

该【vb期末试题和答案 】是由【小屁孩】上传分享，文档一共【15】页，该文档可以免费在线阅读，需要了解更多关于【vb期末试题和答案 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。:..宁夏大学新华学院08信管王艺桥一、选择题1、在一个语句内定多条语句时,每个语句之间用符号分隔。BA),B):C)、D);2、下面是合法的变量名。AA)XyzB))integerD)-X-Y3、定义两个过程Privatesuba()和PrivateFunctionb(kasIntger),在调用过程中用DimSAsIntager,XAsString定义了两个变量。下面调用语句中正确的有()。B1)Calla(S)2)Callb(X)3)Calla4)Callb5)aX6)bS7)a8)b9)M=a(X)10)M=b(S)11)M=a12)M=bA)1、2、3、4B)3、6、7、10C)2、3、10、11D)2、9、10、11、124、下面正确的赋值语句是。CA)x+y=30B)y=π*r*rC)y=x+30D)3y=x5、赋值语句a=123+left(“123456”,3)执行后,a变量中的值是。DA)”12334”B)123C)12334D)2466、假定X是一个数值型变量,那么由函数组成的表达式INT(X/2)=X/2,作用是____。AA)用于测试X是否偶数B)返回一个整数C)返回一个奇数D)用于测试X是否整数7、InputBox函数返回值的类型为________。BA)数值B)字符串C)变体D)数值或字符串(视输入的数据而定)8、运行以下程序后,显示的结果是(C)DIMN(5)N(0)=2FORI=2TO5N(I)=N(I-2)*I*IPRINTN(I);NEXTIENDA)12345B)12624120C)801280D)2412482409、在VB中,若X是一整型变量,)PRINTB)PRINT"X=";XC)PRINTX+1D)PRINT"X="+X10、表达式16/4-2^5*8/4mod5\2的值为BA)14B)4C)20D)2:..宁夏大学新华学院08信管王艺桥11、阅读以下程序,执行该程序后,数组A和数组B的值是(C)DIMA(50),B(50)FORN=1TO50:A(N)=N:NEXTNFORN=1TO50B(N)=A(N)+A(N-1)PRINTB(N);NEXTNA)数组A和数组B各存储1~50的自然数B)数组A存储1~50的自然数,数组B存储1~99的自然数C)数组A存储1~50的自然数,数组B存储1~99的奇数D)数组A存储1~50的自然数,数组B存储2~100的偶数12、设有语句X=Inputbox(“输入数值”,“0”,“示例”),程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述正确的是______B______A)变量X的值是数值10B)变量X的值是字符串“10”C)在INPUTBOX对话框标题栏中显示的是“示例”D)0是默认值13、在运行阶段,要在文本框TEXT1获得焦点时选中文本框中所有内容,对应的事件过程是(A)A)PrivateSubText1_GotFocus()==Len()EndSubB)PrivateSubText1_LostFocus()==Len()EndSubC)PrivateSubText1_Change()==Len()EndSubD)PrivateSubText1_SetFocus()==Len()EndSub14、mand3,该程序的mand1时,按钮2可用,按钮3不可见,正确的程序是(C)A)mand1_Click()B)mand1_Click()====False:..宁夏大学新华学院08信管王艺桥EndSubEndSubC)mand1_Click()D)mand1_Click()====FalseEndSubEndSub15、a和b中有且只有一个为0,可以用以下的表达式来表示(C)。A)a=0Orb=0B)a=0Xorb=0C)a*b=0anda+b<>0D)a=0andnotb=0andb=0andnota=016、设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D)A)5B)6C)0D)-117、下列程序代码:x=13:y=15:a=x-yIfx>=yThena=a+yElsea=a-yPrinta运行结果为(B)。A)-13B)-17C)13D)1518、下面程序的循环次数是_______D________ForJ=8TO35Step3PrintJNEXTJA)7B)8C)9D)1019、以下叙述中错误的是(d)A)如果过程被定义为Static,则该过程中的局部变量都是Static类型B)Sub过程中不能嵌套定义Sub过程C)Sub过程中可以嵌套调用Sub过程D)事件过程可以像通用过程一样由用户定义过程名20、请补充完整下列程序代码,用以求a和b两个数中的最大值。Ba=Val(InputBox("a="))b=Val(InputBox("b="))Ifa>bThen_____Else_______Print"max=";mA)m=b,m=aB)m=a,m=bC)b=m,a=mD)a=m,b=m24、可以唯一标识控件数组中的每一个控件的属性是_______C______A)NameB)CaptionC)IndexD)Enabled25、判断下面程序是计算哪一个数学式子的(D)INPUTNT=1:S=0:..宁夏大学新华学院08信管王艺桥FORI=1TO2*N+1STEP2T=T*IS=S+TNEXTIPRINTSA)1+3+5+?+2N+1B)1*3*5*?*(2N+1)C)1!+3!+5!+?+(2N+1)!D)1+1*3+1*3*5+?+1*3*..*(2N+1)26、如果要在命令按钮上显示图形文件,应设置命令按钮的___B____A)Style属性和Graphics属性B)Style属性和Picture属性C)Picture属性D)Graphics属性27、运行下面程序后的输出结果是____B____FORI=1TO4PRINTI;NEXTIPRINTIA)1234B)12345C)12344D)1;2;3;4;528、执行以下语句后a的值为___C___。DimaAsIntegera=1DoUntila=100a=a+2LoopA)99B)100C)溢出D)10129、在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示____B_____事件过程模板。A)Form_ClickB)Form_LoadC)Form1_ClickD)Form1_Load30、请补充完整下列程序代码,用以求a和b两个数中的最大值。Aa=Val(InputBox("a=")):b=Val(InputBox("b="))Ifa>bThen_____Else_______Print"max=";mA)m=a,m=bB)m=b,m=aC)b=m,a=mD)a=m,b=m31、对于类型声明语句:DimintX,intYasinteger,则以下说法正确的是:AA)创建了一个变体型变量intX和一个整型变量intYB)创建了两个变体型变量intX和intYC)创建了两个整型变量intX和intYD)创建了一个整型变量intX和一个变体型变量intY32、下列控件中,没有Caption属性的是____B______。:..宁夏大学新华学院08信管王艺桥A)框架B)列表框C)复选框D)单选钮33、下面子过程语句,说明合法的是:_____D_______。A)Subf1(Byvaln%()),B)Subf1(n%)AsIntegerC)Functionf1%(f1%)D)Functionf1(Byvaln%)34、如果在窗体上有一文本框Text1,可以通过C事件获得输入键的ASCII码。A、ChangeB、LostFocusC、KeyPressD、GotFocus36、下面选项中,不能用于列表框的方法是DA)AddItemB)RemoveItemC)ClearD)Print37、在过程中定义的变量,若希望在离开该过程后,还能保存过程中局部变量的值,则应使用___D____关键字在过程中定义局部变量。A)DimB)PrivateC)PublicD)Static38、假定x的值为5,则以下语句中,能输出"Result"的SelectCase语句是_____C___A)SelectCasexB)SelectCasexCase10To1CaseIs>5,Is<5Print"Result"Print"Result"EndSelectEndSelectC)SelectCasexD)SelectCasexCaseIs>5,1,3To10Case1,3,Is>5Print"Result"Print"Result"EndSelectEndSelect39、文本框没有____D____属性。A)EnabledB)VisibleC)BackColorD)Caption40、Int(*100+)/100的值是C。A)198B)))200二、填空题1、假设某一事件过程如下:PrivateSubcmd1_Click()=”VB示例”EndSub则响应该过程的对象名是cmd1,事件名是click。2、产生[10,99]之间随机整数的VB表达式是int(rnd*90+10).3、mand1的命令按钮和一个名称为Text1的文本框。mand1为禁用(灰色)。当向文本框中输入任何字符时,mand1变为可用。请在、处填入适当的内容,将程序补充完整。:..宁夏大学新华学院08信管王艺桥PrivateSubForm_Load()=falseEndSubPrivateSubText1_change()=TrueEndSub4、下列程序是产生20个随机两位数,从大到小排列,并输出到一个名为Text1的文本框中,请填空。mandl_C1icK()Dima(20)asintegerForI=1to20A(i)=int(rnd*90+10)NextForI=1to19K=iForj=I+1to20Ifa(K)<a(J)thenk=jNextIfK<>IThenT=a(i):a(i)=a(k):a(k)=TS=S&“,”&a(i)=S:EndSub5、-1表示列表框List1中最后一项的序号。6、下面是利用辗转相除法求两个数的最大公约数的函数,请补充程序。PublicFunctionf(masInteger,nasInteger)asIntegerR=mmodnDoWhiler<>0M=n:n=r:R=mmodnLoopF=nEndFunction8、VB中变量按其作用域分为全局变量、窗体模块级变量和局部变量,窗体模块级变量应在窗体模块通用声明段声明。9、在过程中定义的变量,若希望在离开该过程后,还能保存该变量的值,则应使用static关键字在过程中定义该变量。声明全局变量的关键字是声明局部变量的关键字是dim,static。10、一个工程可以包括多种类型的文件,其中,;;;包含ActiveX控件的文件扩展名为:..宁夏大学新华学院08信管王艺桥_*.ocx__。11、已知A$=”87654321”,表达式Val(Left(A$,4)+Mid(A$,4,2))值是876554。15、按如下要求书写函数定义的首语句:publicfunctionmyf(aasinteger,basinteger)asBoolean(要求:形参有两个a、b均为整形,函数名为MyF,函数返回值为逻辑型。)16、VB中变量按其作用域可分为模块级变量、全局变量、局部变量。17、阅读下面的程序,该程序的作用是利用随机函数产生10个[1,200]之间的随机整数,求其和并打印其中7的倍数,请补充完整该程序mand1_Click()ForM=1To10X=Int(rnd*200+1)Ifxmod7=0ThenPrintX;K1=k1+xNextMPrint"K1=";K1EndSub18、下面程序段的运行结果是1。DimxIfxThenPrintxElsePrintx+119、,=loadpicture(“d:\”),=loadpicture(“”)。21、要使时钟控件Timer每一秒产生一个计时器事件,则Interval属性应设置为_1000_。22、取整函数Int()=_3_,Int(-)=__-4_,Fix(-)=_-3_,Round(-)=_-4_。23、写出随机产生X的VB表达式,要求X是40≤X≤90范围内的整数int(rnd*50+40)24、获得数组上界通过ubound函数,获得数组下界通过lbound函数。25、下面程序是求出所有的幸运数显示在列表框中,并将幸运数的个数显示到文本框中。凡前两位数字之和等于后两位数字之和的四位数称为幸运数。mand1_Click()DimiAsInteger,NAsInteger,:..宁夏大学新华学院08信管王艺桥n1AsInteger,n2AsIntegerFori=1000To9999_n1=i\100_n2=iMod100Ifsum(n1)=sum(n2)Then_n=n+(i)EndIfNextiText1=NEndSubPrivateFunctionsum(sAsInteger)AsIntegerDimpAsInteger,QAsIntegerp=s\10_q=smod10_sum=p+QEndFunction26、一个求两位数的程序,要求每一个两位数的各位上的数各不相同,并统计有多少个这样的两位数,显示所有满足条件的两位数,请补充程序。CLSN=0FORA=_1to9___FORB=0TO9IFA<>BTHENX=10*A+BN=_n+1__PRINTX;ENDIFNEXTb:nextaPRINTPRINT“NUMBER:”;N27、以下程序是计算(1+1/2)*(1+1/3)*?*(1+1/10),阅读该程序,请将程序补充完整S=1fory=2to10S=s*(1+1/y)NEXTYPRINTSEND:..宁夏大学新华学院08信管王艺桥28、将这两个文本框的值进行交换,并将结果打印在此窗体上。PrivateSubForm1_Click()DimAasinteger,Basinteger,CasintegerA=Val()B=val()_c=a___A=B_b=c___printA,BEndSub29、设有数组声明语句:OptionBase1DimD(3,2)则以上语句所定义的数组D为2维数组,共有6个元素,第一维的下标从1到3。30、下面的程序段显示___6___个“*”。Fori=1To3Forj=1ToiPrint"*";NextjNexti32、在ReDim语句中加Preserve关键字的作用是保留数组中的数据33、在图片框Picture1中显示”HelloWorld”,”helloworld”34、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程PrivatesubForm_load()PrivatesubText1_change()=”计算机”“欢迎学****VB”EndsubEndsub程序运行后,在文本框中显示计算机,在图片框中显示空。35、将X四舍五入保留二位小数的VB表达式为int(x*100+)/100。三、简答题1、当Timer1的Enabled属性为True,Interval属性为1000时,请写出有下面程序段后程序的运行结果。PrivateSubTimer1_Timer():..=+>=-。CLSFORI=1TO5FORJ=5TO1STEP-1PRINT“@”;NEXTJPRINTNEXTIEND@@@@@@@@@@@@@@@@@@@@@@@@***@mand1,有以下程序段,请写出程序运行后,用户单击按钮后的运行结果。5705712mand1_Click()Dimx,y,zAsIntegerx=5:y=7Printx,y,zCallP1(x,y,z)Printx,y,zEndSubSubP1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub:..宁夏大学新华学院08信管王艺桥4写出下面程序的运行结果。x=Int(Rnd)+3ifx^2>8Theny=x^2+1ifx^2=9Theny=x^2-2ifx^2<8Theny=x^3Printy75、有下面一程序段,写出当程序运行后用户3次单击窗体后程序的运行结果。PrivateSubForm_Click()DimCountAsIntegerCount=Count+1Print"已单击窗体:"&Count&"次。"EndSub已单击窗体:1次已单击窗体:1次已单击窗体:1次6、在窗体上添加一列表框List1,然后编写如下两个事件过程:PrivateSubForm_Load()PrivateSubForm_Click()"ItemA""ItemB""ItemC""ItemD""ItemE"EndSubItemAItemC请写出单击窗体后,list1中的内容?7、设有如下程序PrivateSubForm_Click()DimaAsInteger,bAsIntegera=20:b=50pla,bp2a,bp3a,bPrint"a=";a,"b=";bEndSub:..宁夏大学新华学院08信管王艺桥Subpl(xAsInteger,ByValyAsInteger)x=x+10v=v+20EndSubSubp2(byValxAsInteger,yAsInteger)x=x+10y=y+20EndSubSubp3(ByValxAsInteger,ByValyAsInteger)x=x+10y=y+20EndSubA=30b=70该程序运行后,单击窗体,则在窗体上显示的内容是:8、在窗体上画一个命令按钮,mand1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)AsIntegerM=IIf(x>y,x,y)EndFunctionmand1_Click()DimaAsInteger,bAsIntegera=100b=200PrintM(a,b)EndSub程序运行后,单击命令按钮,请写出程序输出结果。2009、在窗体上画一个命令按钮,然后编写如下事件过程:mand1_Click()a=InputBox("请输入一个整数")b=InputBox("请输入一个整数")Printa+bEndSub程序运行后,单击命令按钮,在输入对话框中分别输入321和abc,请写出程序输出结果:..宁夏大学新华学院08信管王艺桥321abc10、在窗体中添加一个命令按钮,mand1,然后编写如下程序:mand1_Click()A=1234B$=Str$(A)C=Len(B$)PrintCEndSub5程序运行后,单击命令按钮,请写出在窗体上显示的内容。11、写出下面程序的运行结果。x=Int(Rnd)+3ifx^2>8Theny=x^2+1ifx^2=9Theny=x^2-2ifx^2<8Theny=x^3Printy7四、编程题1、编程实现由用户输入2个数,程序输出这两个数的最大公约数与最小公倍数。(要求用过程实现)DimxasintegerDimyasintegerDimzasintegerPublicsubwyq(byvalxasinteger,byvalyasinteger,zasinteger)Ifx<ythent=x:x=y:y=tR=xmodyDowhiler<>0X=yY=rR=xmodyLoopZ=yEndsubmand1_Click()X=int()Y=int():..宁夏大学新华学院08信管王艺桥Callwyq(x,y,z)=”最大公约数:”&=”最小公倍数:”&s*y/zEndsub2、编写求n!的过程,mand1_click事件中调用从而计算1!+3!+5!+?+11!.DimtasintegerDimyaslongDimsaslongPublicsubwyq(byvalxasinteger,yaslong)Y=1Fort=1toxY=y*tNexttEndsubmand1_Click()S=0Fort=1to11step2Callwyq(t,y)S=s+yNexttPrintsEndsub3、随机产生10个两位数打印输出,并将其排序后再输出。mandl_C1icK()Dima(10)asintegerForI=1to10A(i)=int(rnd*90+10)NextForI=1to9K=iForj=I+1to10Ifa(K)<a(J)thenk=jNextIfK<>IThenT=a(i):a(i)=a(k):a(k)=TS=S&“,”&a(i)=S:EndSub:..宁夏大学新华学院08信管王艺桥4、编写一段程序,当用户在窗体上单击时,显示如下直角三角形(要求使用循环语句):1223334444PrivateSubform_C1icK()fort=1to4Fori=1totPrintt:NextiprintNexttEndsub