Do...Loop语句

使用循环语句循环用于重复执行一组语句。

循环可分为三类：一类在条件变为False之前重复执行语句，一类在条件变为True之前重复执行语句，另一类按照指定的次数重复执行语句。

在VBScript 中可使用下列循环语句：∙Do...Loop：当（或直到）条件为True时循环。

∙While...Wend：当条件为True时循环。

∙For...Next：指定循环次数，使用计数器重复运行语句。

∙For Each...Next：对于集合中的每项或数组中的每个元素，重复执行一组语句。

( 以上语句将在下面内容中详细介绍）使用Do 循环可以使用Do...Loop语句多次（次数不定）运行语句块。

当条件为True时或条件变为True之前，重复执行语句块。

当条件为True 时重复执行语句While关键字用于检查Do...Loop语句中的条件。

有两种方式检查条件：在进入循环之前检查条件（如下面的ChkFirstWhile 示例）；或者在循环至少运行完一次之后检查条件（如下面的ChkLastWhile 示例）。

在ChkFirstWhile 过程中，如果myNum 的初始值被设置为9 而不是20，则永远不会执行循环体中的语句。

在 ChkLastWhile 过程中，循环体中的语句只会执行一次，因为条件在检查时已经为False。

Sub ChkFirstWhile() Dim counter, myNum counter = 0 myNum = 20 Do While myNum > 10 myNum = myNum - 1 counter= counter + 1 Loop MsgBox "循环重复了 " & counter & " 次。

" EndSub Sub ChkLastWhile() Dim counter, myNum counter = 0 myNum = 9 Do myNum = myNum - 1 counter = counter + 1 LoopWhile myNum > 10 MsgBox "循环重复了 " & counter & " 次。

do loop循环语句doloop循环语句是一种常见的编程构造，用于定义由一系列指令和条件驱动的重复动作。

它通常包含一个循环开始标签（“do”）和一个循环结束标签（“loop”），在这之间包含多个控制表达式。

do loop循环语句可通过while循环、for循环和其他循环语句来实现，但其优势在于在循环体中插入新行时不需要更改循环变量或条件。

do loop循环语句的最大优势在于它的灵活性。

代码中的大量指令可以被“压缩”到简短的循环中，也可以通过do loop来“延长”这些指令，以提高性能。

此外，添加新语句时不需要更改原有循环语句，只需要在do loop循环中添加新行即可。

在实际编程中，do loop循环语句的实现过程包括：步骤一，定义循环变量，即要改变的量的值；步骤二，定义循环条件，即在哪种情况下退出循环；步骤三，定义循环体，即要重复执行的指令；步骤四，定义循环步长，即循环变量的步长。

实现do loop循环语句的例子如下：dox=x+1while x<10上面的循环中，循环变量x被初始化为0，循环条件为x<10，即当x小于10时，继续执行do loop循环；循环体为x=x+1，即每次循环变量x的值加1；步长为1，即每次循环变量x的值加1。

在实际编程中，do loop循环语句还可以用于代替递归算法，实现更有效的计算结果。

例如，假设编写一个函数用于计算n的阶乘，其中n为大于2的自然数，可以使用递归算法实现：def factorial(n):if n == 1:return 1else:return n * factorial(n-1)同样，也可以使用do loop循环语句实现：def factorial(n):result = 1doresult = result*nn--while n>=1return resultdo loop循环语句的另一个实用功能在于实现循环内容可以“跳转”，即在语句中添加“continue”和“break”指令，实现指定条件下跳出或重新开始循环。

VB6.0的⼏种循环语句及条件语句⼀、循环语句---------------------------------------------------------------------------------------------- 可以参考： 1.While...Wend语句 只要指定的条件为 True，则会重复执⾏⼀系列的语句。

语法While condition [statements] ..Wend 2.Do...Loop语句 2.1 第⼀种⽤法 ⽤ Do 循环重复执⾏⼀语句块，且重复次数不定。

Do...Loop 语句有⼏种演变形式，但每种都计算数值条件以决定是否继续执⾏。

如同 If...Then condition 必须是⼀个数值或者值为 True（⾮零）或 False（零）的表达式。

在下⾯的 Do...Loop 循环中，只要 condition 为 True 就执⾏ statements。

Do While condition statements ..Loop 2.2 第⼆种⽤法 Do...Loop 语句的另⼀种演变形式是先执⾏语句，然后在每次执⾏后测试 condition。

这种形式保证 statements ⾄少执⾏⼀次：Do statementsLoop While condition 2.3 注:其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False ⽽不是 True，它们就执⾏循环。

----循环零次或多次Do Until condition statementsLoop----⾄少循环⼀次Do statementsLoop Until condition 3.For...Next语句 在不知道循环内需要执⾏多少次语句时，宜⽤ Do 循环。

但是，在知道要执⾏多少次时，则最好使⽤ For...Next 循环。

与 Do 循环不同， For 循环使⽤⼀个叫做计数器的变量，每重复⼀次循环之后，计数器变量的值就会增加或者减少。

Print s
End sub
实践一、1、完成以下程序填空： 用do循环语句的两种格式求1+2+3+…100的和
Private sub Form_click()
Dim n as Integer
Dim s as integer
s=0
n=1 Do
until
__n_>_1_0__0_
_s_=_s_+_n____
复习回顾：For……Next循环
注意：For循环语句是用来解决循环次 数事先能确定的问题的，当循环次数未 知时，就要用到循环语句的另一种语句 D0…loop循环语句。
Do…loop语句
1. 当型循环
Do While <条件表达式> 循环体
Loop
Do 循环体
Loop While <条件表达式>
先判断后执行
_s_=__s_+_n___
_n_=__n_+_1___
Loop
Print s
End sub
Private sub Form_click()
Dim n as Integer
Dim s as integer
s=0
n=1
Do
_s__=_s_+__n__
__n_=__n_+__1_
Loop while
_n__<_=_1__0_0
循环体
Yes
条件表达式
成立？
No
特点：条件表达式不成立执行循环体内容
实践一、1、完成以下程序填空： 用do循环语句的两种格式求1+2+3+…100的和
Private sub Form_click()