文档介绍：该【VB程序设计复习题 】是由【青山代下】上传分享，文档一共【8】页，该文档可以免费在线阅读，需要了解更多关于【VB程序设计复习题 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。VB程序设计A复****题一、单选题(每小题2分,共计30分。)(A).,必须设置属性(B).,最大的是(C).,必须设置(A),由下列(A)(100*RND(1))产生的随机整数的闭区间是(A).A.[0,99]B.[1,100]C.[0,100]D.[1,99](B).(C).(8*SQR(36)*10^(-2)*10+)/10的值是(C)...5D..(D).、填空题(每小题3分,共计30分。),(sex),年龄(age)在18—20岁之间,身高(size),列出逻辑表达式sexandage>=18andage<=20andsize>=。.-1。,,其中,),则其Caption属性设置为退出(&X).,一般会遇到三类错误:语法错误、执行错误和逻辑错误。三、判断题(每小题3分,共计30分。)(Y).(N).,其属性Interval不可以设置为0(Y).,图像框是容器(N).,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号(Y).,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量(Y).,每个控件都有自己的名字(Y).(Y).()过程启动,也可以从某个窗体启动(Y).,则它的子菜单也不会显示(Y).四、程序设计(共计10分。)编写函数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分)().A:VisualBasic是事件驱动型可视化编程工具B:VisualBasic应用程序不具有明显开始和结束语句C:VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D:VisualBasic中控件的某些属性只能在运行时设置答案:().A:数值B:字符串C:数值或字符串D:根据需要可以是任何类型数据答案:().A:字符常量B:逻辑常量C:数值常量D:日期常量答案:,应设置命令按钮的().A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性答案:,双击窗体Form1的空白处,打开代码窗口,显示():Form_ClickB:Form_LoadC:Form1_ClickD:Form1_Load答案:B二、填空题(每小题2分,共计20分),若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,::=35to0step3::<=X<:x>=1andx<12或x<12andx>=,:click三、判断题(每小题1分,共计10分),可以通过点击菜单项或通过光标选择并按回车键,以触发Click事件.()答案:,即一个窗体只能由其它窗体卸载.()答案:,不会显示在窗体上,而控件上显示的内容由Caption属性决定.()答案:,可以通过点击菜单项或通过光标选择并按回车键,以触发Click事件.()答案:,则在被调过程中不可以改变实参的值.()答案:,并且一定有返回值.()答案:,该窗体上的按钮、文本框等控件就不会对用户的操作做出反应.()答案:()过程启动,也可以从某个窗体启动().答案:,其属性Interval不可以设置为0.()答案:,而且响应DbClick事件.()答案:N四、程序填空(15分)在文本框内输入一串字符后,统计并显示各字母出现的次数不区分大小写字母。'-------------------------------------------------------mand1_Click()Dima(1To26)AsInteger,cAsString*1'**********SPACE**********=Len(Text1)ForI=1Tol1'**********SPACE**********c=(Mid(Text1,I,1))'**********SPACE**********j=Asc(c)-+1a(j)=a(j)+=1To26Ifa(j)>0ThenEndIfNextjEndSub答案:1).l1或l1%2).LCase3).97五、程序改错(15分)在下面的程序段中过程pd可以判断任意三个数能否构成三角形的三边,利用该过程的判定结果,对能构成三角形的计算其面积,构不成的显示不能构成三角形'------------------------------------------------OptionExplicitPrivateSubForm_Click()'**********FOUND**********Dimx%,y%,z%,s%,bAsBoolean,hAsSingle请输入三角形的边长请输入三角形的边长请输入三角形的边长b=pd(x,y,z)h=(x+y+z)/2'**********FOUND**********IfNotbThens=Sqr(h*(h-x)*(h-y)*(h-z))三角形面积是Else不能构成三角形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分)单击窗体时,输出所有的三位数,它满足该数中有某两位为相同的数,且该数是一个完全平方数。答案:----------------------dimaasinteger,basintegerdimb3asinteger,b2asinteger,b1asintegerfora=10to31b=a*ab1=bmod10ifb1=b2orb1=b3orb2=b3thenprinta,bendifnexta----------------------