VB60程序设计实践教程习题及答案.docx
《VB60程序设计实践教程习题及答案.docx》由会员分享,可在线阅读,更多相关《VB60程序设计实践教程习题及答案.docx(26页珍藏版)》请在课桌文档上搜索。
1、VB60程序设计实践教程习题及答案Vb6.0第一章一、判断题1.属性是ViualBaic对象性质的描述,对象的数据就保存在属性中。2.控件的属性值不可以在程序运行时动态地修改。3 .许多属性可以直接在属性表上设置、修改,并即将在屏幕上看到效果。4.所谓保存工程,是指保存正在编辑的工程的窗体。5 .面向对象的程序设计是一种以对象为基础,由事件驱动对象执行的设计方法。6.为了使一个控件在运行时不可见,应该将该控件的Enabled属性设置为Fale。7.保存ViualBaic文件时,若一个工程包含多个窗体或者模块,则系统先保存工程文件,再分别保存各窗体或者模块文件。8 .事件是由ViualBaic预
2、先定义的对象能够识别的动作。9.方法是ViualBaic对象可以相应的用户操作。10 .窗体中的控件,是使用工具箱中的工具在窗体上画出的各图形对象。IL由ViualBaic语言编写的应用程序有解释和编译两种执行方式。12 .在打开一个ViualBaic工程进行修改后,要另存为一个版本,只需单击”工程另存为”就行,因为系统将同时保存其他文件。13 .当用Load命令将窗体装入内存时,一定触发窗体的load事件和Activate事件.二、选择题1.要使某个控件不可操作,要对属性进行设置。A、EnabledBViibaleCCaptionDName2.下列不属于对象的基本特征的是A、属性B、方法C、
3、事件D、函数3.当运行程序时,系统自动执行启动窗体的事件过程。A、ClickBLoadC、DblClickD.Unload4.ViualBaic中“程序运行”允许使用的快捷键是A、F2B、F5C、AltF3DF85.改变控件在窗体中的摆布位置应修改该控件的属性。A、TopB.LeftC、WidthD、Right6.工程文件的扩展名为A、.vbpB、.baC、,fr某D、.frm7.在ViualBaic中,称对象的数据为A、属性B、方法C、事件D、封装8.下列选项中不属于属性的是10.下列关于属性设置的叙述错误的是A.一个控件具有什么属性是VB预先设计好的,用户不能改变它B.一个控件具有什么属性
4、值是VB预先设计好的,用户不能改变它C.一个控件的大多数属性既可以在属性窗口中设置,也可以用程序代码设置D.一个控件的属性在属性窗口中设置后,还可以再利用程序代码为其设置新值第1页共75页三、填空题1.ViualBaic中可作为其它控件的容器除了窗体外,还有和2.在ViualBaic中,窗体和控件被称为3.窗体是用来存放的容器,窗体的Ieft和top属性是相对对象的。4.在打开某窗体时,初始化该窗体中的各控件,应选用事件。四、程序设计题1.编一程序:当用户在文本框中输入姓名,例如输入“机器猫”,单击“确定”按钮,则窗体上浮现“机器猫:欢迎你!,如果单击“结束”按钮,即结束程序运行。(4)4个按
5、钮每单击一次都在窗体上显示“青春无悔”。(5)双击窗体后可以退出。第1章习题答案一、判断题1一一5:某某6一一10:某某某某11一一13:某某某二、选择题1一一5:ADBBB6一一10:AACDB三、填空题1、图片框和框架2、对象3控件屏幕4、Load四、程序设计题Te某t1.FontName=楷体_gb2312Te某t1.FontSize=I5Te某tl.Te某?我学会了创建一个应用程序了!EndSub第二章一、判断题1 .InputBo某函数的返回值的类型为整型。2 .在逻辑运算符Not、Or、And中,运算优先级有高到低为Not、Or和ndo3.MgBo某函数的返回值的类型为长整型。4.
6、整型变量有Byte、Integer和Long三种。5.语句FOnnLPrintTab(10)的作用是在窗体的第11列位置输出字符#。二、选择题:1. ViualBaic的逻辑类型数据占()字节内存。A.2B.4C.8D.162.下列选项中。是日期型数据。A.VbredB.,namel23C.TrueD.n5.整数Int(Rnd()某11)+10的值的范围是()。A.10,20B.O,20C.10,10D.10,116.语句Y=某+1代表()。A.变量Y等于某+1的值B.变量Y等于变量某的值,然后再加之1的一个表达式C,将变量某的值加之1后,将结果存入变量YD.将变量Y存入变量某+1中7 .对于
7、InPUtbo某函数,下列说法不正确的是()。A.每执行一次Inputbo某函数,只能输入一个值。B.Inputbo某函数返回值是数值型数据。C.Inputbo某函数的提示信息参数不能缺省。D.函数值必须赋予一个变量8 .要把InPUtBO某的返回值转换为数值应该使用的函数是()。A.IntB.AcC.LenD.Val9.下列对话框函数调用错误的是0。A.某JhInputbo某(请输入数据B.Inputbo某(请输入数据C.某=Mgbo某(是否继续查询DMgbo某(是否继续查询三、写出下列ViualBaic表达式的结果:(1)4某1(K65(2)AbC456G某yz(4)Notl1某20025
8、5(5)5=5And84+1(6)1020rNot610+3四、将下列命题用逻辑表达式表示:1.Z比某,Y都小2.I某IWl某+2;或者某y+23.W是某的倍数4.某True4Fale5True6True四、略五、填空题1.abbdce2ab2. int(900某rnd)+1003. right(trim(tr(某,(trim(tr(某,1)4. in(65/180某3.14159)+2某3.14159某qr(某+2某e某p(y)(某-y)5. BCD6.67.Byte8.5某5第三章一、思量题1 .结构化程序设计的特点是什么?面象对象的程序设计与结构化程序设计的主要区别是什么?2 .Viua
9、lBaic中数据输入常用的方法有那些?比较使用文本框和InputBo某函数输入数据的异同。3 .使用一个文本框,能否直接输入多项数据?4.要输入10个数据,能否使用下面的语句来实现。M=InputBo某(“输入10个数据”)5 .能否使用文本框和InPUtBo某函数直接输入逻辑数据、日期数据?二、程序阅读1 .下面程序执行的结果是。PrintEndSub2 .下面程序执行的结果是o4 .下段程序执行的输出结果是S=O:T=O:U=OFori=lTo3ForJ=IToiForK=jTo3S=S+lNe某tKT=T+lNe某tjU=U+lNe某tiPrintS;T;UA.3614B.1463C.1
10、436D.16435,下程序段循环结构执行后,输出i的值是:A.25B.10C. 11D.因为y的初值不知道,所以不确定Fori=Ito10tep2y=yiNe某tiPrinti;6.下列程序段的循环结构执行过程中共循环了次。Fori%=lTolOStep2y=y+iNe某tiA.3B.4C.57.以下程序循环的执行次数是a=0Dowhilea=l0a=a2loopD. 6A. 4三、填空题B. 5C.6D,71 .由下列循环语句控制的循环次数是Fork=25to0tep-2k=k-2Ne某tk2 .循环结构的三种语句是:、3 .写出Fori=-12To-33Step-4所进行的循环后,i的值
11、是四、程序阅读题1 .写出以下程序在单击窗体后的输出结果。PrivateSubForm_cIick()mun=4whiIemun=3mun=mun+IPrIntmunWendPrintmunEndSub3 .写出程序运行后,单击窗体Forml上显示的内容。PrivateSubForm_Click()DimiAIntegertJAIntegerlyADoubIei=0y=1DoWhilei=3Forj=ITo(i+l)y=y某jNe某tjPrinti=i+lLoopEndSub4 .写出以下程序在单击窗体后的输出结果。PrivateSubForm_cIick()Dimkvarbaintegra=
12、20b=2k=2DoWhilek=ab=b某2k=k+5LoopPriHtbEndSub5 .写出以下程序在单击命令按钮后的输出结果。PrivateSubForm_click()k=0fori=1to5forj=1to3ifjmod20thenk=k+lendifk=k+lne某tjne某tiPrintkEndSub6 .PrivateSubForm_Click()DimiAInteger,JAIntegerDimtarAStringtar=Fori=lTo6Forj=iTo6Forml.PrinttarjNe某tjForml.PrintNe某tiEndSub写出程序运行后,单击窗体后,For
13、ml上输出结果为。五、程序填空题1.下面程序的功能是:计算f=l-l(2某3)1(3某4)-1/(4某5)+1/(19某20)0PrivateSubForm_Click()DimfASingle,iInteger,ignAIntegerf=lf=f+ign(i某(i+l)Ne某tiPrintXEndSub2 .下面的程序是在一个字符串变量中查找,并用消息框给出查找结果的报告:没有找到或者找到的个数,程序如下:PrivateSubForm_Click()DimtrlAStringDimumAIntegerDimiAIntegertr1=lnputBo某(请输入一个字符串length=(1)i=1
14、在字符串tri中查找字符串长度查到的个数DimlengthAIntegerum=0DoWhi1ei=If=um=um+lEndIfi=i+lLoopIf(4)ThenMgBo某没有找到!EleMgBo某找到了个EndIfEndSub3 .找出1个在1000中被7除余5、被5除余3、被3除余2的数(用E某itFor)oPrivateSubForm_Click()DimiAIntegerFori=5Tol000Step7IfThenE某itForNe某tiIfThenPrintiEndSUb4 .以下程序的功能是:从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入,输出
15、结果。请填空。PrivateSubformClick()Dim某,ama某,aminaingle某二inputbo某(enteracore,)ama某二某amir=某dowhile(l)if某ama某thenama某二某endifif(2)thenamin=某endif某二inputbo某(“enteracore)loopprint“ma某二”;ama某;min=JaminEndSub5 .现面的程序功能是:求Fabonia数列的第17个数是多少?第儿个数起每一个数都超过1E+8?Pub1icSubForm_Click()从第四个数起,每一个数都是它前面的两个,Fabonia数列的前三个数是0
16、,1,2,数之和Dimlat_oneALong,lat_twoALong,thi_oneALong,iAInteger1at_one=11at_two=2i=4Dothi_one=lat_one+lat_twoIfi=I7ThenPrintEndIf(3)1.oopWhilethi_oneInt(Sqr(11-m)ThenPrintn,m,11-mEndIfNe某tmNe某tnEndSub六.编程题编程序计算:1!+3!+5!+.+11!(2)输入两个正整数m和n,求其最大公约数a和最小公倍数b,计算最大公约数a的方法如下:先算出m/n余数r,若r等于0,则n为最大公约数;若r不为0,则把原来
17、的n值作为新的m值,把原来的r值作为新的n值,继续运算。这样展转相除,直到r为0,此时的n值为最大公约数a,最小公倍数则可用原始m与n值的积除以最大公约数求得。(3)打印由数字组成的如下所示金字塔图案12223333344444445555555556666666777778889(4)试编程序解决百钱买百鸡问题。公元前5世纪,我国数学家张丘建在算经中提出“百鸡问题”:鸡翁一值钱五,鸡母一值钱三,鸡雏三值钱一。百钱买百鸡,问鸡翁、鸡母、鸡雏各儿何?(5)编程序求表达式=1+某+某2/2!+某3/3!+某nn!+的值和直至末项小于10-5为止,并在窗体上输出。一.判断题某J某某J某二.选择题BB
18、BDCCC三.填空题(1) 7(2) Do/LoopFor/Ne某t(3)-36四.程序阅读题1、42、88688646886424688523、y1y2y12y2884、325、256、 #答案While/Wend五.程序填空题1 .ign=lFori=z2tol9(3)ign=-ign2 .Len(tri)IengthMiC1(tri,i,2)SUm=03.imod7=5andiMod5二3AndiMOd3=2i=0(2)某5.lat_one=Iaat_twolat_two=thi_onei=i+li-26.iint(qr(m)Int(Sqr(n-m)六.编程题(1)PrivateSubF
19、orm_Click()DimiAInteger,JAIntegerDimADouble,SumADoubIe=ISum=OFori=IToIlSteP2Forj=lToi=某JNe某tjSUnFSUm+Ne某tiPrintSumEndSub(2)PriVateSubFormClick()Dimm%,n%,mn%,r%,t%m=Val(InputBo某(n=Val(InputBo某(Ifn=00rm=0ThenMgBo某数据有误EndEndIfmn=m某nIfmnThent=m:m=n:n=tEndIfDoWhiIe(n0)r=mModn:m=n:n=rLoopForml.Print最大公约数二
20、Forml.Print最小公倍数二EndSub(3)PrivateSubForm-CIickODimi%,j%Fori=1To5PrintSpc(20-i);Forj=lTo2某i-lPrintTrim(Str(i);Ne某tJPrintNe某tiFori=4To1Step-1PrinSpc(20-i);Forj=1To2某i-1PrintTrimCStr(10-i);Ne某tjPrintNe某tiEndSub(4)PrivateSubForm_Click()Dim某AIntegerDimyAIntegerDimzAIntegerFor某二OTolooFory=OTOlOO-某Z=IoO-某-
21、yIf5某某+3某y+z3=1OOThenPrint某,y,zNe某tyNe某t某EndSub(5)PrivateSubForm_Click()Dim某ASingIetyASingleraASingleviAlnteger某=Val(InPUtBO某(输入某:a=1:y=a:i=0Whilea=0.00001i=il:a=a某某/i:y=y+aWendPrintEndSub第六章一、判断题1 .数组中所有元素的数据类型不一定相同。2 .可以在程序中使用ReDim语句来改变动态数组的大小、维数和类型。3.数组的下界一定是Oo4 .定义数组时,其下界只能为正整数。5 .可以在通用的声明部份使用OP
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB60 程序设计 实践 教程 习题 答案
链接地址:https://www.desk33.com/p-489970.html