VBScript循环语句

循环用于重复执行一组语句。循环可分三类：

• 在条件变为 False 之前重复执行语句。
• 在条件变为 True 之前重复执行语句。
• 按照指定的次数重复执行语句。

在 VBScript 中可使用下列循环语句：

• Do...Loop ：当 （或直到）条件为 True 时循环。
• While...Wend ：当条件为 True 时循环。
• For...Next ：指定循环次数，使用计数器重复运行语句。
• For Each...Next ：对于集合中的每项或数组中的每个元素，重复执行一组语句。

使用 Do 循环语句

可以使用 Do...Loop 语句多次（次数不定）运行语句块。当条件为 True 时或条件变为 True 之前，重复执行语句块。

当条件为 True 时重复执行语句

While 关键字用于检查 Do...Loop 语句中的条件。有两种方式检查条件：在进入循环之前检查条件（Do While...Loop )；或者在循环至少运行完一次之后检查条件（Do...Loop While）

Do While...Loop 示例：

<script type="text/vbscript">
Sub ChkFirstWhile()
    Dim counter, myNum
        counter = 0
        myNum = 20
    Do While myNum > 10
       myNum = myNum - 1
       counter = counter + 1
    Loop
    MsgBox "循环重复了 " & counter & " 次。"
End Sub
Call ChkFirstWhile
</script>

Do...Loop While 示例：

<script type="text/vbscript">
Sub ChkLastWhile()
    Dim counter, myNum
    counter = 0
    myNum = 9
    Do
       myNum = myNum - 1
       counter = counter + 1
    Loop While myNum > 10
    MsgBox "循环重复了 " & counter & " 次。"
End Sub
Call ChkLastWhile
</script>