vb课后习题与解答.pdf

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

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

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

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

4、 t h （宽度）等都是窗体的属性。事件是对象之间传递的消息。VB控件的事件由系统预先定义。例如，C l i c k （单击）事件、D bl C l i c k （双击）事件。方法是对象在某些事件驱动下执行的特定操作。它可以执行系统预定义的操作，例如窗体的P rin t （打印）方法、S ho w （显示窗体）方法；当事件由用户或VB 系统触发时，对象会感受到该事件并对该事件作出响应，响应某个事件后所执行的程序就是事件驱动程序。事件驱动程序有时也称为事件过程.例如，以下是命令按钮Co m m an d 1 在接受单击事件时驱动的程序：Priv at e S u b Co m m an d l

5、_Cl ick（）Prin t H e l l o w o rl d !E n d S u b7 .总 结 使 用 Vis u al B A S I C开发一个应用程序的过程。答：参见教材1.5。8 .下面程序是什么事件驱动程序？如何执行该事件驱动程序？执行的结果如何？Priv at e S u b Co m m an d 1 _Cl ick（）Prin t ”欢迎你使用VB!”E n d S u b答：略。1.4 编程题编写一个程序。要求设置窗体的标题是“这是我的第一个练习”，且在程序执行后，单击窗体显示如下一行文字：我可以用Vis u al B A S I C编写程序了！解答：（1）用户界

6、面设计：设计用户界面由一个窗体构成。（2）对用户界面上的控件对象的属性进行设置：把窗体的Cap t io n 属性值设置为“这是我的第一个练习”。（3）编写控件对象的事件驱动程序：Priv at e S u b F o rm Cl ick（）Prin t 我可以用Vis u al B A S I C编写程序了！E n d S u b第2章 基本数据类型与表达式2.1填空题1 .在程序设计语言系统中具有固定语法含义的符号串称为(关 键 字)，它们通常用来表示系统提供的标准过程、函数、运算符、常量等。2 .(标 识 符)用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。3 .整型数据占

7、(2 )字节的内存空间。长整型数据占(4 )个字节的内存空间。单精度浮点型数据占(4 )个字节的内存空间。双精度浮点型数据占(8 )个字节的内存空间。日期型数据占(8 )个字节的内存空间。4 .1 0 0%表 示 1 0 0 为(整)型数据；1 0 0!表 示 1 0 0 为(单精度浮点)型数据;1 0 0 表 示 1 0 0 为(货 币)型 数 据。5 .符号常量在某一过程中说明，则该符号常量只能在(该 过 程 内)内有效。6 .若一个整型变量说明了之后没有给它赋值，则它的值为(07 .在 V B 中可以把类型说明符放在变量名的(末 尾)来说明变量的类型。8 .为使VB 的编译程序自动检查变

8、量声明，遇到未经说明的标识符发出错误警告信息,在程序中要加上(Opt i on E xpli c i t )语句。9 .对含有多种运算的表达式，各种运算之间的顺序为(函 数 运 算)一(算术运算)一(关 系 运 算)-(逻 辑 运 算)10.把 1234.56 7 的小数部分四舍五入转换为整数，可使用函数(Ci nt(1234.5 67)。11.将 x 四舍五入到百位(例如，若 x=238 7 4.5 2 应舍入成239 00),可使用表达式(I nt (x/100+0.5)*100)o12.将 x 从十位截断(例如，x=238 7 4.52应截成238 00)可使用表达式(F i x(x/1

9、00)*100 或者 I nt(x/100)000 或者 Ci nt(x 100)000)。13.设 X 为数值变量，求 X 的常用对数可使用的表达式是(Log(X)/Log(1 0)。14.要 从 字 符 串“V i s u a l B A SI C 6.0 中截取子字 符 串“B A SI C”可使用函数(M i d(“V i s u a l B A SI C 6.0 ，8,5)15.设 S 是字符串变量，并且串长度为7,写出生成由S 的偶数序号字符组成的字符串的表达式(例如,把字符串 A B CD E F G”变 成“B D F”).答 案:M i d(s,2,1)+M i d(s,4,

10、1)+M i d(s,6,1)16 .设 S 是字符串变量，并且串长度为7,写出用第2 i-1 个字符代替第2i 个字符所得到字符串的表达式(例如,把字符串 A B CD E F G”变 成“A A CCE E G”)。答 案:St ri ng(2,M i d(s,1,1)+St ri ng(2,M i d(s,3,1)+St ri ng(2,M i d(s,5,1)+M i d(s,7,1)或：St ri ng(2,M i d(s,1,1)+St ri ng(2,M i d(s,3,1)+St ri ng(2,M i d(s,5,1)+Ri g h t(s,1)17 .产生从整数a 到整数b

11、 之间的随机整数可使用表达式(I nt(b-a+l)*Rnd+a)。18 .产 生 从 100.01到 200.99之间的随机数(包括两端点)可使用的表达式是(I nt(2009 9-10001+1)*Rnd+10001)/100)。2.2 选择题1.下面选项中(c)是算术运算符。a)%b)&c)Mod d)And2.下面不合法的标识符是(d)。a)Go_To b)Tabi c)姓名 d)Int3.下列选项中，把 r 定义为双精度型变量的是(c)。a)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.在下列选项

12、中，正确表达吸$的表达式是(C )oa)2a+5 b)2a+2 5 c)2(a+5)d)2a256.10 Mod 4 的值为(b)。a)1 b)2 c)4 d)107.下列运算符中(a)优先级最高。a)/b)c)Mod d)+8.在 VB中不能表示逻辑真的是(d)。a)True b)-1 c)1 d)T9.能正确表达aW 1或 a 2 5 的逻辑表达式是(c)。a)a=5 b)a=5c)a=5 d)a=510.设 X为整型变量,不能正确表达1 X 5 的逻辑表达式是(a)oa)1 X 5 b)X=2 or X=3 or X=4c)1X And X 5 d)Not(X=5)11.求 C0S35可

13、以使用的函数是(d)。a)Cos 35 b)Cos(35)c)Cos(35)d)Cos(35*3.14159/180)12.Len(“中国人民”)的 值 是(b)。a)0 b)4 c)8 d)不能确定13.设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)14.函数Int(Rad*99+l)产生随机数的范围是(b)。a)1,99)b)1,99 c)1,100)d)1,1002.3 下列符号哪些是正确的变量名1)n 2)3x 3)

14、Abs 4)85 5)print_56 6)名称7)n 8)a%b 9)ab#10)M y Name 11)“年龄”12)学校$答案：除了以下符号外，其它符号都是正确的变量名。错误的变量名 原因3x 变量名必须以字母为开始A b s 不能和关键字同名8 5 变量名必须以字母开始“不是英文字母a%b 变量名中不能用字符M y Nam e变量名内不能有空格字符2.4把下列数学表达式写成VB表达式1)111+11+-x+y2)x x x(a x+b)+c +d +e3)I n(1+|-(3-+-b-|1,0I)f.a-b4)7t1+cos 485)1-x2ctg(-1+x6)log i o(a2+2

15、a b+b2)答案：1)l/(l+(l/(l+l/(x+y)2)x*(x*(x*(a*x+b)+c)+d)+e3)Log(1+A b s(a+b)/(a-b)-10)4)Sqr(l+3.14159/2*Cos(48*3.14159/18 0)5)l/T a n(l-x*x)/(l+x*x)或者 Cos(l-x*x)/(l+x*x)/Si n(l-x*x)/(l+x*x)6)Log(a*a+2*a*b+b*b)/Log(10)2.5写出下列函数的值1)I nt(-1234.56 7 8)2)3)va l(“12.34”)4)5)A b s(-100)6)7)Sqr(s qr(16)8)F i x

16、(1234.56 7 8)Ci nt(1234.56 7 8)Sg n(-lOO)Lef t (V i s u a l B A SI C 6.0”，6)9)M i d(V i s u a l B A SI C 6.0”,8,5)10)I nSt r(1,V i s u a l11)St ri ng(3,“$”)B A SI C 6.0”，“B A SI C”)lnt(100*Rnd)+l)答案：1)-12356)-111)$2)7)123423)12.348)V i s u a l4)1235 5)1009)B A SI C 10)0产生从整数1到整数100之间的随机整数2.6 写出下列表达式

17、的值1)(3 +6)23)25 3 M od 3.2*I nt (2.5)5)“a b c”&“123”&“a b c”7)“c h i na =c a na da”9)3 4 A nd 5=5答案：1)42)03)26)T ru e7)T ru e8)T ru e2)18 4*4.0 2/1.64)“xy z”+“438”6)349.25+“0.7 5”=:3508)“a b c”=a b c”&123”10)T ru e Or N ot 7-3=44)xy z 438 5)a b c l23a b c9)F a ls e 10)T ru e2.7 设 a1,a2,a3是布尔变量，其值依次为

18、：True,True,F alse,写出下列布尔表达式的值1)N ot a l A nd N ot a 2 2)N ot a l E qv N ot a 23)a l Or a 2 A nd a 3 4)a l Xor a 2 Or a 35)(N ot a l Or a 2)A nd(a 2 Or a 3)6)N ot a l A nd a 2 I mp a 3答案：1)F a ls e 2)T ru e 3)T ru e 4)F a ls e 5)T ru e 6)T ru e2.8用关系表达式或逻辑表达式表示下列条件1)i整 除j 2)n是小于正整数k的偶数3)K=x 1 0 4)x,y

19、其中有一个小于z5)y 任-1 0 0,-1 0 ,并且 y e 1 0,1 0 0 6)坐 标 点(x,y)落 在 以(1 0,2 0)为圆心，以3 5为半径的圆内7)三条边a,b和c构成三角形8)年份Ye a r能被4整除，但不能被1 0 0整除或者能被40 0整除答案：1)i M o d j=0 2)n k A n d n M o d 2=03)K=x A n d x 1 0 4)x z Or y =-1 0 0 A n d y =1 0 A n d y =1 0 0)6)Sq r(x-1 0)*2+(y-1 5)*2)c A n d b+c a A n d c+a b8)Ye a r

20、M o d 4=0 A n d y e a r M o d 40 0 0 0 Or Ye a r M o d 40 0=02.9 问答题1 .标识符的选取必须遵循什么规则？答:参见教材2.1.2。2 .各种基本数据类型的取值范围如何？答：参见教材2.2表2-1。3 .空串与空格有什么不同？答：参见教材2.1.1。4.什么是符号常量？使用符号常量有什么好处？答：参见教材2.3.1。5 .自动变量与静态变量如何定义？它们之间有什么不同？答:参见教材2.3.2。6 .两个字符串如何进行比较（关系）运算，如何确定运算结果?试举例说明。答:参见教材2.4.3。第3章 程序流程控制3.1填空题1 .设 变

21、 量 r表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（s=3.1 41 5 9*r*r ）。2 .给命令按钮Co mma n d s 的 Ca p t i o n 属性赋予字符串 退出”使用的赋值语句为（Co mma n d 2.Ca p t i o n=退 出）。3 .为了求n的阶乘，要求用户输入n的值。程序使用I n p u t B o x 函数输入，要求对话框提示信息为“请输入个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（n=v a l （I n p u t B o x （请输入一个求阶乘的数：,求数的阶乘）4.如

22、果使用M s g B o x 对话框显示提示信息“退出本系统？”，并显示“是（Ye s）”和“否（N。）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则 调 用 M s g B o x 函数的形式为（M s g B o x （退出本系统？，4+3 2+0,提示信息）。5 .如果使用M s g B o x 对话框显示提示信息”文件未找到！”，并显示“确定”按钮、图乐！”号和标题“文件查找”,则使用的M s g B o x 语句为（M s g B o x 文件未找到，0+48+0,文 件 查 找 ）o6 .要在当前窗体F o rm 和立即窗口输出字符串“V i sua

23、 l B A S I C 6.0”使 用 的 P ri n t方法分别是（P ri n t V i sua l B A S I C 6.0 ）和（D e b ug.P ri n t V i sua l B A S I C 6.0 ）。7.使用P ri n t方法时，若用逗号分隔，则按（标 准）格式输出各表达式的值，若用分号分隔，则按（紧 凑）格式输出各表达式的值。8.注释语句是一个（非 执 行）语句，V B 不对它们进行编译，对程序的执行结果没有任何影响。9 .判别变量i 是否为偶数,若为偶数就把它显示出来。使用单行结构条件语句为（I fi M o d 2=0 T he n p ri n t

24、x）1 0.判别变量x 是否大于0,若大于0,则累加到变量s i 中，否则，累加到变量s2中，使用的单行结构条件语句为（I f x 0 T he n sl=sl+x El se s2=s2+x）。2x+1 x 01 1 .给定分段函数y =1 0 x=0,求 y 的值，使用的单行结构条件语句2x-1 x 0 T he n y=2*x+l El se I f x=0 T he n y=0 El se y=2*x-l)=97 And Asc(ch),则它的含义是：当测试表达式的值等于(这 个 范 围 内 的 值)时，执行该c a se 子句相应的程序块。1 6 .若 c a se 子句中的表达式表

25、列具有形式：I s y T he n P ri n t Mx yM b)I f x T he n t=t*xc)I f x M o d 3=2 T he n?x d)I f x b T he n m a x=a El se m a x=b En d I fb)c)I f a b T he n m a x=aEl se m a x=bEn d I fI f a b T he nd)I f a b T he n9.m a x 二 aEl sem a x=b下列C a se语句中正确的是（C)om a x=aEl sem a x=bEn d I fa)S e l e c t C a se xb)S

26、e l e c t C a se x1 0.C a se 1 O r 3 O r 5y=x*x-lC a se I s 1 0y=x+lEn c l S e l e c tc)S e l e c t C a se xC a se I s 0y=S q r(x)+lEn d S e l e c t执行下列程序段后屏幕上(C)OC a se 1,3,5y=2*xTC a se I s x =l A n d x 1 0y=x*x+lEn d S e l e c ti%=1 0:S um =0W hi l e i 1S um =S um +ii =i -1W e n dP ri n t S uma）无

27、显示 b）显 示10 c）显示541 1.执行下列程序段输出结果是（c ）。x%=2d）显示55D o whi l e x 3,0.7 5Print-2*3/2 ;“V isual&BAS IC；No t 5 3;0.7 5x=1 2.3 4Print ux=n：Print xE nd S ub答案：-3 V isual BAS IC F alse.7 5-3 V isual BAS ICF alse.7 5x=1 2.3 42.Private S ub F o rm_ClickPrint T ab(1 0);-1 0 0;T ab(2 0);2 0 0;T ab(3 0);-3 0 0Pri

28、nt S p c(1 0);-1 0 0;S p c(1 0);2 0 0;S p c(1 0);-3 0 0E nd S ub答案：-1 0 0 2 0 0 -3 0 0-1 0 0 2 0 0 -3 0 03.Private S ub F o rm_Clickx=1 2.3 5Print F o rmat(x,#.#)Print F o rmat(x,#.#)Print F o rmat(x,0 0 0.0 0)Print F o rmat(x,0 0.0”)Print F o rmat(x,-0.0 0%”)Print F o rmat(x,$#.#)Print F o rmat(x,+

29、#.#)Print F o rmat(x,”0 0.0 0 E+0 0)E nd S ub答案：1 2.3 51 2.3 50 1 2.3 51 2.41 2 3 5.0 0%$1 2.3 516+12.3512.35e+004.Private Sub Commandl_Click（）Dim a%,b%,c%,s%,w%,t%a=-1:b=3:c=3s=0:w=0:t=0If c 0 Then s=a+bIf a=0 ThenIf c 0 Then w=a-b Else t=cEncl Ifc=a+bPrint a,b,cPrint s,w,tEnd Sub答 案：-1 3 22 0 05.P

30、rivate Sub Command1 C lick0Dim 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 x=;x,y=;yEnd Sub（x的输入值为2.5、8、4和15）答 案：x=2 y=4x=8 y=9x=4 y=817x=1 5 y=2 2 66.Private S ub Co mmandl_Click()Dim i%,t!t=1:i=1While i 8If i Mo d 2 =1 T henx

31、=x *iE lsey =y *iE nd Ifi=i+1Lo o pPrint x-;x,y-;yE nd S ub答案：x=1 0 5 y=3 8 48.Private S ub Co mmandl_Click()Dim p%,s%p =1:s=1Dop=p+2:s=s+pLo o p While p n%F o r m=l to 3n=0While n=8 5 T henT ex t2.T ex t=V ery go o d!E lself sco re =60 T henT ex t2.T ex t=G o o d!”E lseT ex t2.T ex t=No go o d!”19E

32、nd IfEnd SubP rivate Sub Comniand2_Click()EndEnd Sub(3)运行情况运行程序后，屏幕出现用户界面。把鼠标移到T ex tl文本框并单击，输入分数。然后,单 击“开始”命令按钮,系统执行Co mmandl_Click事件过程。执行结果如图3.3.1 所示。单击标题为“结束”的命令按钮，执行Co nimand2 _Click事件过程，结束程序的执行。图3.3.1第1题的执行结果2.求一元二次方程ax2+bx+c=0 的根。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-2 所示。表3-3-2第2题的属

33、性设置控件名称属性名屈性值EormlC aption求一元二次方程的根Command1C aption开始Command2C aption结束(2)程序代码由中学数学知识知道，求一元二次方程的根的公式为：二 扬L2 2a编程时要考虑如下各种情况：当 a=0 时，方程不是二次方程；当 b2-4ac=0 时,有两个相同的实根：占，=-上-；12 2a2 0CisDim a!,b!,c!,disc!,x l!,x 2!,realp art!,imagp art!a 二Inp utBo x(请输入方程的系数a：)b=Inp utBo x(请输入方程的系数b：)c 二Inp ulBo x(请输入方程的系

34、数c：)当 b2-4ac 0 时,有两个不同的实根：.A:-b 2 -4ac.2 a 当 b2-4ac 0 时,有两个共柄复根：X,2=-Private S ub Co mmand1 _Click()b,J44c-b2.-12a-2 aPrint:PrintPrint T ab(1 0);输入方程的系数为：；a=；a;b=;b;cPrintIf Abs(a)=0.0 0 0 0 0 1 T henPrint T ab(1 5);方程不是一个二次方程！E lsedisc=b 2-4*a*cIf Abs(disc)0.0 0 0 0 0 1 T henx l=(b+S qr(disc)/(2 *a

35、)x 2 =(b-S qr(disc)/(2 *a)Print T ab(5);方程有两个实根：Print T ab(1 8);x l:；x lPrint T ab(1 8);x 2=“；x 2E lself disc 0.0 0 0 0 0 1 T henrealp art=-b/(2 *a):imagp art=S qr(-disc)/(2 *a)Print T ab(5)方程有两个虚根：”；Print T ab(1 8);x l=;realp art;+；imagp art;iPrint T ab(1 8);x 2=；realp art;-；imagp art;E nd IfE ncl

36、IfE nd S ubPrivate S ub Co mmand2 _Click()E ndE nd S ub注意，程序中的条件“fabs条)=0.0 0 0 0 0 1w和“fabs(disc)=0.0 0 0 0 0 1 分别用来判断 a 和 disc的值是否为0。因为实数在计算机计算和存储时会有微小的误差，若 用“a=0”和“d i s c=0”来判断a和 d i s c 是否为0,则会由于误差导致条件不成立，无法得到正确的21运行结果。(3)运行情况运行程序后，单 击“开始”命令按钮，执 行 Commandedick事件过程。执行时，在InputBox框中输入a、b 和 c 三个系数。

37、图 3.3.2 图 3.3.5 显示了不同系数输入的执行结果。图 3.3.2执行结果(a)图 3.3.3执行结果(b)求一元二次方程的根-1!x|输入方程的系数为：a=2 b=3 c=4方程有两个虚根：xl=-.75+1.198958 ix2=-.75-1,198958 i:并始J 结束8 13.3.4执行结果(c)3 53.给定函数y=2 cos x+1X2-4x+5的值。(要求使用Case语句)解答：(1)界面设计和属性设置图 3.3.5 执行结果(d)1 =x 22=x 4,从键盘上输入x 的值，求 y4=x =1 A n d x =5 Th e nS e l e c t C a s e

38、 xC a s e I s 2y =3*x -5C a s e I s 4y =2*C o s(x)+1C a s e I s =0 Th e nf 二 U C a s e (I n p u t B o x (输入运算标志：+C h r(13)&C(计算周长)+C h r(13)&A _(计算面积)+C h r(13)&“B _(两者都计算)提示信息分多行显示S e l e c t C a s e fC a s e CP ri n t Ta b(10);半径 r=;r;圆 周 长 r*2*p iC a s e A P ri n t Ta b(10);半径 r二”；r;圆面积=；r 2*p iC

39、 a s eP ri n t Ta b(10);半径 厂；r;圆周长二；r*2*p iP ri n t Ta b(10);半径厂；r;圆面积二；r-2*p iC a s e E l s eP ri n t Ta b(1 8)输入的运算标志错!E n d S e l e c tE l s eP ri n t Ta b(1 8)半径不能是负数！E n d I fE n d S u bP ri v a t e S u b C o m m a n d 2_C l i c k()E n dE n d S u b(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执 行 C o m m a n d l

40、 _C l i c k 事件过程。按I n p u t B o x 对话框的提示输入半径r 和运算标志。计算结果在窗体上显示。5.求满足3+22+1?10 0 0 的最小n 值。(要求使用w h i l e W E n d 语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5 所示。表3-3-5第5题的属性设置控件名称属性名属性值24F ormlCaption求 满 足 l*2+22+-+if 21000的最小n值Command1Caption开始Command2Caption结束(2)程序代码Private Sub Command1 C l

41、ick()Dim n%,s&n=0:s=0While s 4=1000n=n+1s=s+n 2WendPrint:P rin t:PrintPrint Tab(8);满足厂2+22+rf 21000的最小n值为：；nEnd SubPrivate Sub Command2_Click()EndEnd Sub6.输入若干个正实数，个数预先不能确定，求这些正实数之和。(要求分别使用D oW h i l e L o o p 语句和D o U n t i l L o o p 语句)解答：(1)界面设计和属性设置在窗体上建立三个命令按钮。窗体和命令按钮的主要属性设置如表3-3-6 所示。表3-3-6第6题

42、的属性设置控件名称属性名属性值F ormlCaption求正实数之和CommandICaptionDo WhileLoopCommand2CaptionDo Until,LoopCommandsCaption结束程序代码Private Sub Command1_Click（）CisDim a!,s!a=InputBox（输入一个实数：”）Do While a=0s=s+aa=InputBox（输入个实数：”）Loop25Print:PrintPrint T ab(15);”输入的正实数之和为：;sEnd SubPrivate Sub Command2_Click()CisDim a!,s!a=

43、InputBox(“输入一个实数：”)Do Until a =0.0 0 0 0 0 0 0 1Print:Print:PrintPrint Tab(8);圆周率的近似值为：；Sqr(6*s)E nd Su bPriv at e Su b C o mmand2 _C lick()E ndE nd Su b(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执 行 C o mmandl_C lick事件过程。计算结果在窗体上显示。8.由数值计算方法可知，用牛顿迭代法解方程f(x)=0 的迭代公式为：Xn+I=Xn-f(X n)/x)(n=0,1,2,)试用牛顿迭代法求解方程X5-3X2+2X

44、+1=0在 x =0 附近的根。(要求使用D o-L o o p Unt il语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。表3-3-8第8题的属性设置控件名称属性名属性值FormlCaption用牛顿法求方程的根Command1Caption开始Command2Caption结束(2)程序代码根据迭代公式，牛顿迭代法的计算过程为:2 7令n=0,由迭代公式得x x0-f(x0)/f(x0),然后判别I x-x o I 是否小于e (给定精度)。若是，则迭代结束，xi作为方程的近似根；否则，进行下一步。令n=l,由迭代公式得x2=

45、x,-/(x j/f xx-),然 后 判 别 I X2-X,|是否小e 若是，则迭代结束，我作为方程的近似根；否则，由 心求心的值，判断|心一心I。IiI按这样迭代下去，直 到 I x i+L x e (i=0,1,2,)为止。根据上述计算过程可以编写程序为：Private Sub Command1_Click()Dim xO!,xl!xl=0DoxO=xlxl=xO-(xO-5-3*xO-2+2*xO+1)/(5*xO-4-6*xO+2)Loop Until Abs(xl-xO)0.00001Print Tab(1 0)方程的根为：;xlEnd SubPrivate Sub Command

46、2_Click()EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Commandl_Click事件过程。在窗体上显示计算结果。9.求 S=i _ J _+_ L _ _ L+J _ L 的值。2 3 4,99 100解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-9所示。表 3-3-9 第 9 题的属性设置控件名称属性名属性值FormlCaption求 s=l-l/2+l/3-l/4+-+l/99-l/100 的值Command1Caption开始Command2Caption结束(2)程序代码Private Su

47、b Command1_C1ick()Dim i%,s!,sign%sign=1:s=028F o r i =1 To 1 0()s =s +s ign*s ign=-s ignN ex t iPrint:Print:PrintPrint Tab(1 8);s 的值为:E nd Su bPriv at e Su b C o mmand2 _C lick()E nd Su b(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Commandl_Click事件过程。窗体显示计算结果。1 0.求 100到 999中的水仙花数。所谓水仙花数是指一个三位数，它的各位数字的立方之和等于该数。例如，因

48、为153=I3+53+33,所 以 153是水仙花数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-10所示。表3-3-10第10题的属性设置控件名称属性名属性值求水仙花数Command1Command2(2)程序代码Priv at e Su b C o mmand1 _C lick()D im i%,a%,b%,c%PrintPrint Tab(5);1 0 0 9 9 9 之间的水仙花数为:F o r i=1 0 0 To 9 9 9a=i 1 0 0b=(i-a*1 0 0)1 0c=i-a*1 0 0 -b*1 0If i=a 3+b

49、3+c 3 ThenPrint Tab(1 0);iE nd I fN ex t iE nd Su bPriv at e Su b C o mmand2 _C lick()29EndEnd Sub(3)运行情况执行结果如图3.3.7 所示。图3.3.7第10题的执行结果1 1.求 1000之内的所有完数。所谓完数是指一个数恰好等于它的所有因子之和。例如,因为6=1+2+3,所以6 为完数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3 7 1 所示。表3-3-1 1第11题的属性设置控件名称属性名属性值F ormlCaption求完数Comman

50、dICaption开始Command2Caption结束(2)程序代码Private Sub Command1_C1ick()Dim i%,j%,s%PrintPrint Tab(5);“11000 之内的完数为:F or i=1 To 1000s=0F or j=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()End30End Sub运行情况程序执行结果如图3.3.8 所示。图3.3.8第11题的执行结果1 2.在窗体上输出形如以下图