山东交通学院成人学历VB程序设计期末考试题及参考答案.docx

《山东交通学院成人学历VB程序设计期末考试题及参考答案.docx》由会员分享，可在线阅读，更多相关《山东交通学院成人学历VB程序设计期末考试题及参考答案.docx（8页珍藏版）》请在第一文库网上搜索。

1、VB程序设计A复习题一、单选题（每小题3分，共计45分。）1文本框控件中将TeXt的内容全部显示为所定义的字符的属性项是（A）.A.PasswordCharB.需要编程来实现C.PasswordD.以上都不是2.欲使标签的内容对其方式,必须设置属性（B）.A.AutoSizeB.A1ignmentC.1eftD.WordWrap3.下列字符串常量中,最大的是（C）.A.北京B.上海C.天津D.”广州4.要使标签能透出窗体的背景,必须设置（A）属性.A.BackSty1eB.BorderSty1eC.AppearanceD.BackCo1or5.文本框中的内容，由下列（A）属性反映.A.Text

2、B.CaptionC.Se1textD.se11enght6.INT(IOo*RND(1)产生的随机整数的闭区间是(A),A.0,99B.1,100C.0,100D.1,997.下列方法中可用于列表框动态添加数据的是(B).A.addB.additemD.removeitem8.函数1en(Str(Va1(123.4)的值为(C).A.11B.5C.add1istC.6D.89.表达式INT(8*SQR(36)*1(-2)*10+0.5)/10的值是(C).A.0.48B.0.048C.5D.0510.以下不具有Picture属性对象是（D）.A.窗体B.图片框C.图像框D.文本框二、填空题（

3、每小题2分，共计20分。）1 .在VB6.0中,变量名最长可达255个字符.2 .男性（sex）,年龄（age）在1820岁之间，身高（SiZe）在165米以上，列出逻辑表达式一SeXandage=18andagev=20andsize=165。3 .:1=12:J=3:I=int（-8.6）+IJ+133MOD5,则I值是.-I。4 .要使一个按钮设为默认按钮,应把此按钮的DefaUIt属性的值设为True.5 .一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示工程文件.6 .如果要使用命令按钮表面显示文字退出（X）（在字符X之下加下划线），则其CaPtiOn属性设置为退出（

4、&X）.三、判断题（每小题2分，共计20分。）1在MSgBOX函数中prompt参数是必须的（Y）.2 .文本框控件有CaPtion属性（N）.3 .要使定时器控件起作用,其属性Interva1不可以设置为O（Y）.4 .图片框不是容器，图像框是容器（N）.5 .有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号（Y）.6 .计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量（Y）.7 .设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字

5、（Y）.8 .由ViSUaIBaSiC语言编写的应用程序有解释和编译两种执行方式（Y）.9 .Visua1BaSiC程序的运行可以从Main（）过程启动，也可以从某个窗体启动（Y）.10 .如果一个菜单项的ViSibIe属性为FaISe,则它的子菜单也不会显示（Y）.四、程序设计（每小题15分，共计15分。）编写函数fun其功能是:根据整型形参m,计算如下公式的值:y=12!+14!+.+1m!（m是偶数）答：Din1iAsInteger,jAsInteger,tAsIntegerfun=OFori=2TomStep2t=1Forj=1Toit=t*jNextfun=fun+1/tNext一、

6、单选题（每小题2分，共计20分）1以下叙述中错误的是（）.AWisua1Basic是事件驱动型可视化编程工具BiVisua1Basic应用程序不具有明显开始和结束语句CViS11aIBaSiC工具箱中的所有控件都具有宽度（Width）和高度（HeighI）属性DiVisua1Basic中控件的某些属性只能在运行时设置答案：C2 .InputBox函数返回的函数值的类型是（）.A:数值8:字符串C数值或字符串O：根据需要可以是任何类型数据答案：C3 .常用控件的StyIe属性值是（）.A:字符常量8:逻辑常量C数值常量。：日期常量答案：C4 .如果要在命令按钮上显示图形文件,应设置命令按钮的（）

7、.AiSty1e属性和Graphics属性BiSty1e属性和Picture属性CiPicture属性DiGraphics属性答案：B5 .在设计阶段,双击窗体Form1的空白处,打开代码窗口，显示（）事件过程模板.A:Form.C1ickBiForm1oadCiForm1C1ickDiForm11oad答案：B二、填空题（每小题2分，共计20分）1在VB中,若要使一个文本框（TeXI）中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的属性的值设置为TrUe.答案：Mu1ti1ine2 .表达式817MOD2*2的值是.答案：33 .由Fork=35to0step3:nextk循

8、环语句控制的循环次数是.答案：04 .把条件1=X=1andx12或x=15 .如果要在单击按钮时执行一段代码,则应将这段代码写在事件过程中.答案：CIiCk三、判断题（每小题1分，共计10分）1 .菜单每一菜单项都是控件，可以通过点击菜单项或通过光标选择并按回车键，以触发C1iCk事件.（）答案：Y2 .在一个窗体的代码中不能使用Un1oad语句来卸载本窗体,即一个窗体只能由其它窗体卸载.（）答案：N3 .在程序中Name属性是作为对象的标识而引用，不会显示在窗体上,而控件上显示的内容由Caption属性决定.（）答案：N4 .菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车

9、键，以触发C1iCk事件.（）答案：Y5 .如果在过程调用时使用按地址传递参数,则在被调过程中不可以改变实参的值.（）答案：N6. Function函数有参数传递,并且一定有返同值.（）答案：N四、程序填空(15分)在文本框内输入一串字符后，统计并显示各字母出现的次数不区分大小写字母。PrivateSubCommand1C1ickODima(1To26)AsInteger,cAsString*1*space*-1en(Text1)ForI=1To11*space*c=(Mid(Text1,I,1)Ifc=aAndc0ThenPicture1.Print“；Chr(j+96);=;a(j);En

10、dIfNextjEndSub答案：1) .11或11%2) .1Case3) .97五、程序改错(15分)在下面的程序段中过程Pd可以判断任意三个数能否构成三角形的三边，利用该过程的判定结果，对能构成三角形的计算其面积，构不成的显示“不能构成三角形，_OptionExpicitPrivateSubFormC1ickO*found*Dimx%,y%,z%,s%,bAsBoo1ean,hAsSing1ex=InPUtBox(请输入三角形的边长”)y=InPUtBox(“请输入三角形的边长”)Z=InPUtBOX(请输入三角形的边长)b=pd(x,y,z)h=(x+y+z)2*FOUND*IfNot

11、bThens=Sqr(h*(h-x)*(h-y)*(h-z)Print三角形面积是；sE1sePrint”不能构成三角形”EndIfEndSub*FOUND*Pub1icFunctionpd()sBoo1eanIfxOAndyOAndzOAndx+yzAndx+zyAndy+zxThenpd=TrueE1sePd-Fa1seEndIfEndFunction答案：1) .Dimx%,y%,z%,s!,bAsBoo1ean,hsSing1e或Di1nx%,y%,z%,sasSing1e,bsBoo1ean,hsSing1e2) .Ifb=notfa1seThen或Ifb=trueThen或IfbT

12、hen3) .Pub1icFunctionpd(x%,y%,z%)AsBoo1ean或Pub1icFunctionpd(x,y,z)AsBoo1ean或Pub1icFunctionpd(xasInteger,yasInteger,ZasInteger)sBoo1ean六、程序设计（20分）单击窗体时，输出所有的三位数，它满足该数中有某两位为相同的数，且该数是一个完全平方数。J.dimaasinteger,basintegerdimb3asinteger,b2asinteger,b1asintegerfora=10to31b=a*ab3=b100b2=(b10)mod10b1=bmod10ifb1=b2orb1=b3orb2=b3thenprinta,bendifnexta