课题:DO/LOOP 循环教学目标: 1、理解循环的概念 2、掌握 DO/LOOP 循环的语法使用规则重点:掌握 DO/LOOP 循环的语法使用规则教学过程:一、引入 Fox……Next 循环是在明确知道循环次数的情况下使用,但在现实中有时并不知道循环的次数,所以只能告诉计算机条件,让计算机去判断执行循环,直到条件满足时结束循环。 例如:假设现在中国的人口是 12.3 亿,如果我国每年人口以平均 1.5%的速度增长,问多少年后我国人口达到或超过 15 亿? 在求解这类问题的时候虽然你能计算出每年增长的人口数,但你不知道要过几年,所以无法使用 Fox……Next 循环,为此必须使用下面的循环结构.二、授新课 (1).Do While……Loop 循环 格式: Do While 条件 循环体 Loop ***说明:这是一种“当型循环”,意为当条件满足时执行循环体,否则不执行,所以它是先判断后执行. (2).Do Loop……While 循环 格式: Do 循环体 Loop While 条件 ***说明:这也是一种“当型循环”,也是意为当条件满足时执行循环体,所以它是先执行后判断.(3).Do ……Loop Until 循环 格式: Do 循环体 Loop Until 条件 ***说明: ① 这是一种“直到型循环”,意为直到条件满足时才结束循环体,否则继续执行,它是先执行后判断.三、学生练习写出下列程序的运行结果Private Sub Command1_Click()s = 1: i = 1Do While i <= 5s = s * ii = i + 1LoopPrint sEnd SubPrivate Sub Command2_Click()s = 1: i = 1Dos = s * ii = i + 1Loop Until i > 5Print sEnd SubPrivate Sub Command3_Click()s = 1: i = 1Doi = i + 1s = s * iLoop Until i > 5Print sEnd SubPrivate Sub Command4_Click()a = 1: b = 1Do While a + b <= 10a = a + 2b = b * 2LoopPrint a, bEnd SubPrivate Sub Command5_Click()a = 1: b = 1Do While a + b <= 10a = a + 2b = b * 2Print a, bLoopEnd SubPrivate Sub Command6_Click()x = 3: y = 64Dox = x + 3Print xLoop Until x > Sqr(y)End Sub注意:循环体中语句顺序的改变可能会影响程序的运行结果。 四、上机实习 假设现在中国的人口是 12.3 亿,如果我国每年人口以平均 1.5%的速度增长,问多少年后我国人口达到或超过 15 亿? 五、小结