Do While… Loop和Do…Loop Until循环

教学目标：

1、正确理解Do…Loop Until循环语句的概念，并掌握其结构。

2、正确理解Do While… Loop循环语句的概念，并掌握其结构。

3、能区别Do…Loop Until后测试循环与Do While… Loop循环的不同点，并能根据问题需要使用恰当的循环语句。

教学重点：Do While… Loop和Do…Loop Until循环的应用。

教学难点：Do…Loop Until后测试循环与Do While… Loop循环的区别

授课地点：

教室

授课方法：[来源:学科网ZXXK]

计算机幻灯片

教学流程：

一、Do While…  Loop循环语句

又称为“当型循环”，即当循环条件成立，才开始循环。

Do While…  Loop前测试循环的语法：

Do  While  <循环条件表达式>

    循环体

    [Exit  Do]

Loop

功能：首先测试循环条件表达式是否成立，若循环条件满足，则进入循环。

说明：若循环没有结束，但程序需要退出循环时，可以使用Exit  Do语句退出循环。

 

例题：编程输出1～5的算术平方根。要求用Do  While…Loop循环语句。

程序代码如下：

Rem 编程输出1～5的算术平方根。

Private Sub Command1_Click()

   Dim x As Long

   x = 1                       ' 循环变量赋初值

   Do While x <= 5     ' 当型循环

      Print Sqr(x)           ' 输出

      x = x + 1         ' 循环变量根据条件增加

   Loop

   Print "循环结束后循环变量x的值为"; x

End Sub

 

循环的详细执行过程如下：

（1）首先，x的值为1；

（2）判断当前循环条件表达式是否成立，如果成立，则执行循环体；

（3）此时成立，则执行循环体；

（4）在循环体内部，对x的值进行了加1运算，此时的x的值为2；

（5）程序跳至（2），重新判断循环条件是否成立。

（6）当循环语句执行了5次后，此时循环变量x的值为6，当跳至步骤（2）时，不满足循环条件了，此时循环结束。

说明：

（1）x作为循环变量，首先要赋初值；

（2）循环变量在循环体内部需要根据条件进行更改。

 

二、Do…Loop  Until循环：

又称为“直到型循环”，即直到循环条件成立，才结束循环。

Do…Loop  Until后测试循环的语法：

Do

    循环体[来源:学&科&网]

    [Exit  Do]

Loop  Until  <循环条件表达式>

功能：首先执行一次循环体，再测试循环条件表达式是否成立，若循环条件满足，则退出循环。

说明：若循环没有结束，但程序需要退出循环时，可以使用Exit  Do语句退出循环。

 

例题：编程输出1～5的算术平方根。要求用Do…Loop  Until循环语句。

程序代码如下：

Rem 编程输出1～5的算术平方根。

Private Sub Command1_Click()

   Dim x As Long

   x = 1                       ' 循环变量赋初值

   Do

      Print Sqr(x)           ' 输出

      x = x + 1         ' 循环变量根据条件增加

   Loop  until x> 5     ‘ 直到型循环

   Print "循环结束后循环变量x的值为"; x

End Sub

 

循环的详细执行过程如下：

（1）首先，x的值为1；

（2）执行一次循环体；

（3）在循环体内部，对x的值进行了加1运算，此时的x的值为2；

（4）判断当前循环条件表达式是否成立，如果不成立，则执行循环体；此时不成立，则执行循环体；

（5）程序跳至（2）；

（6）当循环语句执行了5次后，此时循环变量x的值为6，当跳至步骤（4）时，满足退出循环条件了，此时循环结束。

说明：

（1）x作为循环变量，首先要赋初值；

（2）循环变量在循环体内部需要根据条件进行更改。

 

三、区别：【教师引导学生归纳两种方法的异同。】

 

前测试循环是首先判断条件，再根据循环条件选择是否进行循环，因此可能一次循环都不执行；

后测试循环是首先执行一次循环体后，再判断循环条件，因此至少会执行一次循环。

 

四、课堂作业：〖教师结果性评价〗

设计一个”猜数字测运气”的游戏程序。

程序功能：每次让计算机随机生成一个1～9之间的整数，然后用户猜一个数，直到猜对为止退出循环。

幸运值表：（说明：S变量是总共的猜测次数）

 Select Case s

    Case 1

      MsgBox ("猜" & s & "次就对了，你真是超级幸运星！")

    Case 2, 3

      MsgBox ("猜" & s & "次就对了，你是一个幸运星！")

    Case 4, 5

      MsgBox ("猜" & s & "次就对了，看来你运气还不错！")

    Case 6, 7

      MsgBox ("猜了" & s & "次才对，看来今天运气一般！")

    Case Is >= 8

      MsgBox ("猜了" & s & "次才猜到，看来今天的运气不是很好！")

  End Select

 

【教学后记】

两种循环本质相似，授课时注意比较，有利于大家理解和掌握。