循环结构续4课件_第1页
循环结构续4课件_第2页
循环结构续4课件_第3页
循环结构续4课件_第4页
循环结构续4课件_第5页
已阅读5页，还剩6页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

循环结构程序(续3)2008年4月7日1、复习：For—Next循环结构格式：特点：循环次数已知，可由初始值、终止值、步长值

共同确定。

循环次数=Int(终止值-初始值)/步长值+1For循环变量=初始值

To

终止值

Step

步长值

⋮循环体

⋮Next循环变量正循环：初始值<=终止值，步长为正值。

逆循环：初始值>=终止值，步长为负值。

循环嵌套：就是在循环体中又嵌有循环的结构，循环体外的循环称为外循环，循环体内的循环称为内循环。如果程序需要，循环嵌套可以有多重，重数没有限制，但内、外循环不能相互交叉。举例：假设有一张厚度为xmm，面积足够大的纸，将它不断对折。试问对折多少次后，其厚度可达珠穆朗玛峰的高度(8844.43m)？分析：设对折后的纸的厚度为hmm，计数为n。在没有对折时，纸厚为xmm，每对折一次，其厚度是上一次的2倍，在未达到8848m时，重复进行对折。

程序界面设计：程序代码：

PrivateSubCommand1_Click()DimhAsSingle,nAsIntegern=0'对折次数h=Val(Text1.Text)'纸的厚度

DoWhileh<8844430n=n+1'循环计数器h=2*h

LoopText2.Text=n

EndSub请看⑵DoWhile……Loop循环结构

本问题与前面接触过的问题不同，虽然也是循环结构，但循环的次数不确定，但可以用一个条件来判断是否结束循环。

格式：

DoWhile循环条件

循环体Loop任务：1、完善程序，根据世界人口报告预测，2007年底的世界人口约为65.5亿，如果以每年1.2%的速度增长，多少年后世界人口达到或超过70亿。

建立数学模型：

设人口基数为P0，年均增长率为r，到第n年的人口数为P，则

P=P0×(1+r)n

对于本问题，则为P=65.5×(1+1.2%)n程序代码：

PrivateSubForm_Click()

Dim

pAsDouble,rAsSingle,nAsInteger

p=64.647r=0.012n=0DoWhilep<70

p=p*(1+r)n=n+1Loop

Print"从现在起，再经过“&Cstr(n)&"年，世界人口将达到或超过70亿。

EndSub2、编写程序，求2*4*6*8*……*200之积。3、完善程序：据媒体报道，2005年底中国人口约为13.04百万，年均增长率约为6‰，问多少年后，中国人口将达到或超过15百万？

PrivateSubForm_Click()

DimpAsDouble,rAsSingle,nAsInteger

p=r=n=0DoWhilep

人人文库> 全部分类> 行业资料 > 信息产业

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论