VBS基礎篇 - 循環語句(1) - Do 循環

循環用於重復執行一組語句。循環可分為三類：一類在條件變為 False 之前重復執行語句，一類在條件變為 True 之前重復執行語句，另一類按照指定的次數重復執行語句。

在 VBScript 中可使用下列循環語句：

Do...Loop： 當（或直到）條件為 True 時循環。

While...Wend： 當條件為 True 時循環。

For...Next： 指定循環次數，使用計數器重復運行語句。

For Each...Next：對於集合中的每項或數組中的每個元素，重復執行一組語句。

 

　　Do 循環

當（或直到）條件為True時循環，語法結構如下：

　　當條件為True時重復執行某語句塊

Do [{While | Until} condition]
    [statements]
    [Exit Do]
    [statements]
Loop 

 

 　　當條件變為True之前重復執行某語句塊

Do
    [statements]
    [Exit Do]
    [statements]
Loop [{While | Until} condition]

 主要參數：

condition：數值或字符串表達式，其值為True或False。如果condition為Null，則condition被當作False

statements：當condition為True時被重復執行的一條或多條命令

 

　　具體示例代碼如下：

　　重復執行語句直到條件變為True

Dim Count:Count = 5 '定義一個變量
Do Until Count = 0 '直到Count變量為0時，否則一直循環
    MsgBox Count
    Count = Count -1
Loop
MsgBox "循環結束"
Dim Count:Count = 5 '定義一個變量
Do
    MsgBox Count
    Count = Count -1
Loop Until Count = 0 '直到Count變量為0時，否則一直循環
MsgBox "循環結束"

當條件變為True之前重復執行某語句塊  

Dim Count:Count = 5 '定義一個變量
Do While Count <> 0 '當Count變量為0時，停止循環
    MsgBox Count
    Count = Count -1
Loop
MsgBox "循環結束"
Dim Count:Count = 5 '定義一個變量
Do
    MsgBox Count
    Count = Count -1
Loop While Count <> 0 '當Count變量為0時，停止循環
MsgBox "循環結束" 

退出循環

Exit Do 語句用於退出 Do...Loop 循環。因為通常只是在某些特殊情況下要退出循環（例如要避免死循環），所以可在 If...Then...Else 語句的 True 語句塊中使用 Exit Do 語句。如果條件為 False，循環將照常運行。示例代碼如下：  

Dim Count:Count = 5 '定義一個變量
Do While Count <> 0 '當Count變量為0時，停止循環
    MsgBox Count
    Count = Count -1
    If Count = 2 Then '判斷Count變量值是否為2，如果是則退出循環
        Exit Do
    End If 
Loop
MsgBox "循環結束"