08.VBScript循环语句Do...Loop

循环语句在脚本中用于重复执行一组语句。循环语句分为三类：一类是条件变为False之前重复执行语

一类是循环是条件变为True之前重复执行语句，还有一类是按照指定的次数重复执行语句。

在VbScript中可以使用以下循环语句

Do...Loop  当（或直到）条件为True时执行循环

While...Wend 当条件为True时执行循环

For...Next   指定循环次数，使用计数器重复执行语句

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

使用Do循环，当条件为True或变为True之前重复执行语句

Do While 条件表达式

     语句块

Loop

'使用While关键字进入循环之前检查条件，当条件为True时重复执行循环语句

Do 

      语句块

Loop While 条件表达式

'先至少完成一次循环后，使用While关键字检查条件，当条件为True时重复执行循环语句

Do Until 条件

    语句块

Loop

'使用Until关键字在进入循环之前检查条件，当条件为False时重复执行语句

Do 

    语句块

Loop Until 条件表达式

'至少完成一次循环后，使用Untile关键字检查条件，当条件为False时重复执行循环语句

Exit Do语句用于退出循环。因为在某些特殊情况下需要退出循环（例如避免死循环），所以可在If...Then...Else语句的True语句块中加入Exit Do语句，当条件为True时退出循环，条件为False则继续循环语句。下面是一个例子：

Sub ExitExample() 

 Dim counter, myNum 

 counter = 0

 myNum = 9

 Do Until myNum = 10

     myNum = myNum - 1

     counter = counter + 1

     If myNum < 10 Then Exit Do

 Loop MsgBox "循环重复了 " & counter & " 次。" 

End Sub