《最新循环结构续4PPT课件.ppt》由会员分享，可在线阅读，更多相关《最新循环结构续4PPT课件.ppt（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、循环结构续循环结构续41、复习：ForNext循环结构格式：特点：循环次数已知，可由初始值、终止值、步长值 共同确定。循环次数=Int(终止值-初始值)/步长值+1For 循环变量=初始值 To 终止值 Step 步长值 循环体 Next 循环变量任务：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
2、 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 Sub2、编写程序，求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