vb第5循环结构程序设计.pptVIP

心理专家与经济学家会问的问题 想象一下，如果有一张足够大、足够柔韧的纸，把它折叠42次，会产生什么效果？你觉得会有多高？一个冰箱？一层楼？还是一栋摩天大厦？ 一张厚度0.1毫米的纸，折叠42次就可以厚到43万公里———超出了地球到月球38万公里的距离 5-0循环折纸问题 一张厚度0.1毫米的纸，折叠多少次就可以达到或超过珠穆朗玛峰的8848米的高度？ 5-0循环折纸问题 一张厚度0.1毫米的纸，折叠 27 次就可以达到或超过珠穆朗玛峰的8848米的高度？ 其他常见的循环问题 求累加和 1＋2＋3＋... ＋100 使用计算器加数用于运动会累计分数或商店累计营业额等。 5.1循环结构程序设计的概念P102 Loop Structure Programming 循环是指在程序设计中，从某处开始有规律地反复执行某一程序块的现象， 重复执行的程序块称为“循环体”。 VB循环结构语句： Do…Loop While…Wend For…Next 5．2 Do...Loop语句 前测型循环结构与后测型循环结构。 5．2．1 前测当型Do…Loop循环 Front Test Do...Loop Loop 首先判断条件，当条件为真（True）时执行循环体，接着执行Loop 语句, 控制转到Do,再次测试条件……, 当条件为假（False）时，终止循环,执行Loop语句后的语句。 其语法为 Do［While（条件）］ [（循环体语句列）］ Loop 说明： （l）（循环体语句列）是一条或多条命令（循环体），条件为True它们将被重复执行。 求累加和 例5－l 求累加和 1＋2＋3＋... ＋100 （如图 5－2） 。 求累加和 例5－l 求累加和 1＋2＋3＋...＋100（如图 ）。 流程图如图所示 设计步骤如下： 设计窗体界面 命令按钮的Click事件代码； Private Sub command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n = 100 s = s + n n = n + 1 Loop Label2.Caption = 1+2+3+...+l00= s End Sub 5．2．2 后测当型Do …Loop循环 Back Test Do...Loop Loop 首先执行循环体，然后判断条件， 条件为真时执行循环体，直到条件为假时，终止循环。因此执行循环的最少次数为1。 其语法为 Do [（循环体语句列1）］ ［Exit Do］ ［（循环体语句列2）］ Loop ［While（条件）］ 说明： （l）条件为True ,（循环体语句列）将被重复执行 （2） Exit Do通常用于条件判断之后，例如 If…Then Exit Do ，跳转到Loop语句后的语句执行 5．2．1 前测直到型DO…Loop循环 首先判断条件，条件为假时执行循环体，直到条件为真时，终止循环。 其语法为 Do［Until（条件）］ [（循环体语句列）］ Loop 说明： （l）（循环体语句列）将被重复执行直到条件为True 。 例5－l可以改为直到型： Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do Until n 100 s = s + n n = n + 1 Loop Label2.Caption = “1+2+3+...+100 = s End Sub 后测直到型Do …Loop循环 首先执行循环体，然后判断条件。 条件为假时执行循环体，直到条件为真时，终止循环。因此执行循环的最少次数为1。 其语法为 Do [（循环体语句列）］ Loop ［Until（条件）］ 说明： （l） （循环体语句列）将被重复执行直到条件为True 。 计算圆周率pi的近似值： 【例5－3】输入有效数字的位数m(前后两项差值等于10的m负方次)，利用下述公式计算圆周率pi的近似值： 分析：连乘积式各项的规律：设第n项的分母为pn，则第n＋1项的分母为Pn+1= Sqr (2+pn)若设 n项 积为 Sn，则前n+1项乘积为 Sn+1＝2Sn/pn+1 图5－7 计算圆周率的流程图 设计步骤如下： （1）建立应用程序用户界面与设置对象属性(图5－8) Command1的Click事件代码为 Private Sub Command1_Click() Dim m As Integer m = Val(Text1.Text) p = 0#: s =