vb第5章循环结构程序设计

《vb第5章循环结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第五章循环结构程序设计心理专家与经济学家会问的问题想象一下，如果有一张足够大、足够柔韧的纸，把它折叠42次，会产生什么效果？你觉得会有多高？一个冰箱？一层楼？还是一栋摩天大厦？一个令人惊奇的问题-折纸问题一张厚度0.1毫米的纸，折叠42次就可以厚到43万公里———超出了地球到月球38万公里的距离0.1*2^42=439804651110.4≈43.9804*104（万）*103（公里）*103（毫米）5-0循环折纸问题一张厚度0.1毫米的纸，折叠多少次就可以达到或超过珠穆朗玛峰的8848米的高度？5-0循环折纸问题一张厚度0.1毫米的纸，折叠27次就可以达到或超过珠穆朗玛峰

2、的8848米的高度？PrivateSubCommand1_Click()d=Val(Text1.Text)limit=Val(Text2.Text)n=0DoWhiled<=limitd=2*dn=n+1LoopText3.Text=nText4.Text=Int(d*100+0.5)/100EndSub其他常见的循环问题求累加和1＋2＋3＋...＋100使用计算器加数用于运动会累计分数或商店累计营业额等。5.1循环结构程序设计的概念P102LoopStructureProgramming循环是指在程序设计中，从某处开始有规律地反复执行某一程序块的现象，重复执行的程序块称为

3、“循环体”。VB循环结构语句：Do…LoopWhile…WendFor…Next5．2Do...Loop语句前测型循环结构与后测型循环结构。5．2．1前测当型Do…Loop循环FrontTestDo...LoopLoop首先判断条件，当条件为真（True）时执行循环体，接着执行Loop语句,控制转到Do,再次测试条件……,当条件为假（False）时，终止循环,执行Loop语句后的语句。其语法为Do［While（条件）］[（循环体语句列）］Loop说明：（l）（循环体语句列）是一条或多条命令（循环体），条件为True它们将被重复执行。计算“条件”的值条件真？执行循环体假真求累

4、加和例5－l求累加和1＋2＋3＋...＋100（如图5－2）。S1=0+1S2=S1+2S3=S2+3S4=S3+4…S100=S99+100S=0+1(0+1)S=S+2(0+1+2)S=S+3(0+1+2+3)S=S+4(0+1+2+3+4)…S=S+100(0+1+2+3+4+…100)S=S+nn=n+1S：累加器,采用累加的方法，存放累加的和（开始为0），n：计数器,存放“加数”，从1开始到100为止。求累加和例5－l求累加和1＋2＋3＋...＋100（如图）。流程图如图所示n←n+1S←S+n输出S当n<=100n←1计数器赋初值S←0累加器赋初值设计步骤如下：

5、设计窗体界面命令按钮的Click事件代码；PrivateSubcommand1_Click()DimsAsInteger,nAsIntegers=0:n=1DoWhilen<=100s=s+nn=n+1LoopLabel2.Caption="1+2+3+...+l00="&sEndSubn←n+1S←S+n输出S当n<=100n←1计数器赋初值S←0累加器赋初值5．2．2后测当型Do…Loop循环BackTestDo...LoopLoop首先执行循环体，然后判断条件，条件为真时执行循环体，直到条件为假时，终止循环。因此执行循环的最少次数为1。其语法为Do[（循环体语句列1）

6、］［ExitDo］［（循环体语句列2）］Loop［While（条件）］说明：（l）条件为True,（循环体语句列）将被重复执行（2）ExitDo通常用于条件判断之后，例如If…ThenExitDo，跳转到Loop语句后的语句执行条件循环体假真5．2．1前测直到型DO…Loop循环首先判断条件，条件为假时执行循环体，直到条件为真时，终止循环。其语法为Do［Until（条件）］[（循环体语句列）］Loop说明：（l）（循环体语句列）将被重复执行直到条件为True。条件循环体假真例5－l可以改为直到型：PrivateSubCommand1_Click()DimsAsInteger

7、,nAsIntegers=0:n=1DoUntiln>100s=s+nn=n+1LoopLabel2.Caption=“1+2+3+...+100="&sEndSub后测直到型Do…Loop循环首先执行循环体，然后判断条件。条件为假时执行循环体，直到条件为真时，终止循环。因此执行循环的最少次数为1。其语法为Do[（循环体语句列）］Loop［Until（条件）］说明：（l）（循环体语句列）将被重复执行直到条件为True。条件循环体假真计算圆周率pi的近似值：【例5－3】输入有效数字的位数m(前后两项差值等于10的m负