《最新循环结构续4PPT课件》由会员分享,可在线阅读,更多相关《最新循环结构续4PPT课件(12页珍藏版)》请在金锄头文库上搜索。
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
2、( ) 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