使用循環(huán)語句

循環(huán)用于重復(fù)執(zhí)行一組語句。循環(huán)可分為三類：一類在條件變?yōu)?False 之前重復(fù)執(zhí)行語句，一類在條件變?yōu)?True 之前重復(fù)執(zhí)行語句，另一類按照指定的次數(shù)重復(fù)執(zhí)行語句。

在 VBScript 中可使用下列循環(huán)語句：

Do...Loop： 當（或直到）條件為 True 時循環(huán)。 While...Wend： 當條件為 True 時循環(huán)。 For...Next： 指定循環(huán)次數(shù)，使用計數(shù)器重復(fù)運行語句。 For Each...Next：對于集合中的每項或數(shù)組中的每個元素，重復(fù)執(zhí)行一組語句。

( 以上語句將在下面內(nèi)容中詳細介紹）

使用 Do 循環(huán)

可以使用 Do...Loop 語句多次（次數(shù)不定）運行語句塊。當條件為 True 時或條件變?yōu)?True 之前，重復(fù)執(zhí)行語句塊。

當條件為 True 時重復(fù)執(zhí)行語句

While 關(guān)鍵字用于檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入循環(huán)之前檢查條件（如下面的 ChkFirstWhile 示例）；或者在循環(huán)至少運行完一次之后檢查條件（如下面的 ChkLastWhile 示例）。在 ChkFirstWhile 過程中，如果 myNum 的初始值被設(shè)置為 9 而不是 20，則永遠不會執(zhí)行循環(huán)體中的語句。在 ChkLastWhile 過程中，循環(huán)體中的語句只會執(zhí)行一次，因為條件在檢查時已經(jīng)為 False。

 Sub ChkFirstWhile()     Dim counter, myNum     counter = 0     myNum = 20     Do While myNum > 10         myNum = myNum - 1         counter = counter + 1     Loop     MsgBox "循環(huán)重復(fù)了 " & counter & " 次。" End Sub Sub ChkLastWhile()     Dim counter, myNum     counter = 0     myNum = 9     Do         myNum = myNum - 1         counter = counter + 1     Loop While myNum > 10     MsgBox "循環(huán)重復(fù)了 " & counter & " 次。" End Sub

重復(fù)執(zhí)行語句直到條件變?yōu)?True

Until 關(guān)鍵字用于檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入循環(huán)之前檢查條件（如下面的 ChkFirstUntil 示例）；或者在循環(huán)至少運行完一次之后檢查條件（如下面的 ChkLastUntil 示例）。只要條件為 False，就會進行循環(huán)。

 Sub ChkFirstUntil()     Dim counter, myNum     counter = 0     myNum = 20     Do Until myNum = 10         myNum = myNum - 1         counter = counter + 1     Loop     MsgBox "循環(huán)重復(fù)了 " & counter & " 次。" End Sub Sub ChkLastUntil()     Dim counter, myNum     counter = 0     myNum = 1     Do         myNum = myNum + 1         counter = counter + 1     Loop Until myNum = 10     MsgBox "循環(huán)重復(fù)了 " & counter & " 次。" End Sub