VB60程序设计实践教程习题及答案.docxVIP

VB60程序设计实践教程习题及答案 Vb6. 0 第一章一、判断题 1.属性是ViualBaic对象性质的描述，对象的数据就保存在属性中。 2.控件的属性值不可以在程序运行时动态地修改。 .许多属性可以直接在属性表上设置、修改，并即将在屏幕上看到 效果。4.所谓保存工程，是指保存正在编辑的工程的窗体。 .面向对象的程序设计是一种以对象为基础，由事件驱动对象执行 的设计方法。6.为了使一个控件在运行时不可见，应该将该控件的 Enabled属性设置为Fale。7.保存ViualBaic文件时，若一个工程包含 多个窗体或者模块，则系统先保存工程文件，再分别保存各窗体或者模块文 件。 .事件是由ViualBaic预先定义的对象能够识别的动作。9.方法是 ViualBaic对象可以相应的用户操作。 .窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对 象。11.由ViualBaic语言编写的应用程序有解释和编译两种执行方式。 .在打开一个ViualBaic工程进行修改后，要另存为一个版本，只 需单击“工程另存为…”就行，因为系统将同时保存其他文件。 .当用Load命令将窗体装入内存时，一定触发窗体的load事件和 Activate 事件. 二、选择题 1.要使某个控件不可操作，要对属性进行设置。 PrivateSubForm_Click () DimiAInteger Fori=5ToiOOOStep71f⑴ThenE 某 itForNe 某 ti If(2)ThenPrintiEndSub .以下程序的功能是：从键盘输入若干个学生的考试成绩，统计并 输出最高分和最低分，当输入负数时结束输入，输出结果。请填空。 PrivateSubform_Click () Dim 某,ama 某，aminaingle 某=inputbo 某 (" enteracore^ ) ama 某二某 arnin=某 dowhile(l)if 某〉ama 某 thenama 某二某 endif if(2)thenamin=某 endif 某二inputbo 某(“enteracore" ) loop print “ma 某二” ;ama 某；" min=" jaminEndSub .现面的程序功能是：求Fabonia数列的第17个数是多少？第几个 数起每一个数都超过1E+8? PublicSubForm_Click () 从第 四个数起，每一个数都是它前面的两个 'Fabonia数列的前三个数是0, 1, 2, 数之和 Dimlat_oneALong, lat_twoALong, thi_oneALong, iA Integer lat one=llat two=2i=4Do thi_one=lat_one+lat_two(l)(2)If i=17Then Print\EndIf (3) LoopWhilethi_one<=100000000#Print\(4);\EndSub '数列的第二个数'数列的第三个数'从数列的第四个数求起 6.以下程序是验证100至200之间的所有偶数都能分解为两个素数 之和。 PrivateSubForm_click()DimnAInteger, mAIntegerDimiAInteger, jAI ntegerForn=100to200Step2Form=2To (n/2)Fori=2ToInt(Sqr(m))IfmModi= OThenE 某 itForNe 某 ti If(l)ThenForj=2To(2) If (n-m)Modj=0ThenE 某 itForNe 某 tj Ifj>Int(Sqr(n-m))ThenPrintn, m, n-m End If Ne 某 tm Ne 某 tnEndSub 六.编程题 ⑴编程序计算：1! +3! +5 ! +….+11! (2)输入两个正整数m和n,求其最大公约数a和最小公倍数b,计 算最大公约数a的方法如下：先算出m/n余数r,若r等于0,则n为最大 公约数；若r不为0,则把原来的n值作为新的m值，把原来的r值作为 新的n值，继续运算。这样展转相除，直到r为0,此时的n值为最大公 约数a,最小公倍数则可用原始m与n值的积除以最大公约数求得。 (3)打印由数字组成的如下所示金字塔案 (3)打印由数字组成的如下所示金字塔 案 122233333 44444445555555556666666777778889 (4)试编程序解决百钱买百鸡问题。公元前5世纪，我国数学家张 丘建在《算经》中提出“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡 雏三值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？ (5)编程序求表达式=1+某+某2/2!+某3/3!++某n/n!+的值和直至 末项小于