《循环结构续》PPT课件.ppt

循环结构程序(续3),2008年4月7日,1、复习：ForNext循环结构,格式： 特点：循环次数已知，可由初始值、终止值 、步长值 共同确定。 循环次数=Int(终止值-初始值)/步长值 +1,For 循环变量=初始值 To 终止值 Step 步长值 循环体 Next 循环变量,正循环：初始值=终止值，步长为负值。 循环嵌套：就是在循环体中又嵌有循环的结构，循环体外的循环称为外循环，循环体内的循环称为内循环。如果程序需要，循环嵌套可以有多重，重数没有限制，但内、外循环不能相互交叉。,问题 ：求使不等式 成立的n值。 分析：要使不等式成立，也就是需要确定出 多少项相加，其和才大于12，因项 数未知，不能用ForNext循环结构 求解。,2、Do循环结构,Do While 循环条件表达式 循环体 Loop,举例：假设有一张厚度为xmm，面积足够大的纸，将它不断对折。试问对折多少次后，其厚度可达珠穆朗玛峰的高度(8844.43m)？ 分析：设对折后的纸的厚度为hmm，计数为n。在没有对折时，纸厚为xmm，每对折一次，其厚度是上一次的2倍，在未达到8848m时，重复进行对折。 程序界面设计：,程序代码： 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,流程图,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 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 Wh