vb习题与解答.pdf

《vb习题与解答.pdf》由会员分享，可在线阅读，更多相关《vb习题与解答.pdf（96页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第三部分习题与解答第 1章 程序设计语言与程序设计1.1填空题1.VB是 以（事 件 驱 动）作为运行机制的新一代可视化程序设计语言。2.程序设计语言是（人）与（计 算 机）交流的工具。3.若从机器执行的角度来对程序设计语言进行分类，则可以分为（低 级 语 言）和（高级 语 言）两种。4.计算机系统中，对高级语言的翻译工具称为（编 译）程 序 或（解 释）程序。5.源程序中的错误一般分为（编 译）错误、（运 行）错 误 和（逻 辑）错误等三种。6.VB把个应用程序称为一个（工 程）,它包含各种文件。1.2 选择题1.把 a 和 b 的乘积写成ab 的错误属于（c）错误。a）编译 b）运行 c）

2、逻辑 d）编译和运行2.用户在什么时候都可以按（b）键来查看与当前进行的工作相关的帮助。a）Held b）Fl c）ESC d）F104 窗体文件的扩展名为（d）。a）.vbp b）.bas c）.exe d）.frm4.指示一个窗体位置的值是窗体的（c）。a）对象 b）事件 c）属性 d）方法5.下面选项中不能运行VB程序的操作是（a）。a）双击窗体 b）单 击“启动”按钮图标c）从菜单栏运行菜单中选“全编译执行”菜单命令1.3 问答题d）按 F5键1 .低级语言和高级语言的各自特点是什么？答：参见教材11。2.什么是数据描述和数据处理？答：参见教材1.2。3.源程序的翻译方式有哪两种，简述

3、它们的工作过程。答：参见教材1.1。4.一个好程序的基本要求是什么？答：参见教材1.2。5.Visual BASIC集成开发环境的主窗口由哪些部分构成？各自的主要功能是什么？答：参见教材1.3。6.简述在V B 的环境下，对象、属性、方法、事件和事件驱动程序的概念，并用例子进行说明。答：在 V B的环境下，对象是系统中的基本运行实体，它封装了数据和操作。工具箱中的命令按钮、标签、文本框等是对象摸板。控件是由V B工具箱创建的对象。属性是对象的性质或状态特征。例如，窗 体 的 Caption（标题）、BackColor（背景颜色）、Height（高度）和 Width（宽度）等都是窗体的属性。事件

4、是对象之间传递的消息。VB控件的事件由系统预先定义。例如，Click（单击）事件、DblClick（双击）事件。方法是对象在某些事件驱动下执行的特定操作。它可以执行系统预定义的操作，例如窗体的Print（打印）方法、Show（显示窗体）方法；当事件由用户或V B系统触发时，对象会感受到该事件并对该事件作出响应，响应某个事件后所执行的程序就是事件驱动程序。事件驱动程序有时也称为事件过程。例如，以下是命令按钮Command 1在接受单击事件时驱动的程序：Private Sub Command 1 _Click（）Print Hello world!”End Sub7.总 结 使 用 Visual

5、BASIC开发一个应用程序的过程。答:参见教材1.5。8.5面程序是什么事件驱动程序？如何执行该事件驱动程序？执行的结果如何？Private Sub Commandl_Click（）Print 欢迎你使用VB!End Sub答：略。1.4编程题编写一个程序。要求设置窗体的标题是“这是我的第一个练习”，且在程序执行后，单击窗体显示如下一行文字：我可以用Visual BASIC编写程序了！解答：（1）用户界面设计：设计用户界面由一个窗体构成。（2）对用户界面上的控件对象的属性进行设置：把窗体的Caption属性值设置为“这是我的第一个练习（3）编写控件对象的事件驱动程序：Private Sub F

6、orm_Click（）Print”我可以用Visual BASIC编写程序了！”End Sub第 2 章 基本数据类型与表达式2.1 填空题1.在程序设计语言系统中具有固定语法含义的符号串称为（关 键 字），它们通常用来表示系统提供的标准过程、函数、运算符、常量等。2.（标 识 符）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。3.整型数据占（2）字节的内存空间。长整型数据占（4）个字节的内存空间。单精度浮点型数据占（4）个字节的内存空间。双精度浮点型数据占（8）个字节的内存空间。日期型数据占（8）个字节的内存空间。4.100%表 示 100为（整）型数据；100!表 示 10

7、0为（单精度浮点）型数据；100 表 示 100为（货 币）型数据。6 符号常量在某一过程中说明，则该符号常量只能在（该 过 程 内）内有效。6.若一个整型变量说明了之后没有给它赋值，则它的值为（0）。7.在 V B中可以把类型说明符放在变量名的（末 尾）来说明变量的类型。8.为使V B 的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（Option Explicit）语句。9.对含有多种运算的表达式，各种运算之间的顺序为（函 数 运 算）一（算 术 运 算）f（关 系 运 算）一（逻 辑 运 算）。10.把 1234.567的小数部分四舍五入转换为整数，可使用

8、函数（Cint（1234.567）。11.将 x 四舍五入到百位（例 如,若 x=23874.52应舍入成23900）,可使用表达式（Int（x/100+0.5）*100）。12.将 x 从十位截断(例如，x=23874.52应截成23800)可使用表达式(Fix(x/100)*100或者 Int(x/100)*100 或者 Cint(x100)*100)。13.设 X 为数值变量，求 X 的常用对数可使用的表达式是(Log(X)/Log(10)。14.要从字符串uVisual BASIC 6.0中截取子字符串“BASIC”可使用函数(Mid(uVisualBASIC 6.0,8,5)15.设

9、 S 是字符串变量，并且串长度为7,写出生成由S 的偶数序号字符组成的字符串的表达式(例如,把字符串”ABCDEFG变 成“BDF”)。答案：Mid(s,2,1)+Mid(s,4,1)+Mid(s,6,1)16.设 S 是字符串变量，并且串长度为7,写出用第2i-1个字符代替第2 i个字符所得到字符串的表达式(例如，把字符串 ABCDEFG”变 成“AACCEEG)。答案：String(2,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)+

10、String(2,Mid(s,5,1)+Right(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)Tabl c)姓名 d)Int3.下列选项中，把 r 定义为双精度型变量的是(c)。a)r%b)r!c)r#d)r$4.

11、下列表达式中(d)是错误的。a)2Aa/5 b)-2Al/5 c)2A(l/5)d)(-2)A(l/5)5.在下列选项中，正确表达2a+5 的表达式是(c)。a)2Aa+5 b)2Aa+2A5 c)2A(a+5)d)2Aa2A56.10 Mod 4 的值为(b)。a)1 b)2 c)4 d)107.下列运算符中(a)优先级最高。a)/b)c)Mod d)+8.在 V B中不能表示逻辑真的是(d)。a)True b)-1 c)1 d)T9.能正确表达aW l或 a 2 5 的逻辑表达式是(c)。a)a=5 b)a=5c)a=5 d)a=51 0.设 X 为整型变量,不能正确表达1 X 5的逻辑表

12、达式是(a)。a)1X5 b)X=2 or X=3 or X=4c)1X And X 5 d)Not(X=5)11.求 COS35可以使用的函数是(d)。a)Cos 35 b)Cos(35)c)Cos(35o)d)Cos(35*3.14159/180)12.Len(中国人民)的值是(b).a)0 b)4 c)8 d)不能确定1 3.设 X 是一个正实数，对 X 的第二位小数四舍五入可使用的函数是(c)。a)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)1 4.函数Int(Rad*99+l)产生

13、随机数的范围是(b)。a)1,99)b)l,99 c)l,100)d)l,1002.3 下列符号哪些是正确的变量名l)n 2)3x 3)Abs 4)85 5)print_56 6)名称7)n 8)a%b 9)ab#10)My Name 11)“年龄”12)学校$答案：除了以下符号外，其它符号都是正确的变量名。错误的变量名 原因3x 变量名必须以字母为开始Abs 不能和关键字同名85 变量名必须以字母开始兀 不是英文字母a%b 变量名中不能用字符My N a m e 变量名内不能有空格字符2.4 把下列数学表达式写成VB表达式1)2)x xx(ax+b)+c+d +e3)In(1+1110)4)

14、5)ctg 6)log 10(a2+2ab+b2)答案：1)l/(l+(l/(l+l/(x+y)2)x*(x*(x*(a*x+b)+c)+d)+e3)Log(1 +Abs(a+b)/(a-b)A10)4)Sqr(l+3.14159/2*Cos(48*3.14159/180)5)1 /Tan(1 -x*x)/(1 +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.5678)2)Fix(l 234.5678)3)val(“12.34”)4)Cint(123

15、4.5678)5)Abs(-lOO)6)Sgn(-lOO)7)Sqr(sqr(l 6)8)Left(Visual BASIC 60,6)9)Mid(uVisual BASIC 6.0”,8,5)10)InStr(l,Visual BASIC 6.0”,BASIC)11)String。，*)12)Int(100*Rnd)+l)答案：1)-1235 2)1234 3)12.34 4)1235 5)1006)-1 7)2 8)Visual 9)BASIC 10)011)$12)产生从整数1到整数100之间的随机整数2.6 写出下列表达式的值1)(3+6)、2 2)184*4.0A2/1.63)25

16、3 Mod 3.2*Int(2.5)4)“xyz”+“438”5)“abc”&“123”&“abc”6)349.25+“0.75”=3507)“china”=canada 8)abcv=abc”&123”9)3 4 And 5=5 10)True Or Not 7-3=4答案：1)4 2)0 3)2 4)xyz438 5)abcl23abc6)True 7)True 8)True 9)False 10)True2.7 设 al,a2,a3是布尔变量，其值依次为：True,True,F alse,写出下列布尔表达式的值1)Not al And Not a2 2)Not al Eqv Not a2

17、3)al Or a2 And a3 4)al Xor a2 Or a35)(Not al Or a2)And(a2 Or a3)6)Not al And a2 Imp a3答案：1)False 2)True 3)True 4)False 5)True 6)True2.8用关系表达式或逻辑表达式表示下列条件1)i 整除j 2)n 是小于正整数k 的偶数3)l=x10 4)x,y 其中有一个小于z5)y-1 0 0,-1 0,并且 y 10,1006)坐 标 点(x,y)落 在 以(1 0,20)为圆心，以 35为半径的圆内7)三条边a,b 和 c 构成三角形8)年份Year能被4 整除，但不能被

18、100整除或者能被400整除答案：1)i Mod j=0 2)nk And n Mod 2=03)l=x And x10 4)xz Or y=-100 And y=10 And y=100)6)Sqr(x-10)A2+(y-15)A2)c And b+ca And c+ab8)Year Mod 4=0 And year Mod 400o0 Or Year Mod 400=02.9 问答题1.标识符的选取必须遵循什么规则？答：参见教材2.1.2。2.各种基本数据类型的取值范围如何？答：参见教材.2.2表 2-1。3.空串与空格有什么不同？答：参见教材2.1.1。4.什么是符号常量？使用符号常量有

19、什么好处？答：参见教材2.3.1。5.自动变量与静态变量如何定义？它们之间有什么不同？答：参见教材2.3.2。6.两个字符串如何进行比较(关系)运算，如何确定运算结果?试举例说明。答：参见教材2.4.3。第 3 章 程序流程控制3.1 填空题1.设 变 量 r 表 示 圆 的 半 径，则 计 算 圆 的 面 积 并 赋 给 变 量 s 使用的赋值语句为(s=3.14159*r*r)。2 .给 命 令 按 钮 Command?的 Caption属 性 赋 予 字 符 串“退 出”使用的赋值语句为(Command2.Caption=退 出)。3.为了求n 的阶乘，要求用户输入n 的值。程序使用In

20、putBox函数输入，要求对话框提示信 息 为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n 中，则使用的赋值语句为（n=val（InputBox（请输入一个求阶乘的数：，求数的阶乘）。4.如 果 使 用 MsgBox对话框显示提示信息“退出本系统？”，并 显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”,则调用MsgBox函数的形式为（MsgBox（退出本系统？，4+32+0,提示信息）。5.如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题

21、“文件查找”，则使用的MsgBox语 句 为（MsgBox 文件未找到，0+48+0,文件查找）。6.要在当前窗体Form和立即窗U 输出字符串“Visual BASIC 6.0”使用的Print方法分别是（Print uVisual BASIC 6.0w）和（Debug.Pr血“Visual BASIC 6.0”）。7.使 用 Print方法时，若用逗号分隔，则按（标 准）格式输出各表达式的值，若用分号分隔，则按（紧 凑）格式输出各表达式的值。8.注释语句是一个（非 执 行）语句，V B不对它们进行编译，对程序的执行结果没有任何影响。9.判别变量i 是否为偶数，若为偶数就把它显示出来。使用单

22、行结构条件语句为（If i Mod2=0 Then print x）。10.判别变量x 是否大于0,若大于0,则累加到变量s i 中，否则，累加到变量s 2 中，使用的单行结构条件语句为（If x 0 Then sl=sl+x Else s2=s2+x）11.给定分段函数，求 y 的值，使用的单行结构条件语句为（If x0Then y=2*x+l Else Ifx=0 Then y=0 Else y=2*x-l）12.判别a 是否等于 若 2=1）,则输出字符串“a is equal to b”的块结构条件语句为（）。答案：If a=b ThenPrint lta is equal to b”

23、End13.判别ch是否为小写字母，若是，输 出“yes”；否则，输 出“No”的块结构条件语句为（）o答案：If Asc（ch）=97 And Asc（ch）=122 ThenPrint“YesElsePrint“No”End If14.若一个case子句中的表达式表由逗号分隔的若干个常数组成，则它的含义是：当测试表达式的值等于（这些常数中的某一个）时，执行该case子句相应的程序块。15.若 case子句中的表达式表列具有形式：表达式1 To 表达式2,则它的含义是：当测试表达式的值等于（这 个 范 围 内 的 值）时，执行该case子句相应的程序块。16.若 case子句中的表达式表列具

24、有形式：Is 关系运算符 表达式，则它的含义是：当测试表达式的值满足（Is后 的 关 系）时，执行该case子句相应的程序块。17.在循环语句中，反复执行的程序段称为（循 环 体）；进入循环体的条件称为（循环 条 件）;中止循环体执行的条件称为（结 束 循 环 条 件）。3.2 选择题1.下列赋值语句中，(d)是正确的。a)x!=abc b)a%=10e c)x+1=5 d)s$=1002.下列选项中，(d)不能交换变量a 和 b 的值。a)t=b:b=a:a=t b)a=a+b:b=a-b:a=a-bc)t=a:a=b:b=t d)a=b:b=a3.若在消息框MsgBox中显示“确定(Ok)

25、”和“取消(Cancel)”两 个 按 钮,则 buttons参数的设置值是(b)。a)0 b)1 c)2 d)34.若在消息框MsgBox中选择第二个按钮为默认值，则 buttons参数的设置值是(b)。a)0 b)256 c)512 d)7685.若单击了“终 止(A bort)按钮，则 MsgBox函数的返回值是(c)。a)l b)2 c)3 d)46.以下不正确的单行结构条件语句是(d)。a)If xy Then Print“xy b)If x Then t=t*xc)If x Mod 3=2 Then?x d)If xb Then max=a Else max=b End Ifb)I

26、f ab Then max=aElse max=bEnd Ifc)If ab Thenmax=aElsemax=bd)If ab Thenmax=aElsemax=bEnd If9,下列Case语句中正确的是(c)。a)Select Case xCase 1 Or 3 Or 5y=x*x-lCase Is 10y=x+lEnd Selectb）Select Case xCase 1,3,5y=2*x-lCase Is x=1Y=2*x+1End Selectc）Select Case xCase Is 0y=Sqr（x）+1End Selectd）Select Case xCase x=l A

27、nd x10y=x*x+lEnd SelectlO.执行下列程序段后屏幕上（c）。i%=10:Sum=0While i 1Sum=Sum+ii=i-1WendPrint Suma）无显示 b）显 示 10 c）显示54 d）显示5511.执行下列程序段输出结果是（c）ox%=2Do while x8Print *”；x=x+2Loopa）*b）*c）*d）*12.设有程序段Dim k%k=5Do until k=0k=k-lLoop则下面对循环语句描述正确的是（C ）oa）循环体1次也不执行 b）循环体执行1 次c）循环体执行5 次 d）循环体执行无限次13.下面描述中错误的是（a,c）。a）

28、执行Do until loop语句中，当循环“吊 6113,0.75Print-2*3/2;“Visual&BASIC”；Not 53;0.75x=12.34Print x=”；Print xEnd Sub答案：-3 Visual BASIC False.75-3 Visual BASICFalse.75x=12.342.Private Sub Form_ClickPrint Tab(10);-100;Tab(20);200;Tab(30);-300Print Spc(10);-100;Spc(10);200;Spc(10);-300End Sub答案：-100 200-300-100 200

29、-3003.Private Sub Form_Clickx=12.35Print Format(x,#.#)Print Format(x,#.#)Print Format(x；000.00)Print Format(xJOOO)Print Format(xJO.OO%)Print Format(x,$#.#)Print Format(x,+#.#)Print Format(x,00.00E+00)End Sub答案：12.3512.35012.3512.41235.00%$12.35+12.3512.35e+004.Private Sub Command 1 _Click()Dim a%,b%

30、,c%,s%,w%t%a=-l:b=3:c=3s=0:w=0:t=0If c 0 Then s=a+bIfa=OThenIf c 0 Then w=a-b Else t=cEnd Ifc=a+bPrint a,b,cPrint s,w,tEnd Sub答案：-13 22 0 05.Private Sub Commandl_Click()Dim x%,y%x=InputBox。请输入x 的值：”)Select Case xCase 1,3,5y=x-1Case 6 To 10y=x+1Case 2,4y=2*xCase Is 10y=x*x+1End SelectPrint nx=n;x,Hy=

31、H;yEnd Sub(x 的输入值为2.5、8、4 和 15)答案：x=2 y=4x=8 y=9x=4 y=8x=15 y=2266.Private Sub Command 1 _Click()Dim i%,t!t=1:i=1While i 8If i Mod 2=1 Thenx=x*iElsey=y*iEnd Ifi=i+1LoopPrint nx=n;x,My=M;yEnd Sub答案：x=105 y=3848.Private Sub Command 1 _Click()Dim p%,s%p=1：s=1Dop=p+2:s=s+pLoop While p10Print,s=M;sEnd Su

32、b答案：s=369.Private Sub Command 1 _Click()Dim m%,n%For m=1 to 3n=0While n=85 ThenText2.Text=Very good!Elself score=60 ThenText2.Text=nGood!nElseText2.Text=No good!1,End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub(3)运行情况运行程序后，屏幕出现用户界面。把鼠标移到Textl文本框并单击，输入分数。然后，单击“开始”命令按钮，系统执行Commandl_Click事件过程。执行结果如

33、图3.3.1所示。单击标题为“结束”的命令按钮，执行Command2_Click事件过程，结束程序的执行。图 3 3 1 第 1题的执行结果2.求一元二次方程ax+bx+c=O的根。解答：(1)界面设计和属性设置在窗体上 建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-2所示。表 3-3-2 第 2 题的属性设置控件名称 属性名 属性值Forml Caption 求一元二次方程的根Command 1 Caption 开始Command?Caption 结束(2)程序代码由中学数学知识知道，求一元二次方程的根的公式为：，编程时要考虑如下各种情况：当 a=0 时，方程不是二次方程；当 b

34、241c=0 时,有两个相同的实根：；当 b241c 0 时,有两个不同的实根：当 b 2 41c 0 时，有两个共利复根：。Private Sub Command 1 _Click()CisDim a!,b!,c!,disc!,xl!,x2!,realpart!,imagpart!a=InputBox(请输入方程的系数a：”)b=InputBox(请输入方程的系数b：”)c=InputBox(请输入方程的系数c：”)Print:PrintPrint Tab(10);”输入方程的系数为:”；na=;a;b=;b;c=;cPrintIf Abs(a)=0.000001 ThenPrint Tab

35、(15);方程不是一个二次方程！Elsedisc=bA2-4*a*cIf Abs(disc)=0.000001 ThenPrintTab(10);”方程有两个相同的实根：”;nxl=x2=n;-b/(2*a)Elselfdiso 0.000001 Thenxl=(-b+Sqr(disc)/(2*a)x2=(-b-Sqr(disc)/(2*a)Print Tab(5);“方程有两个实根：”PrintTab(18);“xl=“；xlPrint Tab(18);ux2=;x2Elselfdisc 0.000001 Thenrealpart=-b/(2*a):imagpart=Sqr(-disc)/(

36、2*a)Print Tab(5);”方程有两个虚根：”;Print Tab(18);Hxl=n;realpart;im agpart;iPrint Tab(18);nx2=n;realpart;imagpart;ninEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub注意，程序中的条件“fabs(a)v=0.000001”和ufabs(disc)=1 And x=5 ThenSelect Case xCase Is 2y=3*x-5Case Is 4y=2*Cos(x)+1Case Is=0 Thenf=UCase(InputBo

37、x(输入运算标志：+Chr(13)&_C(计算周长)+Chr(13)&_A一(计算面积)”+Chr(13)&_ B _(两者都计算)提示信息分多行显示Select Case fCase CPrint Tab(10);“半径 r=;r;圆周长=;r*2*piCase APrint Tab(10);半径 r=;r;圆面积=”;r A 2*piCase BPrint Tab(10);“半径 r=;r;圆周长二”;Print Tab(10);半径 r=n;r;圆面积Case ElsePrintTab(I8);”输入的运算标志错！”End SelectElsePrint Tab(18);“半径不能是负数

38、!”2*rA2.pl*End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub运行情况运行程序后，单击标题为“开始”的命令按钮，执行CommandLClick事件过程。按 InputBox对话框的提示输入半径r 和运算标志。计算结果在窗体上显示。5.求满足12+22+n2 1000的最小n 值。(要求使用WhileWEnd语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5所示。表 3-3-5 第 5 题的属性设置控件名称 属性名 属性值Forml Caption 求满足 1A2+2A2+,*,+

39、nA2 1000 的最小 n 值Command 1 Caption 开始Command2 Caption 结束程序代码Private Sub Command 1 _Click()Dim n%,s&n=0:s=0While s 1000的最小n 值为：”；nEnd SubPrivate Sub Command2_Click()EndEnd Sub6.输入若干个正实数，个数预先不能确定，求这些正实数之和。(要求分别使用D。WhileLoop语句和Do U ntilLoop语句)解答：(1)界面设计和属性设置在窗体上建立三个命令按钮。窗体和命令按钮的主要属性设置如表3-3-6所示。表 3-3-6 第

40、 6 题的属性设置控件名称 属性名属性值Forml C aption求正实数之和Command 1 Caption Do While.LoopCommand?Caption Do Until.LoopCommands Caption 结束(2)程序代码Private Sub Command I _Click()CisDim a!,s!a=InputBox(输入一个实数：”)Do While a=0s=s+aa=InputBox(输入一个实数：)LoopPrint:PrintPrintTab(15);“输入的正实数之和为：”;sEnd SubPrivate Sub Command2_Click(

41、)CisDim a!,s!a=InputBox(输入一个实数：)Do Until a=0.00000001Print:Print:PrintPrint Tab(8);”圆 周 率 的 近 似 值 为:Sqr(6*s)End SubPrivate Sub Command2_Click()EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行CommandLClick事件过程。计算结果在窗体上显示。8.由数值计算方法可知，用牛顿迭代法解方程f(x)=O的迭代公式为：试用牛顿迭代法求解方程x5 3x2+2x+l=0 在 x0=0附近的根。(要求使用DoLoop Until语

42、句)解答：(1)界面设计和属性设置在窗体上 建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。表 3-3-8 第 8 题的属性设置控件名称 属性名 属性值Forml Caption 用牛顿法求方程的根Command 1 Caption 开始Command?Caption 结束(2)程序代码根据迭代公式，牛顿迭代法的计算过程为：令 n=0,由迭代公式得，然后判别I x l-x 0 I 是否小于e(给定精度)。若是，则迭代结束，x l 作为方程的近似根；否则，进行下一步。令 n=l,由迭代公式得，然 后 判 别|x 2-x l|是否小e。若是，则迭代结束，x 2 作为方程的近似根；

43、否则，由x2求 x3的值，判 断|x3-x2|I II按这样迭代下去,一直到I xi+1xi|e(i=0,1,2,)为止。根据上述计算过程可以编写程序为：Private Sub Command 1 _Click()Dim x0!,x l!xl=0DoxO=xlxl=xO-(xO A 5-3*xO A 2+2*xO+1)/(5*xO A 4-6*xO+2)Loop Until Abs(xl-xO)0.00001Print Tab(lO);”方程的根为：；xlEnd SubPrivate Sub Command2_Click()EndEnd Sub运行情况运行程序后，单击标题为“开始”的命令按钮，

44、执行CommandLClick事件过程。在窗体上显示计算结果。9.求 S=的值。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-9所示。表 3-3-9 第 9 题的属性设置控件名称 属性名 属性值Forml Caption 求 s=l-l/2+l/3-l/4+-+l/99-l/100 的值Command 1 Caption 开始Command2 Caption 结束程序代码Private Sub Command 1 _Click()Dim i%,s!,sign%sign=1:s=0For i=1 To 100s=s+sign*1 /isign=-

45、signNext iPrint:Print:PrintPrint Tab(18);飞的值为：sEnd SubPrivate Sub Command2_Click()EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行CommandLClick事件过程。窗体显示计算结果。1 0.求 100到 999中的水仙花数。所谓水仙花数是指一个三位数，它的各位数字的立方之和等于该数。例 如,因 为 153=13+53+33,所 以 153是水仙花数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-10所示。表 3-3-1 0 第 1

46、0题的属性设置控件名称 属性名 属性值Form 1 C aption求水仙花数Command 1 Caption 开始Command?Caption 结束(2)程序代码Private Sub Command l_Click()Dim i%,a%,b%,c%PrintPrint Tab(5);100-999之间的水仙花数为:For i=100 To 999a=i 100b=(i-a*100)10c=i-a*100-b*10Ifi=aA3+bA3+cA3ThenPrint Tab(10);iEnd IfNext iEnd SubPrivate Sub Command2_Click()EndEnd

47、Sub运行情况执行结果如图3 3 7 所示。图 3.3.7 第 10题的执行结果11.求 1000之内的所有完数。所谓完数是指一个数恰好等于它的所有因子之和。例如，因为 6=1+2+3,所以6 为完数。解答：界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3 3-11所示。表 3-3/1 第 11题的属性设置控件名称 属性名 属性值Forml Caption 求完数Command 1 Caption 开始Command2 Caption 结束程序代码Private Sub Command 1 _Click()Dim i%,j%,s%PrintPrint Tab(5)

48、;”1 1000 之内的完数为：”For i=1 To 1000s=0Forj=1 To i-1If i Mod j=0 Then s=s+jNext jIf i=s Then Print Tab(5);iNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub(3)运行情况程序执行结果如图3.3.8所示。图 3 3 8 第 11题的执行结果12.在窗体上输出形如以下图形，其中第一行的起始字母和终止字母由用户从键盘上输入。A B C D EB C D EACD EA BD EA B CEA B C D解答：(1)界面设计和属性设置在窗体上建立两个命

49、令按钮。窗体和命令按钮的主要属性设置如表3-3-12所示。表 3-3-1 2 第 12题的属性设置控件名称 属性名 属性值Form 1 Caption 输出由字母构成的图形Command 1 Caption 开始Command2 Caption 结束程序代码Private Sub Command 1 _Click()CisDim starg As String*1,endg As String*1,stargc%,endgc%,i%,j%,k%starg=UCase(InputBox(”请输入起始字母：”)endg=UCase(InputBox(请输入终止字母：”)stargc=Asc(sta

50、rg)endgc=Asc(endg)PrintIf stargc Forml.ScaleWidth ThenLabel 1.Left=0ElseLabel 1.Left=Label 1.Left+100End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub(3)运行情况运 行 程 序 后，屏 幕 出 现用户界面。每 单 击 一 次 标 题 为“移 动”的 命令按钮，执行Commandl_Click事件过程，使标签往右移100翁。右移出窗体的右边界时，再次单击“移动”命令按钮，标签回到窗体的左边界。执行情况如图3.4.1所示。图 3.4第 1题的执