《循环结构续4文档资料》由会员分享，可在线阅读，更多相关《循环结构续4文档资料（11页珍藏版）》请在装配图网上搜索。
1、循环结构程序(续3)2008年4月7日1、复习：ForNext循环结构格式：特点：循环次数已知，可由初始值、终止值、步长值 共同确定。循环次数=Int(终止值-初始值)/步长值+1For 循环变量=初始值 To 终止值 Step 步长值 循环体 Next 循环变量 正循环：初始值=终止值，步长为负值。循环嵌套：就是在循环体中又嵌有循环的结构，循环体外的循环称为外循环，循环体内的循环称为内循环。如果程序需要，循环嵌套可以有多重，重数没有限制，但内、外循环不能相互交叉。问题：求使不等式 成立的n值。分析：要使不等式成立，也就是需要确定出 多少项相加，其和才大于12，因项 数未知，不能用ForNex
2、t循环结构 求解。11111+12234n 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
3、h8844430 n=n+1 循环计数器 h=2*h Loop Text2.Text=n End Sub请看Do WhileLoop循环结构本问题与前面接触过的问题不同，虽然也是循环结构，但循环的次数不确定不确定，但可以用用一个条件一个条件来判断是否结束循环。格式：Do While 循环条件 循环体 Loop 流程图执行循环体开始计算“条件”值条件为真吗？结束NoYes任务：1、完善程序，根据世界人口报告预测，2007年底的世界人口约为65.5亿，如果以每年1.2%的速度增长，多少年后世界人口达到或超过70亿。建立数学模型：设人口基数为P0，年均增长率为r，到第n年的人口数为P，则 P=P0(
4、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 While p=n=Loop Print 从现在起，再经过“&Cstr(n)&年，中国人口将达到或超过15百万。End Sub
循环结构续4文档资料
