第14课 Do-Loop循环教学目标：
掌握Do /Loop循环语句的格式、流程图及执行过程
知道当型循环和直到型循环的区别
运用所学Do /Loop循环语句编写程序
教学重点：
2、3
教学难点：
运用所学Do /Loop循环语句编写程序
会分析Do While/Loop循环的执行过程
教学过程：
【新课引入】
对于for/next循环语句，他的循环体执行次数我们是事先就知道的，而对于一些问题，有时是无法事先知道循环题的执行次数，例如：求1+2+3+……N<1000中N的最大值。对于这种问题，我们用前面的for/next语句就无法实现，所以今天我们就来介绍一下另外一种循环语句Do /Loop循环，Do /Loop循环有两种格式，一种是当型循环一种是直到型循环。
一、当型循环
1、格式
DO While <条件>
[<循环体>]
Loop
2、Do While/Loop流程图
3、Do While/Loop执行过程
a 执行While语句，判断“条件”是否成立
b 如果“条件”成立，就执行循环体；否则，转到d
c 执行Loop语句，转到a
d 执行Loop语句下面的语句
[例题]编程： 求1+2+3+……n <1000中n 的最大值
1、分析算法
2、画流程图
3、编程实现
Private Sub Command1_Click()
Dim n, s As Integer
s = 0
n = 0
Do while s<1000
n = n + 1
s = s + n
Loop
Print n - 1
End Sub
[练习1]编程：求2+4+6+……N<2000(N为偶数)中N的最大值
二、直到型循环
1、格式
DO
[<循环体>]
Loop until <条件>
2、Do /Loop until 流程图

3、Do /Loop until执行过程
a 执行循环体
b 判断条件是否成立,如果“条件”成立，就执行Loop语句下面的语句；否则，转到a
[思 考]当型循环和直到型循环的区别
学生回答
教师点评
[练习2] 求 2+4+8+……2n>=1000的n的最小值
学生尝试
教师点评
【实践运用题】2000年我国人口数约为13亿，如果每年的人口自然增长率为1.5%，那么多少年后我国人口将达到或超过15亿？
学生尝试
演示学生成果
学生评价
【能力提高题】实践指导书P52页编程题第1题
三、教师总结本节课的知识点及注意点