循环结构续循环结构续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 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