【文章內(nèi)容簡介】 當（或直到）條件為 True 時循環(huán)。 While...Wend： 當條件為 True 時循環(huán)。 For...Next： 指定循環(huán)次數(shù)，使用計數(shù)器重復運行語句。 For Each...Next： 對于集合中的每項或數(shù)組中的每個元素，重復執(zhí)行一組語句。 使用 Do 循環(huán)可以使用 Do...Loop 語句多次（次數(shù)不定）運行語句塊。當條件為 True 時或條件變?yōu)?True 之前，重復執(zhí)行語句塊。 當條件為 True 時重復執(zhí)行語句While 關鍵字用于檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入循環(huán)之前檢查條件（如下面的 ChkFirstWhile 示例）；或者在循環(huán)至少運行完一次之后檢查條件（如下面的 ChkLastWhile 示例）。在 ChkFirstWhile 過程中，如果 myNum 的初始值被設置為 9 而不是 20，則永遠不會執(zhí)行循環(huán)體中的語句。在 ChkLastWhile 過程中，循環(huán)體中的語句只會執(zhí)行一次，因為條件在檢查時已經(jīng)為 False。 Sub ChkFirstWhile()Dim counter, myNumcounter = 0myNum = 20Do While myNum 10myNum = myNum 1counter = counter + 1LoopMsgBox 循環(huán)重復了 amp。 counter amp。 次。End SubSub ChkLastWhile()Dim counter, myNumcounter = 0myNum = 9DomyNum = myNum 1counter = counter + 1Loop While myNum 10MsgBox 循環(huán)重復了 amp。 counter amp。 次。End Sub重復執(zhí)行語句直到條件變?yōu)?TrueUntil 關鍵字用于檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入循環(huán)之前檢查條件（如下面的 ChkFirstUntil 示例）；或者在循環(huán)至少運行完一次之后檢查條件（如下面的 ChkLastUntil 示例）。只要條件為 False，就會進行循環(huán)。 Sub ChkFirstUntil()Dim counter, myNumcounter = 0myNum = 20Do Until myNum = 10myNum = myNum 1counter = counter + 1LoopMsgBox 循環(huán)重復了 amp。 counter amp。 次。End SubSub ChkLastUntil()Dim counter, myNumcounter = 0myNum = 1DomyNum = myNum + 1counter = counter + 1Loop Until myNum = 10MsgBox 循環(huán)重復了 amp。 counter amp。 次。End Sub退出循環(huán)Exit Do 語句用于退出 Do...Loop 循環(huán)。因為通常只是在某些特殊情況下要退出循環(huán)（例如要避免死循環(huán)），所以可在 If...Then...Else 語句的 True 語句塊中使用 Exit Do 語句。如果條件為 False，循環(huán)將照常運行。 在下面的示例中，myNum 的初始值將導致死循環(huán)。If...Then...Else 語句檢查此條件，防止出現(xiàn)死循環(huán)。 Sub ExitExample()Dim counter, myNumcounter = 0myNum = 9Do Until myNum = 10myNum = myNum 1counter = counter + 1If myNum 10 Then Exit DoLoopMsgBox 循環(huán)重復了 amp。 counter amp。 次。End Sub使用 While...WendWhile...Wend 語句是為那些熟悉其用法的用戶提供的。但是由于 While...Wend 缺少靈活性，所以建議最好使用 Do...Loop 語句。 使用 For...NextFor...Next 語句用于將語句塊運行指定的次數(shù)。在循環(huán)中使用計數(shù)器變量，該變量的值隨每一次循環(huán)增加或減少。 例如，下面的示例將過程 MyProc 重復執(zhí)行 50 次。For 語句指定計數(shù)器變量 x 及其起始值與終止值。Next 語句使計數(shù)器變量每次加 1。 Sub DoMyProc50Times()Dim xFor x = 1 To 50MyProcNextEnd Sub關鍵字 Step 用于指定計數(shù)器變量每次增加或減少的值。在下面的示例中，計數(shù)器變量 j 每次加 2。循環(huán)結束后，total 的值為 8 和 10 的總和。 Sub TwosTotal()Dim j, totalFor j = 2 To 10 Step 2total = total + jNextMsgBox 總和為 amp。 total amp。 。End Sub要使計數(shù)器變量遞減，可將 Step 設為負值。此時計數(shù)器變量的終止值必須小于起始值。在下面的示例中，計數(shù)器變量 myNum 每次減 2。循環(huán)結束后，total 的值為 1114 和 2 的總和。 Sub NewTotal()Dim myNum, totalFor myNum = 16 To 2 Step 2total = total + myNumNextMsgBox 總和為 amp。 total amp。 。End SubExit For 語句用于在計數(shù)器達到其終止值之前退出 For...Next 語句。因為通常只是在某些特殊情況下（例如在發(fā)生錯誤時）要退出循環(huán)，所以可以在 If...Then...Else 語句的 True 語句塊中使用 Exit For 語句。如果條件為 False，循環(huán)將照常運行。 使用 For Each...NextFor Each...Next 循環(huán)與 For...Next 循環(huán)類似。For Each...Next 不是將語句運行指定的次數(shù)，而是對于數(shù)組中的每個元素或?qū)ο蠹现械拿恳豁椫貜鸵唤M語句。這在不知道集合中元素的數(shù)目時非常有用。 在以下示例中，Dictionary 對象的內(nèi)容用于將文本分別放置在多個文本框中： HTMLHEADTITLE窗體與元素/TITLE/HEADSCRIPT LANGUAGE=VBScript!Sub cmdChange_OnClickDim d 39。創(chuàng)建一個變量Set d = CreateObject() 0, Athens 39。添加鍵和項目 1, Belgrade 2, CairoFor Each I in d(I).Value = (I)NextEnd Sub/SCRIPTBODYCENTERFORM NAME=frmFormInput Type = TextpInput Type = TextpInput Type = TextpInput Type = TextpInput Type = Button NAME=cmdChange VALUE=單擊此處p/FORM/CENTER/BODY/HTML第九課 VBScript過程過程分類在 VBScript 中，過程被分為兩類：Sub 過程和 Function 過程。 Sub 過程Sub 過程是包含在 Sub 和 End Sub 語句之間的一組 VBScript 語句，執(zhí)行操作但不返回值。Sub 過程可以使用參數(shù)（由調(diào)用過程傳遞的常數(shù)、變量或表達式）。如果 Sub 過程無任何參數(shù)，則 Sub 語句必須包含空括號 ()。 下面的 Sub 過程使用兩個固有的（或內(nèi)置的）VBScript 函數(shù)，即 MsgBox 和 InputBox，來提示用戶輸入信息。然后顯示根據(jù)這些信息計算的結果。計算由使用 VBScript 創(chuàng)建的 Function 過程完成。此過程在以下討論之后演示。 Sub ConvertTemp()temp = InputBox(請輸入華氏溫度。, 1)MsgBox 溫度為 amp。 Celsius(temp) amp。 攝氏度。End SubFunction 過程Function 過程是包含在 Function 和 End Function 語句之間的一組 VBScript 語句。Function 過程與 Sub 過程類似，但是 Function 過程可以返回值。Function 過程可以使用參數(shù)（由調(diào)用過程傳遞的常數(shù)、變量或表達式）。如果 Function 過程無任何參數(shù)，則 Function 語句必須包含空括號 ()。Function 過程通過函數(shù)名返回一個值，這個值是在過程的語句中賦給函數(shù)名的。Function 返回值的數(shù)據(jù)類型總是 Variant。 在下面的示例中，Celsius 函數(shù)將華氏度換算為攝氏度。Sub 過程 ConvertTemp 調(diào)用此函數(shù)時，包含參數(shù)值的變量被傳遞給函數(shù)。換算結果返回到調(diào)用過程并顯示在消息框中。 Sub ConvertTemp()temp = InputBox(請輸入華氏溫度。, 1)MsgBox 溫度為 amp。 Celsius(temp) amp。 攝氏度。End SubFunction Celsius(fDegrees)Celsius = (fDegre