《《循环结构续》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《循环结构续》PPT课件.ppt（11页珍藏版）》请在装配图网上搜索。
1、循环结构程序 (续 3) 2008年 4月 7日 1、复 习 ：For Next循 环结 构 格式 ： 特点 ：循环次数已知，可由初始值、终止值 、步长值 共同确定。 循环次数 =Int(终止值 -初始值 )/步长值 +1 For 循环变量 =初始值 To 终止值 Step 步长值 循环体 Next 循环变量 正循环 ：初始 值 =终 止 值 ，步 长为负值 。 循环嵌套 ：就是在循 环 体中又嵌有循 环 的 结 构，循 环 体外的循 环 称 为 外循环 ，循 环 体内的循 环 称 为 内循环 。如果程序需要， 循 环 嵌套可以有多重，重数没有限制，但 内、外循 环 不能相互交叉。 问题 ：求
2、使不等式 成立的 n值。 分析：要使不等式成立，也就是需要确定出 多少项相加，其和才大于 12，因项 数未知，不能用 For Next循环结构 求解。 1 1 1 11 + + 12 2 3 4 n 2、 Do循环结构 Do While 循环条件表达式 循环体 Loop 举例： 假设有一张厚度为 xmm，面积足 够大的纸，将它不断对折。试问对折多 少次后，其厚度可达珠穆朗玛峰的高度 (8844.43m)？ 分析： 设对折后的纸的厚度为 hmm，计数 为 n。在没有对折时，纸厚为 xmm，每对折一 次，其厚度是上一次的 2倍，在未达到 8848m 时，重复进行对折。 程序界面设计： 程序代码 ：
3、 Private Sub Command1_Click( ) Dim h As Single, n As Integer n=0 对折次数 h=Val(Text1.Text) 纸的厚度 Do While h8844430 n=n+1 循环计数器 h=2*h Loop Text2.Text=n End Sub 请看 Do WhileLoop 循环结构 本问题与前面接触过的问题不同，虽然也是 循环结构 ，但循环的次数 不确定 ，但可以 用 一个条件 来判断是否结束循环。 格式： Do While 循 环 条件 循 环 体 Loop 流程图 执 行循 环 体 开始 计 算“条件” 值 条件 为 真
4、吗 ？ 结 束 No Yes 任 务 ： 1、完善程序， 根据世界人口报告预测， 2007 年底的世界人口 约为 65.5亿 ，如果以每年 1.2% 的速度增 长 ，多少年后世界人口达到或超 过 70 亿 。 建立数学模型 ： 设人口基数为 P0，年均增长率为 r，到第 n年的 人口数为 P，则 P= P0 (1+r)n 对于本问题，则为 P=65.5 (1+1.2%)n 程序代码 ： Private Sub Form_Click( ) Dim p As Double , r As Single , n As Integer p=64.647 r=0.012 n=0 Do While p70
5、p=p*(1+r) n= n+1 Loop Print 从 现 在起，再 经过 “&Cstr(n)&年，世界人口将达 到或超 过 70亿 。 End Sub 2、编 写程序，求 2*4*6*8*200 之 积 。 3、完善程序：据媒体 报 道， 2005年底中国人口 约为 13.04百万，年均增 长 率 约为 6 ，问 多少年后，中国人 口将达到或超 过 15百万？ Private Sub Form_Click( ) Dim p As Double , r As Single , n As Integer p= r= n=0 Do While p= n= Loop Print 从 现 在起，再 经过 “&Cstr(n)&年，中国人口将达到或超 过 15百万。 End Sub
《循环结构续》PPT课件.ppt
