循环用于重复执行一组语句。循环可分三类:
- 在条件变为 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>