Visual_Basic程序设计(第二版)答案.pdf

第1章 程序设计语言与程序设计1.1填空题1.VB是以（事件驱动）作为运行机制的新一代可视化程序设计语言。2.程序设计语言是（人）与（计算机）交流的工具。3.若从机器执行的角度来对程序设计语言进行分类，则可以分为（低级语言）和（高 级语言）两种。4.计算机系统中，对高级语言的翻译工具称为（编译）程序或（解释）程序。5.源程序中的错误一般分为（编译）错误、（运行）错误和（逻辑）错误等三种。6.VB把一个应用程序称为一个（工程），它包含各种文件。1.2选择题1.把a和b的乘积写成a b的错误属于（c）错误。a）编译 b）运行 c）逻辑 d）编译和运行2.用户在什么时候都可以按（b）键来查看与当前进行的工作相关的帮助。a)He l d b)Fl c)ESC d)F104 窗体文件的扩展名为（d）oa）.vbp b）.ba s c）.e xe4.指示一个窗体位置的值是窗体的（ca）对象 b）事件 c）属性5.下面选项中不能运行VB程序的操作是d).frm)od)方法 a)。a）双击窗体 b）单击“启动”按钮图标c）从菜单栏运行菜单中选“全编译执行菜单命令 d）按F5键1.3问答题1.低级语言和高级语言的各自特点是什么？答：参见教材1.1。2.什么是数据描述和数据处理？答:参见教材1.2。3.源程序的翻译方式有哪两种，简述它们的工作过程。答：参见教材1.1。4.一个好程序的基本要求是什么？答：参见教材1.2。5.Visua l BASIC集成开发环境的主窗口由哪些部分构成？各自的主要功能是什么？答：参见教材1.3。6.简述在VB的环境下，对象、属性、方法、事件和事件驱动程序的概念，并用例子进行说 明。答：在VB的环境下，对象是系统中的基本运行实体，它封装了数据和操作。工具箱中的命 令按钮、标签、文本框等是对象摸板。控件是由VB工具箱创建的对象。属性是对象的性质或状态特征。例如，窗体的Ca ption（标题）、Ba ckCol or（背景颜色）、He igh t（高度）和Wid th（宽度）等都是窗体的属性。事件是对象之间传递的消息。VB控件的事件由系统预先定义。例如，Cl ick（单击）事件、Dbl Cl ick（双击）事件。方法是对象在某些事件驱动下执行的特定操作。它可以执行系统预定义的操作，例如窗体 的Print（打印）方法、Sh ow（显示窗体）方法；当事件由用户或VB系统触发时，对象会感受到该事件并对该事件作出响应，响应某个事件 后所执行的程序就是事件驱动程序。事件驱动程序有时也称为事件过程。例如，以下是命令按 钮Com m a nd l在接受单击事件时驱动的程序：Priva te Sub Com m a nd l Cl ick（）Print He l l o worl d!End Sub7.总结使用Visua l BASIC开发一个应用程序的过程。答：参见教材1.5。8.下面程序是什么事件驱动程序？如何执行该事件驱动程序？执行的结果如何？Priva te Sub Com m a nd l _ Cl ick（）Print 欢迎你使用VB!End Sub 答：略。1.4编程题编写一个程序。要求设置窗体的标题是“这是我的第一个练习”，且在程序执行后，单击窗 体显示如下一行文字：我可以用Visua l BASIC编写程序了！解答：（1）用户界面设计：设计用户界面由一个窗体构成。（2）对用户界面上的控件对象的属性进行设置：把窗体的Ca ption属性值设置为“这是我的 第一个练习”。（3）编写控件对象的事件驱动程序：Priva te Sub Form _ Cl ick（）Print”我可以由Visua l BASIC编写程序了！“End Sub第2章基本数据类型与表达式2.1填空题1.在程序设计语言系统中具有固定语法含义的符号串称为（关键字），它们通常用来表 示系统提供的标准过程、函数、运算符、常量等。2.（标识符）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。3.整型数据占（2）字节的内存空间。长整型数据占（4）个字节的内存空间。单 精度浮点型数据占（4）个字节的内存空间。双精度浮点型数据占（8）个字节的内存 空间。日期型数据占（8）个字节的内存空间。4.100%表示100为（整）型数据；100!表示100为（单精度浮点）型数据；100 表示100为（货币）型数据。6 符号常量在某一过程中说明，则该符号常量只能在（该过程内）内有效。6.若一个整型变量说明了之后没有给它赋值，则它的值为（0）。7.在VB中可以把类型说明符放在变量名的（末尾）来说明变量的类型。8.为使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程 序中要加上（Option Expl icit）语句。9.对含有多种运算的表达式，各种运算之间的顺序为（函数运算）-（算术运算）一（关系运算）一（逻辑运算）。10.把1234.567的小数部分四舍五入转换为整数，可使用函数（Cint（1234.567）。11.将x四舍五入到百位（例如，若x=23874.52应舍入成23900）,可使用表达式（Int（x/100+0.5）*100）012.将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（Fix（x/100）*100 或者 Int（x/100）*100或者 Cint（x100）*100）。13.设X为数值变量，求X的常用对数可使用的表达式是（Log（X）/Log（10）。14.要从字符串“Visua l BASIC 6.0中截取子字符串“BASIC”可使用函数（Mid CVisua l BASIC 6.0”,8,5）15.设S是字符串变量，并且串长度为7,写出生成由S的偶数序号字符组成的字符串的表达 式(例如，把字符串ABCDEFG”变成“BDF”)。答案:Mid(s,2,1)+Mid(s,4,1)+Mid(s,6,1)16.设S是字符串变量，并且串长度为7,写出用第2i-l个字符代替第2i个字符所得到字符 串的表达式(例如，把字符串ABCDEFG”变成“AACCEEG”)。答案：String Mid(s,1,1)+String(2,Mid(s,3,1)+String(2,Mid(s,5,1)+Mid(s,7,1)或：String(2,Mid(s,1,1)+String(2,Mid(s,3,1)+String(2,Mid(s,5,1)+Righ t(s,1)17.产生从整数a到整数b之间的随机整数可使用表达式(Int(b-a+l)*Rnd+a)。18.产生从100.01到200.99之间的随机数(包括两端点)可使用的表达式是(Int(20099-10001+1)*Rnd+10001)/100)。2.2选择题1.下面选项中(c)是算术运算符。a)%b)&c)Mod d)And4下面不合法的标识符是(d)。a)Go_ To b)Ta bi c)姓名 d)Int3.下列选项中，把r定义为双精度型变量的是(c)oa)r%b)r!c)r#d)r$4.下列表达式中(d)是错误的。a)2a/5 b)-2*1/5 c)2(1/5)d)(-2)(1/5)5.在下列选项中，正确表达2a.5的表达式是(c)。a)2a+5 b)2a+25 c)2(a+5)d)2a256.10 Mod 4 的值为(b)oa)1 b)2 c)4 d)107.下列运算符中(a)优先级最高。a)/b)c)Mod d)+8.在VB中不能表示逻辑真的是(d)。a)True b)-1 c)1 d)T9.能正确表达a Wl或a N5的逻辑表达式是(c)。a)a=5 b)a=5c)a=5 d)a=510.设X为整型变量,不能正确表达k X 5的逻辑表达式是(a)。a)1 X 5 b)X=2 or X=3 or X=4c)1X And X 5 d)Not(X=5)11.求COS350可以使用的函数是(d)0a)Cos 35 b)Cos(35)c)Cos(35)d)Cos(35*3.14159/180)12.Le n(“中国人民”)的值是(b)。a)0 b)4 c)8 d)不能确定13.设X是一个正实数，对X的第二位小数四舍五入可使用的函数是(c)0a)Int(X+0.05)/10 b)Int(X+0.05)/10)c)Int(10*(X+0.05)/10 d)Int(10*(X+0.05)/10)14.函数Int(Ra d*99+1)产生随机数的范围是(b)。a)1,99)b)1,99 c)1,100)d)1,10012.3下列符号哪些是正确的变量名1)n 2)3x 3)Abs 4)85 5)print_ 56 6)名称7)it 8)a%b 9)a b#10)My Na m e 11)“年龄”12)学校$答案：除了以下符号外，其它符号都是正确的变量名。错误的变量名 原因3x变量名必须以字母为开始Abs不能和关键字同名85变量名必须以字母开始n不是英文字母a%b变量名中不能用字符%My Na m e变量名内不能有空格字符2.4把下列数学表达式写成VB表达式11+-1)x+ya+b3)In(1+|a-b|10)1-x2(-7)5)ctg 1+x答案：2)x x x(a x+b)+c+d +e-t 1+cos 484)V 26)l ogio(a2+2a b+b2)1)l/(l+(l/(l+l/(x+y)2)x*(x*(x*(a*x+b)+c)+d)+e3)Log(l+Abs(a+b)/(a-b)10)4)Sqr(l+3.14159/2*Cos(48*3.14159/180)5)1/Ta n(l-x*x)/(l+x*x)#Cos(l x*x)/(l+x*x)/Sin(l-x*x)/(l+x*x)6)Log(a*a+2*a*b+b*b)/Log(10)2.5写出下列函数的值1)Int(-1234.56 78)3)va l(12.34)5)Abs(-l OO)7)Sqr(sqr(16)9)Mid(Visua l BASIC 6.0，8,5)10)InStr(l,Visua l BASIC 6.0”,2)Fix(1234.56 78)4)Cint(1234.56 78)6)Sgn(-100)8)Le ft(Visua l BASIC 6.0,6)BASIC)11)String(3,S)答案：1)-1235 2)12346)-1 7)212)Int(100*Rnd)+l)3)12.34 4)1235 5)1008)Visua l 9)BASIC 10)011)$12)产生从整数1到整数100之间的随机整数2.6写出下列表达式的值1)(3+6)2 2)18 4*4.02/1.63)25 3 Mod 3.2*Int(2.5)4)“xyz”+“438”5)“a bc”&“123”&“a bc”6)349.25+0.75”=3507)“ch ina”=ca na d a”8)“a bcy=a bc&123”9)3 4 And 5=5 10)True Or Not 7-3=4答案：1)42)03)24)xyz4385)a bcl 23a bc6)True7)True8)True9)Fa l se10)True2.7设a1,a2,a3是布尔变量，其值依次为：True,True,False,写出下列布尔表达式的值1)Not a l And Not a 2 2)Not a l Eqv Not a 23)a l Or a 2 And a 3 4)a l X or a 2 Or a 35)(Not a l Or a 2)And(a 2 Or a 3)6)Not a l And a 2 Im p a 3答案：1)Fa l se 2)True 3)True 4)Fa l se 5)True 6)True2.8用关系表达式或逻辑表达式表示下列条件1)i整除j 2)n是小于正整数k的偶数3)K=x10 4)x,y其中有一个小于z5)y 史-100,-10,并且产10,1006)坐标点(x,y)落在以(10,20)为圆心，以35为半径的圆内7)三条边a,b和c构成三角形8)年份Ye a r能被4整除，但不能被100整除或者能被400整除答案：1)i Mod j=0 2)nk And n Mod 2=03)K=x And x10 4)xz Or y=-100 And y=10 And y=100)6)Sqr(x-10)、2+(y-15)*2)c And b+ca And c+a b8)Ye a r Mod 4=0 And ye a r Mod 40000 Or Ye a r Mod 400=02.9问答题1.标识符的选取必须遵循什么规则？答：参见教材2.L 2O/中基本数据类型的取值范围如何？答:参见教材2.2表2-1。3.空串与空格有什么不同？答：参见教材2.1.1。4.什么是符号常量？使用符号常量有什么好处？答：参见教材2.3.1。5.自动变量与静态变量如何定义？它们之间有什么不同？答:参见教材2.3.2o6.启字符串如何进行比较(关系)运算,如何确定运算结果?试举例说明。答：参见教材2.4.3。第3章程序流程控制3.1填空题1.设变量r表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（s=3.14159*r*r）。2.给命令按钮Com m a nd 2的Ca ption属性赋予字符串“退出”使用的赋值语句为（Com m a nd 2.Ca ption=退出）。3.为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信 息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存 放到变量n中，则使用的赋值语句为（n=va l（InputBox（请输入一个求阶乘的数：，求数的阶乘）。4.如果使用MsgBox对话框显示提示信息“退出本系统？”,并显示“是（Ye s）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox函 数的形式为（MsgBox（退出本系统？，4+32+0,提示信息）。5.如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号 和标题文件查找”，则使用的MsgBox语句为（MsgBox 文件未找到，0+48+0,文件查 找）。6.要在当前窗体Form和立即窗口输出字符串“Visua l BASIC 6.0”使用的Print方法分别是（Print Visua l BASIC 6.0）和（De bug.Print Visua l BASIC 6.0）。7.使用Print方法时，若用逗号分隔，则按（标准）格式输出各表达式的值，若用分号 分隔，则按（紧凑）格式输出各表达式的值。8.注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有 任何影响。9.判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（If i Mod 2=0 Th e n print x）。10.判别变量x是否大于0,若大于0,则累加到变量si中，否则，累加到变量s2中，使用的 单行结构条件语句为（If x0 Th e n sl=sl+x El se s2=s2+x）。2x+1 x 0y=）0 x=0IL给定分段函数 Lx-1 X 0 Th e n y=2*x+l El se If x=0 Th e n y=0 El se y=2*xT）。12.判别a是否等于b,若2=1）,则输出字符串“a is e qua l to b”的块结构条件语句为（）。答案：If a=b Th e nPrint“a is e qua l to b”End13.判别ch是否为小写字母，若是，输出“ye s”；否则，输出“No”的块结构条件语句为（）。答案：If Asc（ch）=97 And Asc（ch）To表达式2,则它的含义是：当 测试表达式的值等于（这个范围内的值）时，执行该ca se子句相应的程序块。16.若ca se子句中的表达式表列具有形式：Is关系运算符表达式），则它的含义是：当测试表达式的值满足（Is后的关系）时，执行该ca se子句相应的程序块。17.在循环语句中，反复执行的程序段称为（循环体）；进入循环体的条件称为（循 环条件）；中止循环体执行的条件称为（结束循环条件）o3.2选择题1.下列赋值语句中，(d)是正确的。a)x!=a bc b)a%=10e c)x+1=5 d)s$=1002.下列选项中，(d)不能交换变量a和b的值。a)t二b:b二a:a二t b)a=a+b:ba-b:a=a-bc)t二a:a二b:b二t d)a二b:b二a3,若在消息框MsgBox中显示“确定(Ok)”和“取消(Ca nce l)”两个按钮，贝 buttons参数的设置 值是(b)。a)0 b)1 c)2 d)34,若在消息框MsgBox中选择第二个按钮为默认值，贝buttons参数的设置值是(b)。a)0 b)256 c)512 d)76 85.若单击了终止(Abort)按钮，则MsgBox函数的返回值是(c)。a)l b)2 c)3 d)46.以下不正确的单行结构条件语句是(d)0a)If xy Th e n Print xy b)If x Th e n t=t*xc)If x Mod 3=2 Th e n?x d)If xb Th e n m a x=a El se m a x=b End If b）If a b Th e n m a x二a El se m a x=b End If c）If a b Th e n m a x=aEl se m a x=bd）If a b Th e n m a x=aEl se m a x=b End If9.下列Ca se语句中正确的是（c）。a）Se l e ct Ca se xCa se 1 Or 3 Or 5 y=x*x-l Ca se Is 10 y=x+l End Se l e ct b）Se l e ct Ca se x Ca se 1,3,5 y=2*xT Ca se Is x=1 Y=2*x+1 End Se l e ct c）Se l e ct Ca se x Ca se Is 0 y=Sqr（x）+1 End Se l e ct d）Se l e ct Ca se x Ca se x=l And x10 y=X*X+lEnd Se l e ctl O.执行下列程序段后屏幕上（C）0 i%=10:Sum=0Wh il e i 1Sum=Sum+ii=i-1We ndPrint Suma）无显示 b）显示10 c）显示54 d）显示5511.执行下列程序段输出结果是（c）。x%=2Do wh il e x3,0.75Print 2*3/2Visua l&BASIC;Not 53;0.75x=12.34Print x=”；Print xEnd Sub答案：-3Visua l BASIC Fa l se.75-3 Visua l BASICFa l se.75x=12.342.Priva te Sub Form _ Cl ickPrint Ta b(10);-100;Ta b(20);200;Ta b(30);-300Print Spc(10);-100;Spc(10);200;Spc(10);-300End Sub 答案：-100 200-300-100 200-3003.Priva te Sub Form _ Cl ick x=12.35Print Form a t(x,#.#)Print Form a t(x,#.#)Print Form a t(x,”000.00)Print Form a t(x,“00.0”)Print Form a t(x,M0.00%M)Print Form a t(x,$#.#)Print Form a t(x,+#.#)Print Form a t(x,”00.00E+00”)End Sub 答案：12.3512.35 012.35 12.4 1235.00%$12.35+12.3512.35e+004.Priva te Sub Com m a nd l _ Cl ick()Dim a%,b%,c%,s%,w%,t%a=-1:b=3:c=3 s=0:w=0:t=0 If c 0 Th e n s=a+b If a=0 Th e nIf c 0 Th e n w=a-b El se t=c End If c=a+b Print a,b,c Print s,w,t End Sub 答案：-13 22 0 05.Priva te Sub Com m a nd l _ Cl ick()Dim x%,y%x=InputBox(请输入 x 的值：)Se l e ct Ca se x Ca se 1,3,5 y=x-1 Ca se 6 To 10 y=x+1 Ca se 2,4 y=2*x Ca se Is 10 y=x*x+1 End Se l e ctPrint x=;x,y=;y End Sub（X的输入值为2.5、8、4和15）答案：x=2 y=4x=8 y=9x=4 y=8x=15 y=2266.Priva te Sub Com m a nd l _ Cl ick()Dim i%,t!t=1:i=1Wh il ei 8If i Mod 2=1 Th e n x=x*iEl sey=y*i End If i=i+1 Loop Print x=；x,y二；y End Sub答案：x=105 y=3848.Priva te Sub Com m a nd 1_ Cl ick0 Dim p%,s%p=1:s=1 Dop=p+2:s=s+pLoop Wh il e p10 Print s=；s End Sub 答案：s=369.Priva te Sub Com m a nd 1_ Cl ick()Dim m%,n%For m=l to 3n=0Wh il e n=85 Th e nTe xt2.Te xt=Ve ry good!zzEl se l f score=6 0 Th e nTe xt2.Te xt=Good!”El seTe xt2.Te xt=No good!，z End IfEnd SubPriva te Sub Com m a nd 2_ Cl ick()EndEnd Sub(3)运行情况运行程序后，屏幕出现用户界面。把鼠标移到Te xtl文本框并单击，输入分数。然后，单击“开始”命令按钮，系统执行Com m a nd l _ Cl ick事件过程。执行结果如图3.3.1所示。单击标题为“结 束”的命令按钮，执行Com m a nd 2 Cl ick事件过程，结束程序的执行。图3.3.1第1题的执行结果+bx+c=0的根。2,求一元二次方程a x解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-2所示。表3-3-2第2题的属性设置控件名称属性名属性值Form lCa ption求一元二次方程的根Com m a nd1Ca ption开始Co mmandsCapt io n结束(2)程序代码b J-2-44cX 2-由中学数学知识知道，求一元二次方程的根的公式为：2a编程时要考虑如下各种情况：当a=0时，方程不是二次方程；b当t)2-4a c=0时,有两个相同的实根：X 2=-，2a.当b2-4a c0时,有两个不同的实根：b yb2-4acx】2 一，2a当bJ-4a c0时,有两个共辄复根：b J 4ac bX 2=土2a 2aPriva te Sub Com m a nd l _ Cl ick()CisDim a!,b!,c!,d isc!,xl!,x2!,re a l pa rt!,im a gpa rt!a =1加仇13(请输入方程的系数2：”)b=InputBox(请输入方程的系数b：”)c=InputBox(请输入方程的系数c：”)Print:PrintPrint Ta b(10)输入方程的系数为：；a=;a;b=;b;c=;c PrintIf Abs(a)=0.000001 Th e nPrint Ta b(15)方程不是一个二次方程！”El sed isc=b2-4*a*cIf Abs(d isc)0.000001 Th e nxl=(-b+Sqr(d isc)/(2*a)x2=(-b-Sqr(d isc)/(2*a)Print Ta b(5)方程有两个实根：”Print Ta b(18);xl ;xlPrint Ta b(18);x2=;x2El se l f d isc 0.000001 Th e nre a l pa rt=-b/(2*a):im a gpa rt=Sqr(-d isc)/(2*a)Print Ta b(5)方程有两个虚根：”；Print Ta b(18);xl=;re a l pa rt;im a gpa rt;iPrint Ta b(18);x2=;re a l pa rt;im a gpa rt;iEnd IfEnd IfEnd SubPriva te Sub Com m a nd 2 Cl ick()EndEnd Sub注意，程序中的条件“fa bs(a)=0.000001”和“fa bs(d isc)L输入方程的系数为：a=2 b=3 c=4方程有两个虚根：xl=-75+1.198958 ix2=-.75-1.198958 i结束图3.3.5执行结果(d)1=x 2图3.3.4执行结果(c)3x 52 cos x+12=x 4+x23.给定函数y=x2 4x+54=x=1 And x=5 Th e n Se l e ct Ca se x控件名称属性名属性值Form lCa ption求给定分段函数的值Com m a nd1Ca ption开始Com m a nd?Ca ption结束Ca se Is 2y=3*x-5Ca se Is 4y=2*Cos(x)+1Ca se Is=0 Th e nf=UCa se(InputBox(输入运算标志：+Ch r(13)&C_(计算周长)+Ch r(13)A_ _(计算面积)+Ch r(13)B_ _(两者都计算)&提示信息分多行显示Se l e ct Ca se fCa sePrint Ta b(10);半径r=；r;圆周长二；r*2*pi Ca se APrint Ta b(10);半径r=；r;圆面积二；r-2*pi Ca se BPrint Ta b(10);半径r=；r;圆周长二；r*2*piPrint Ta b(10);半径r=；r;圆面积=；r 2*pi Ca se El sePrint Ta b(18);输入的运算标志错！End Se l e ctEl sePrint Ta b(18)半径不能是负数！End If End Sub Priva te Sub Com m a nd 2_ Cl ick()End End Sub(3)运行情况 运行程序后，单击标题为“开始”的命令按钮，执行Com m a nd l _ Cl ick事件过程。按InputBox 对话框的提示输入半径r和运算标志。计算结果在窗体上显示。5.求满足r+Z4+/1000的最小n值。(要求使用Wh il eWEnd语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5所示。表3-35第5题的属性设置控件名称属性名属性值Form lCa ption求满足2+22+n21000 的最小n值Com m a nd1Ca ption开始Com m a nd 2Ca ption结束(2)程序代码Priva te Sub Com m a nd l _ Cl ick()Dim n%,s&n=0:s=0 Wh il e s 1000的最小n值为：；nEnd SubPriva te Sub Com m a nd 2 Cl ickOEndEnd Sub6.输入若干个正实数，个数预先不能确定，求这些正实数之和。(要求分别使用Do Wh il e Loop语句和Do UntilLoop语句)解答：(1)界面设计和属性设置在窗体上建立三个命令按钮。窗体和命令按钮的主要属性设置如表3-3-6所示。表3-3-6第6题的属性设置控件名称属性名属性值Form lCa ption求正实数之和Com m a nd 1Ca ptionDo Wh il eLoopCom m a nd2Ca ptionDo UntilLoopCom m a nd 3Ca ption结束(2)程序代码Priva te Sub Com m a nd l _ Cl ick()CisDim a!,s!a=InputBox(输入一个实数：)Do Wh il e a=0s=s+aa=InputBox(输入一个实数：)LoopPrint:PrintPrint Ta b(15);输入的正实数之和为：；sEnd SubPriva te Sub Com m a nd 2 Cl ick()CisDim a!,s!a=InputBox(输入一个实数：)Do Until a=0.00000001Print:Print:PrintPrint Ta b(8)圆周率的近似值为：;Sqr(6*s)End SubPriva te Sub Com m a nd 2 Cl ick()EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Com m a nd l _ Cl ick事件过程。计算结果在 窗体上显示。8.由数值计算方法可知，用牛顿迭代法解方程f(x)=0的迭代公式为：Xn+1=Xn-f(Xn)1 f，(Xn)(n=0,1,2,)试用牛顿迭代法求解方程X-3x2+2x+i=0在X 0=O附近的根。(要求使用DoLoop Until语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。表3-3-8第8题的属性设置控件名称属性名属性值Form lCa ption用牛顿法求方程的根Com m a nd 1Ca ption开始Com m a nd?Ca ption结束(2)程序代码根据迭代公式，牛顿迭代法的计算过程为：令n=0,由迭代公式得/=%。一/(%。)/(%。),然后判别|x-xo|是否小于(给 定精度)。若是，则迭代结束，xi作为方程的近似根；否则，进行下一步。令n=l,由迭代公式得/二/一/(项)/(/)，然后判别|X 2xi|是否小g o 若是，则迭代结束，X 2作为方程的近似根；否则，由X 2求X 3的值，判断I X 3-X 2|O I I按这样迭代下去:一直到I Xi+1-X i I E(i=o,1,2,)为止。根据上述计算过程可以编写程序为：Priva te Sub Com m a nd l _ Cl ick()Dim x0!,xl!xl=0Do xO=xl xl=xO-(xO-5-3*xO-2+2*xO+1)/(5*xO-4-6*xO+2)Loop Until Abs(xl-xO)0.00001Print Ta b(10)方程的根为xlEnd SubPriva te Sub Com m a nd 2 Cl ick()EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Com m a nd l _ Cl ick事件过程。在窗体上显 示计算结果。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-9所示。表3-3-9第9题的属性设置控件名称属性名属性值Form lCa ption求 s=l T/2+l/3T/4+1/99-1/100 的值Com m a nd 1Ca ption开始Com m a nd 2Ca ption结束(2)程序代码Priva te Sub Com m a nd l _ Cl ick()Dim i%,s!,sign%sign=1:s=0 For i=1 To 100 s=s+sign*1/i sign=-sign Ne xt i Print:Print:Print Print Ta b(18);“s的值为：；s End Sub Priva te Sub Com m a nd 2_ Cl ick()End End Sub(3)运行情况 运行程序后，单击标题为“开始”的命令按钮，执行Com m a nd l _ Cl ick事件过程。窗体显示计 算结果。10.求100到999中的水仙花数。所谓水仙花数是指一个三位数，它的各位数字的立方之和 等于该数。例如，因为153=13+53+33,所以153是水仙花数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-10所示。表3-3-10第10题的属性设置控件名称属性名属性值Form lCa ption求水仙花数Com m a nd 1Ca ption开始Com m a nd 2Ca ption结束(2)程序代码Priva te Sub Com m a nd 1_ Cl ick()Dim i%,a%,b%,c%PrintPrint Ta b(5);100999之间的水仙花数为：For i=100 To 999a=i 100b=(i-a*100)10c=i-a*100-b*10Ifi=a 3+b3+c3 Th e nPrint Ta b(10);iEnd IfNe xt iEnd SubPriva te Sub Com m a nd 2_ Cl ick()EndEnd Sub(3)运行情况执行结果如图3.3.7所示。图3.3.7第10题的执行结果11.求1000之内的所有完数。所谓完数是指一个数恰好等于它的所有因子之和。例如，因 为6=1+2+3,所以6为完数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-11所示。表3-3-11第11题的属性设置控件名称属性名属性值Form lCa ption求完数Com m a nd 1Ca ption开始Com m a nd 2Ca ption结束(2)程序代码Priva te Sub Com m a nd1 Cl ick()Dim i%,j%,s%PrintPrint Ta b(5);“11000之内的完数为:For i=1 To 1000s=0For j=1 To i-1If i Mod j=0 Th e n s=s+jNe xt jIf i=s Th e n Print Ta b(5);i Ne xt iEnd Sub“求完数Priva te Sub Com m a nd 2_ Cl ick()EndEnd Sub(3)运行情况 程序执行结果如图3.3.8所示。-1!xl1一1。00之内的完数为：6 28 496并始”结束图3.3.8第11题的执行结果12.在窗体上输出形如以下图形，其中第一行的起始字母和终止字母由用户从键盘上输入。A B C D EB C D E A C D E A B D E A B C E A B C D 解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-12所示。表3-3-12第12题的属性设置控件名称属性名属性值Form lCa ption输出由字母构成的图形Com m a nd 1Ca ption开始Com m a nd2Ca ption结束(2)程序代码Priva te Sub Com m a nd 1_ Cl ick()CisDim sta rg As String*1,e nd g As String*1,sta rge%,e nd ge%,i%,j%,k%st a rg=UCa se(InputBox(请输入起始字母：)e nd g=UCa se(InputBox(请输