4.3 DO循环语句 课件（19张幻灯片）

课件19张PPT。“折纸游戏”在同一方向上把一张纸对折起来有什么技术含量？其实这一看似简单得要命的动作非常复杂。任何人都可以轻松对折两次、三次、四次，但是你觉得你能折多少次？
要求：不得借助于任何外力，手工对折，直到你的极限为止，并记录你对折了多少次？
【游戏初体验】在完成游戏的同时，请完成下面的问题：
1、一张普通的办公用纸，它的厚度大约有0.1毫米，你能对折几次，请问你对折之后的纸张的厚度是多少？可以用什么方法计算？
2、请问在理想状态下，你需要对折几次可以达到自己的身高？利用for循环是否是最好的？【游戏再战】
时间限制：
1 分钟山东省华侨中学 焦恩龙DO循环语句★作用：一般用于不知道循环次数
★DO 循环语句的一般格式：DO循环语句DO WHILE 条件表达式

语句块（循环体）
LOOP流程图：开始计算条件表达式结果为真执行循环体中的语句块结束YN【小试牛刀】编程实现对折几次后可以达到自己的身高
请问在理想状态下，你需要对折几次可以达到自己的身高？
Dim height, h As Double
Dim cnt As Integer
height = ‘请注意输入的单位，本处应该为自己的身高
h = 0.104 ‘纸张的厚度，单位为毫米
cnt = 0 ‘统计对折次数
Do While （ ）
cnt = cnt + 1
h = （ ）
List1.AddItem "第" + Str(cnt) + "次对折后的厚度" + Str(h)
Loop
Text1.Text = Val(cnt)
【永攀高峰】
（在学习网站上完善程序，提交）利用DO语句完成纸张对折珠穆朗玛峰高度需要的次数，完善下面程序并在VB里面实现
?
Dim height, h As Double
Dim cnt As Integer
height = 8844.43 ‘8844.43米
h = 0.104 ‘纸张的厚度，单位为毫米
cnt = 0 ‘统计对折次数
Do While （ ）
cnt = cnt + 1
h = （ ）

List1.AddItem "第" + Str(cnt) + "次对折后的厚度" + Str(h)
Loop
Text2.Text = Val(cnt)
时间限制：
2 分钟【庖丁解牛、学习新知】1、百万富翁养成记
2016年度有个网络热词。源于中国首富王健林说：“先定一个小目标，我先挣它一个亿！”这个看似无法实现的目标，他已经实现了，而我们也可以先给自己定个小目标，：“先存一百万”。
存款方式：第一天存款100元，以后每天都比前一天多存1%，问何时能够存够100万。（不计利息，不考虑存款过程中产生的小数部分）
2、大作家养成记
别去羡慕那些大作家，他们曾经和你一样不想动笔。如果我们都有每天坚持书写的习惯，并且将写作的文字保留存档，你何时可以出版自己的第一部专著呢？
假设第一天我们可以书写100字文章，以后每天坚持写作，并且每天比前一天都多写1%，那我们的第一部百万字专著何时完成。（不考虑写作过程中产生的小数部分）
3、健康奔月行动
1992年世界卫生组织在经过大量的科学研究的前提下提出：最好的运动是步行。清华的校训是自强不息，厚德载物，可是所有清华大学的学生，还有一句深根于心的另外一个校训，什么呢?为祖国健康工作50年。
如果我们保持身体健康，并且可以天天坚持，我们可以用多久跑步到月球呢？
假设第一天我们跑步500米，以后的每天都比前一天多跑1%，历时多久可以跑步跑到月球。（地月距离为38.4万千米）
时间限制：
5 分钟【随堂练习、夯实基础】1．以下程序的运行结果（）
Dim a As Integer
a=1
Do While a<=10
a=a+2
Loop
Print a;
A、10 B、11
2、仔细观察下面两个程序，你发现了什么问题（ ）
A、x=0
s=0
Do While s<=20
s=s+x
Loop
Print x
B、a=5
b=10
Do While a a=a+1
b=b-1
Loop
Print a,b
这种现象我们称为“死循环”，即程序会无休止的运行，此时可以利用“Ctrl+Break”组合键终止程序运行。由此可以看出用DO语句实现循环时，为了保证循环能够正常退出，循环体中必须有改变条件变量值的语句，避免出现“死循环”。 Do与for的区别For 循环变量=初值 to 终值 step 步长
循环变量
Next 循环变量Do while 条件表达式
循环体
loop已知
次数=（终值-初值）/步长+1的整数未知【总结提升】1．??循环次数：
次数已知——一般采用FOR语句实现
次数未知——一般采用DO语句实现
2．??进行循环的条件：
FOR语句——由循环终值控制
DO语句——循环体中必须有改变循环条件的语句