VB期末考试试卷及答案

VB期末考试试卷及答案一·选择题1.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（B）A属性、控件和方法B属性、事件和方法C窗体、控件和过程D控件、过程和模块2.所有控件都有一个共同的属性，这个属性是（C）AtextBfontCnameDcaption3.下列叙述中错误的是（A）A工程文件扩展名是.vbgB标准模块文件的扩展名是.basC窗体模块的扩展名是.frmD类模块的扩展名是.cls4.当要编写一个新的VisualBasic程序时，所做的第一件事是（A）A新建一个工程B编写代码C设置属性D添加ActiveX控件5.下面控件中，没有caption属性的是（B）A框架B组合框C命令按钮D复选按钮6.在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（B）AMultiLineBPasswordCharCTextDselText7.若要将窗体从内存中卸载出去，其实现的方法是（D）AShowBHideCLoadDUnLoad8.下列关于过程叙述不正确的是（D）A过程的传值调用是将实参的具体值传值传递给形参B过程的传址调用是将实参在内存的地址传递给形参C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D无论过程传值调用还是传地址调用，参数传递都是双向的9.某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（C）A在Form1的Load事件过程中加入语句LoadForm2B在Form2的Load事件过程中加入语句Form2.ShowC在“过程属性”对话框中把“启动对象”设置为Form2D在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为210.以下关于文件的叙述中，正确的是（B）A以Output方式打开一个不存在的文件时，系统将显示出错信息B以Append方式打开的文件，既可以进行读操作，也可以进行写操作C在随机文件在，每个记录的长度是固定的D无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相同的11.设a=6，b=8，c=10则函数IIf(ab,Iif(bc,c,b),a+b)的返回值是（A）A10B6C8D1212.下面程序的执行结果为（B）I=”1”:j=”2”I=val(i)+val(j)J=val(“12”)IfijThenprinti-jElseprintj-iA9B-9C12D013.下面程序的执行结果为（A）DimS(10)ASIntegerFori=0to10S(I)=2*iNextiPrintS(S(3))A12B6C0D4二·程序填空题：1.在窗体上画一个命令按钮（Command1）和一个标签（Label1），为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，请在指定位置填上正确代码将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dima(3,2)ASIntegerS=0Fori=1to3Forj=1to2a(I,j)=i+js=【1】NextjNexti【2】EndSub2.下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中5的倍数所占比例，请在指定位置填上正确代码将程序补充完整。PrivateSubCommand1_Click()RandomiseDima(10)AsIntegerForj=1to10a(i)=【3】If【4】Thenk=k+1Printa(j)NextjPrintPrintk/10EndSub3.以下程序运行后，在Text1中输入任意字符串，单击命令按钮，将Text1中的字符串转换为大写，再将字符串逆置（如ABCD--DCBA），在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。PrivateSubCommand1_Click()St=Ucase(Text1.text)Fori=【5】To1Step-1S2=s2+Mid(s1,【6】,1)Text2.text=s2EndSub4.Nexti设有如下的循环，要求程序运行时执行3次循环，请在指定位置填上正确代码将程序补充完整。DimxAsIntegerX=1Dox=x+2PrintxLoopUntil【7】5.在窗体上画一个组合框（Combo1）、一个列表框（List1）和一个命令按钮（Command1）。下面程序的功能是在组合框中选择一个大学名称，单击命令按钮，则所选大学名称将添加在列表框中，当组合框中没有要选的大学名称时，输入一个名称，则此大学名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代码将程序补充完整。PrivateSubForm_Load()Combo1.AddItem”交通大学”Combo1.AddItem”理工大学”Combo1.AddItem”财经大学”Combo1.AddItem”外贸大学”EndSubPrivateSubCommand1_Click()【8】Flag=FlaseFori=0to【9】IfCombo1.List(i)=Combo1.TextThenflag=True:EixtForEndIfNextiIfNotflagThen【10】EndSub6.下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上正确代码将程序补充完整。PrivateSubCommand1_Click()Dimia(),i%,max%,imax%.t%Ia=Array(3,8,5,6,7,4,9)Fori=0To5:imax=iForj=i+1To6If【11】Thenimax=jNextjT=ia(i):【12】:ia(imax)=tNextiFori=0To6:Printia(i):NextiEndSub7.窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。PrivateSubCommand1_Click()Text1=””Open”c:\test.txt”ForInputAs#1DoWhileNot【13】LineInput#1,SText1.text=Text1.text+【14】+chr(13)+chr(10)Loop【15】EndSub答案：1.S+a(I,j)2.Label10=S3.Int(Rnd*99)4.a(i)mod5=05.Len(S1)6.i7.x=78.List1.AddItemCombo1.text9.3/ListCount10.Combo1.AddItemCombo1.text11.a(j)imax12.ia(i)=ia(imax)13.Eof14.S15.Close#1三·阅读程序，在答题纸指定位置写出程序运行结果。1.以下程序运行后，单击命令按钮，写出程序的运行结果。PrivateSubCommand1_Click()Dimn%,b,tt=1:b=1:n=2DoWhilen=4Ifb1ThenExitDob=b*n:t=t+b:n=n+1LoopPrint“t=”&tEndSub2.在窗体中添加一个命令按钮Command1，并编写如下程序：PrivateSubCommand1_Click()X=InputBox(x)Ifx^2=9Theny=1/xIfx^29Theny=x^2+1If(x^2)-7=9Theny=xPrint“y=”&yEndSub程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。3.窗体上画一个命令按钮，并编写以下事件过程和子过程：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=20CallValue(x,y)Print“x=”&x,“y=”&yEndSubPrivateSubValue(ByValmAsInteger,nAsInteger)m=m*2：ｎ=n-5EndSub程序运行后，单击命令按钮，写出程序的输出结果。4.窗体上画一个命令按钮和一个图像框，并编写以下事件过程：PrivateSubCommand1_Click()Dima(3,3)Form=1To3Forn=1To3Ifn=mOrn=4–mThena(m,n)=m+nElsea(m,n)=0EndIfPicture1.Printa(m,n)NextnPicture1.PrintNextmEndSub程序运行后，单击命令按钮，图像框中显示的内容是什么?5.在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序：PrivateSubCommand1_Click()List1.RemoveItem1List1.RemoveItem2EndSubPrivateSubForm_Load()List1.AddItem”兰州”List1.AddItem”甘肃”List1.AddItem”交通”List1.AddItem”大学”EndSub程序运行后，单击命令按钮，写出在列表框中显示的结果。答案：1.32.43.12；154.204；040；4065兰州；大学四·编写程序：输出（1,100）之间同时被5和7整除的数的个数及其它们的和。答案：PrivateSubForm1_Click()Dims%,c%Fori=1to100IfiMod5=0AndiMod7=0Thens=s+1c=c+iEndIfNextiPrints,cEndSub