山东交通学院成人高考VB程序设计复习题及参考答案

VB程序设计A复习题单选题（每小题3分，共计45分。）1.文本框控件中将Text的内容全部显示为所定义的字符的属性项是(A).A.PasswordCharB.需要编程来实现C.PasswordD.以上都不是2.欲使标签的内容对其方式,必须设置属性(B).A.AutoSizeB.AlignmentC.leftD.WordWrap3.下列字符串常量中,最大的是(C).A."北京"B."上海"C."天津"D."广州"4.要使标签能透出窗体的背景,必须设置(A)属性.A.BackStyleB.BorderStyleC.AppearanceD.BackColor5.文本框中的内容,由下列(A)属性反映.A.TextB.CaptionC.SeltextD.sellenght6．INT(100*RND(1))产生的随机整数的闭区间是(A).A.[0,99]B.[1,100]C.[0,100]D.[1,99]7.下列方法中可用于列表框动态添加数据的是(B).A.addB.additemC.addlistD.removeitem8.函数Len(Str(Val("123.4")))的值为(C).A.11B.5C.6D.89.表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(C).A.0.48B.0.048C..5D..0510.以下不具有Picture属性对象是(D).A.窗体B.图片框C.图像框D.文本框二、填空题（每小题2分，共计20分。）1.在VB6.0中,变量名最长可达255个字符.2.男性(sex)，年龄(age)在18—20岁之间，身高(size)在1.65米以上，列出逻辑表达式sexandage>=18andage<=20andsize>=1.65。3.如果:I=12:J=3:I=int(-8.6)+I\J+13/3MOD5,则I值是.-1。4.要使一个按钮设为默认按钮,应把此按钮的Default属性的值设为True.5.一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示工程文件.6.如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为退出(&X).三、判断题（每小题2分，共计20分。）1.在MsgBox函数中prompt参数是必须的（Y）.2.文本框控件有Caption属性（N）.3.要使定时器控件起作用,其属性Interval不可以设置为0（Y）.4.图片框不是容器，图像框是容器（N）.5.有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号（Y）.6.计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量（Y）.7.设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字（Y）.8.由VisualBasic语言编写的应用程序有解释和编译两种执行方式（Y）.9.VisualBasic程序的运行可以从Main()过程启动,也可以从某个窗体启动（Y）.10.如果一个菜单项的Visible属性为False,则它的子菜单也不会显示（Y）.四、程序设计(每小题15分，共计15分。)编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2!＋1/4!＋...＋1/m!(m是偶数)答：DimiAsInteger,jAsInteger,tAsIntegerfun=0Fori=2TomStep2t=1Forj=1Toit=t*jNextfun=fun+1/tNextVB程序设计B复习题一、单选题（每小题2分，共计20分）1.以下叙述中错误的是().A:VisualBasic是事件驱动型可视化编程工具B:VisualBasic应用程序不具有明显开始和结束语句C:VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D:VisualBasic中控件的某些属性只能在运行时设置答案：C2.InputBox函数返回的函数值的类型是().A:数值B:字符串C:数值或字符串D:根据需要可以是任何类型数据答案：C3.常用控件的Style属性值是().A:字符常量B:逻辑常量C:数值常量D:日期常量答案：C4.如果要在命令按钮上显示图形文件,应设置命令按钮的().A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性答案：B5.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示()事件过程模板.A:Form_ClickB:Form_LoadC:Form1_ClickD:Form1_Load答案：B二、填空题（每小题2分，共计20分）1.在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的属性的值设置为True.答案：MultiLine2.表达式81\7MOD2^2的值是.答案：33.由Fork=35to0step3:nextk循环语句控制的循环次数是.答案：04.把条件1<=X<12写成VB关系表达式为.答案：x>=1andx<12或x<12andx>=15.如果要在单击按钮时执行一段代码,则应将这段代码写在事件过程中.答案：click三、判断题（每小题1分，共计10分）1.菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车键,以触发Click事件.()答案：Y2.在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸载.()答案：N3.在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.()答案：N4.菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车键,以触发Click事件.()答案：Y5.如果在过程调用时使用按地址传递参数,则在被调过程中不可以改变实参的值.()答案：N6.Function函数有参数传递,并且一定有返回值.()答案：N四、程序填空（15分）在文本框内输入一串字符后，统计并显示各字母出现的次数不区分大小写字母。'-------------------------------------------------------PrivateSubCommand1_Click()Dima(1To26)AsInteger,cAsString*1'**********SPACE**********=Len(Text1)ForI=1Tol1'**********SPACE**********c=(Mid(Text1,I,1))Ifc>="a"Andc<="z"Then'**********SPACE**********j=Asc(c)-+1a(j)=a(j)+1EndIfNextIPicture1.ClsForj=1To26Ifa(j)>0ThenPicture1.Print"";Chr(j+96);"=";a(j);EndIfNextjEndSub答案：1).l1或l1%2).LCase3).97五、程序改错（15分）在下面的程序段中过程pd可以判断任意三个数能否构成三角形的三边，利用该过程的判定结果，对能构成三角形的计算其面积，构不成的显示"不能构成三角形"'------------------------------------------------OptionExplicitPrivateSubForm_Click()'**********FOUND**********Dimx%,y%,z%,s%,bAsBoolean,hAsSinglex=InputBox("请输入三角形的边长")y=InputBox("请输入三角形的边长")z=InputBox("请输入三角形的边长")b=pd(x,y,z)h=(x+y+z)/2'**********FOUND**********IfNotbThens=Sqr(h*(h-x)*(h-y)*(h-z))Print"三角形面积是";sElsePrint"不能构成三角形"EndIfEndSub'**********FOUND**********PublicFunctionpd()AsBooleanIfx>0Andy>0Andz>0Andx+y>zAndx+z>yAndy+z>xThenpd=TrueElsepd=FalseEndIfEndFunction答案：1).Dimx%,y%,z%,s!,bAsBoolean,hAsSingle或Dimx%,y%,z%,sasSingle,bAsBoolean,hAsSingle2).Ifb=notfalseThen或Ifb=trueThen或IfbThen3).PublicFunctionpd(x%,y%,z%)AsBoolean或PublicFunctionpd(x,y,z)AsBoolean或PublicFunctionpd(xasInteger,yasInteger,zasInteger)AsBoolean六、程序设计（20分）单击窗体时，输出所有的三位