Do循环结构

一、前测型Do…Loop循环
2．说明： （1）当条件为True时执行循环,用Do While； 当条件为True时退出循环,用Do Until。 对同一问题While和Until本质上没有区别 ， 只要将条件反过来写，就可以将Do While和Do Until互换， 即：Do While SDo Until Not S； 或：Do Until S Do While Not S
Computer Center . 9/9/2014
一、前测型Do…Loop循环
（ 3） Do Until … Loop ：当条件为假时执行循环 体，直到条件为真时，终止循环。换句话说，
Do…Until语句是只要当某个条件为假的时候 就重复一块代码。“ Until 条件”大概等于 “ Not 条件”即条件为 False的时候进入循 环。
1．格式：
Do While <条件表达式> [<语句组1 >] [Exit Do] [<语句组1 >] Loop
Computer Center . 9/9/2014
一、前测型Do…Loop循环
Do Until <条件表达式> [<语句组1 >] [Exit Do] [<语句组1 >] Loop
Computer Center . 9/9/2014
Computer Center . 9/9/2014
二、后测型Do…Loop循环
1 、与 Do while/until … Loop 程序的主要区别就是： 后测型循环不受任何条件限制，直接进入循环。执 行循环体后再对循环条件进行测试，当满足循环条 件时循环，若不满足循环条件，则立刻结束循环， 接着执行循环结构之后的语句。 2、先执行循环体后判断的程序结构至少执行 1次循环。 持别是当循环初值设置不合理时，前测型循环首先 对循环条件进行判断，在不满足循环条件的情况下， 退出循环直接执行Loop语句后的下一条语句、而后 测型循环在执行了1次循环体后才退出循环结构。
Computer Center . 9/9/2014
二、后测型Do…Loop循环
1．格式：
Do [<语句组1 >] [Exit Do] [<语句组1 >] Loop While ＜条件表达式＞
Computer Center . 9/9/2014
二、后测型Do…Loop循环
Do [<语句组1 >] [Exit Do] [<语句组1 >] Loop Until ＜条件表达式＞
一、前测型Do…Loop循环（当型） 二、后测型Do…Loop循环（直到型）
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
一、前测型Do…Loop循环
这种循环是先判断条件，后执行循环体；从 结构上看，它属于当型循环。
如：Do While X<=100和Do Until X>100是等价的。
Computer Center . 9/9/2014
一、前测型Do…Loop循环
（2）Do While … Loop：当条件为真时执 行循环体，条件为假时，终止循环。 VB 遇到这个循环时，它首先判断条件的真假， 如果条件为假，循环内部的语句就不会被 执行， VB 将继续执行关键字 Loop 后面的 第一条语句。如果条件为真，循环里面的 语句则会被一条一条地执行，直到遇到 Loop 语句。 Loop 语句告诉 VB 重复这个过 程，只要 Do While 语句里的条件为真的 话。
Computer Center . 9/9/2014
一、前测型Do…Loop循环
例1：用前测型Do … Loop语句编程计算代数式 1 + 2 + 3 + … + 10wenku.baidu.com值 Dim i %, s % i=1 Do While i<=10 s=s+i i=i+1 Loop Print i, s
Computer Center . 9/9/2014
一、前测型Do…Loop循环
例2：假定有以下循环结构： Do Until（条件） [循环体] Loop 则正确的描述是（ ）
A）如果条件为0，则一次循环体也不执行。 B) 如果条件为0，则至少执行一次循环体。 C) 如果条件不为0，则至少执行一次循环体。 D) 不论条件否为真，至少执行一次循环体。
程序设计基础
Visual Basic语言实现
教师：罗景文
云南师范大学现代教育技术中心
Computer Center . 2009
第三章 结构化程序设计
3.8 Do…Loop语句 3.9 练 习
Computer Center . 2009
§3.8 Do…Loop语句
与 For…Next 循 环 相 比 ,Do…Loop 循 环 具有更强的灵活性，它可以根据需要决定： 是条件满足时执行循环体，还是一直执行 循环体直到条件满足为止。Do循环有两种 语句格式。
Computer Center . 9/9/2014
一、前测型Do…Loop循环
1和0在计算机中分别代表真和假，在循环 中,非0即真，针对此循环结构来说，( )中的条 件布尔值不是0它就会一直执行下去；相反，则 不会执行。
布尔值 0: 一次都不执行 1: 一直执行下去
条件用布尔值判断时，非零代表True,零 代表False ，就是条件为0的时候才进入循环, 所以只有“B”符合要求。

Computer Center . 9/9/2014
二、后测型Do…Loop循环
Dim s!, t!, i# S=0 T=1 i=1 Do s=s+t i=i+1 t=1/i Loop While t > 0.00001 Text1.text = s
Computer Center . 9/9/2014
Computer Center . 9/9/2014
二、后测型Do…Loop循环
1 1 例3：计算分数序列 S 1 ...... 的和，直到最 2 3
后项小于0.00001。
【分析】：
1、经观察问题中后一项的分母是前 一项分母加1，即：i=i+1; 2、此问题没有指定求和的项数，但要 求第t项小于0.00001，因此，循环条件 为t>=0.00001
Thank you !
云南师范大学现代教育技术中心
Computer Center . 9/9/2014
（ 4 ）如果想提前退出循环，可用 Exit Do 语句。
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
二、后测型Do…Loop循环
例2：用后测型Do … Loop语句编程计算代数式 1 + 2 + 3 + … + 10的值 Dim i %, s % i=1 Do s=s+i i=i+1 Loop While i<=10 Print i, s
Computer Center . 9/9/2014
二、后测型Do…Loop循环
2．说明：
①Do … Loop While条件：当条件为True时继续 执行循环，若条件为假，终止循环。 Do … Loop Until条件：当条件为Flase时继续 执行循环，直到条件为真时，终止循环。 ②对同一问题，While和Until所对应的条件互为反 条件！在条件被测试之时，VB至少已经执行了一 次循环里的语句 ③如果想提前退出循环，可用Exit Do语句。
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014
Computer Center . 9/9/2014