Ruby's Louvre

每天学习一点点算法

导航

统计

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>

posted on 2013-03-16 00:22  司徒正美  阅读(...)  评论(...编辑  收藏