主頁 > 知識庫 > VBScript教程 第八課 使用循環(huán)語句

VBScript教程 第八課 使用循環(huán)語句
熱門標簽：外呼系統(tǒng)解決電銷問題 蘇丹地圖標注app 京東辦理400電話查詢 高德百度地圖標注推廣 貴陽電話外呼系統(tǒng)廠家 菏澤電銷外呼系統(tǒng)軟件 南陽高頻外呼系統(tǒng)怎么安裝 地圖標注店鋪的收費 為什么申請400電話
使用循環(huán)重復(fù)執(zhí)行代碼
循環(huán)用于重復(fù)執(zhí)行一組語句。循環(huán)可分為三類：一類在條件變?yōu)?False 之前重復(fù)執(zhí)行語句，一類在條件變?yōu)?True 之前重復(fù)執(zhí)行語句，另一類按照指定的次數(shù)重復(fù)執(zhí)行語句。
在 VBScript 中可使用下列循環(huán)語句：

Do...Loop： 當(dāng)（或直到）條件為 True 時循環(huán)。
While...Wend： 當(dāng)條件為 True 時循環(huán)。
For...Next： 指定循環(huán)次數(shù)，使用計數(shù)器重復(fù)運行語句。
For Each...Next： 對于集合中的每項或數(shù)組中的每個元素，重復(fù)執(zhí)行一組語句。
使用 Do 循環(huán)
可以使用 Do...Loop 語句多次（次數(shù)不定）運行語句塊。當(dāng)條件為 True 時或條件變?yōu)?True 之前，重復(fù)執(zhí)行語句塊。
當(dāng)條件為 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

退出循環(huán)
Exit Do 語句用于退出 Do...Loop 循環(huán)。因為通常只是在某些特殊情況下要退出循環(huán)（例如要避免死循環(huán)），所以可在 If...Then...Else 語句的 True 語句塊中使用 Exit Do 語句。如果條件為 False，循環(huán)將照常運行。
在下面的示例中，myNum 的初始值將導(dǎo)致死循環(huán)。If...Then...Else 語句檢查此條件，防止出現(xiàn)死循環(huán)。

Sub ExitExample()
　　 Dim counter, myNum
　　 counter = 0
　　 myNum = 9
　　 Do Until myNum = 10
　　　　 myNum = myNum - 1
　　　　 counter = counter + 1
　　　　 If myNum 10 Then Exit Do
　　 Loop
　　 MsgBox "循環(huán)重復(fù)了 " counter " 次。"
End Sub

使用 While...Wend
While...Wend 語句是為那些熟悉其用法的用戶提供的。但是由于 While...Wend 缺少靈活性，所以建議最好使用 Do...Loop 語句。
使用 For...Next
For...Next 語句用于將語句塊運行指定的次數(shù)。在循環(huán)中使用計數(shù)器變量，該變量的值隨每一次循環(huán)增加或減少。
例如，下面的示例將過程 MyProc 重復(fù)執(zhí)行 50 次。For 語句指定計數(shù)器變量 x 及其起始值與終止值。Next 語句使計數(shù)器變量每次加 1。

Sub DoMyProc50Times()
　　 Dim x
　　 For x = 1 To 50
　　　　 MyProc
　　 Next
End Sub

關(guān)鍵字 Step 用于指定計數(shù)器變量每次增加或減少的值。在下面的示例中，計數(shù)器變量 j 每次加 2。循環(huán)結(jié)束后，total 的值為 2、4、6、8 和 10 的總和。
Sub TwosTotal()
　　 Dim j, total
　　 For j = 2 To 10 Step 2
　　　　 total = total + j
　　 Next
　　 MsgBox "總和為 " total "。"
End Sub

要使計數(shù)器變量遞減，可將 Step 設(shè)為負值。此時計數(shù)器變量的終止值必須小于起始值。在下面的示例中，計數(shù)器變量 myNum 每次減 2。循環(huán)結(jié)束后，total 的值為 16、14、12、10、8、6、4 和 2 的總和。

Sub NewTotal()
　　 Dim myNum, total
　　 For myNum = 16 To 2 Step -2
　　　　 total = total + myNum
　　 Next
　　 MsgBox "總和為 " total "。"
End Sub

Exit For 語句用于在計數(shù)器達到其終止值之前退出 For...Next 語句。因為通常只是在某些特殊情況下（例如在發(fā)生錯誤時）要退出循環(huán)，所以可以在 If...Then...Else 語句的 True 語句塊中使用 Exit For 語句。如果條件為 False，循環(huán)將照常運行。

使用 For Each...Next
For Each...Next 循環(huán)與 For...Next 循環(huán)類似。For Each...Next 不是將語句運行指定的次數(shù)，而是對于數(shù)組中的每個元素或?qū)ο蠹现械拿恳豁椫貜?fù)一組語句。這在不知道集合中元素的數(shù)目時非常有用。
在以下示例中，Dictionary 對象的內(nèi)容用于將文本分別放置在多個文本框中：

HTML>
HEAD>TITLE>窗體與元素/TITLE>/HEAD>
SCRIPT LANGUAGE="VBScript">
!--
Sub cmdChange_onClick
　　Dim d　　　　　　　　　 '創(chuàng)建一個變量
　　Set d = createObject("Scripting.Dictionary")
　　d.Add "0", "Athens"　　 '添加鍵和項目
　　d.Add "1", "Belgrade"
　　d.Add "2", "Cairo"

　　For Each I in d
　　　　Document.frmForm.Elements(I).Value = D.Item(I)
　　Next
End Sub
-->
/SCRIPT>
BODY>
CENTER>
FORM NAME="frmForm"

Input Type = "Text">p>
Input Type = "Text">p>
Input Type = "Text">p>
Input Type = "Text">p>
Input Type = "Button" NAME="cmdChange" VALUE="單擊此處">p>
/FORM>
/CENTER>
/BODY>
/HTML>

您可能感興趣的文章:
  • jquery 中多條件選擇器,相對選擇器,層次選擇器的區(qū)別
  • bash 編程中循環(huán)語句用法
  • PHP循環(huán)語句筆記(foreach,list)
  • Python中條件選擇和循環(huán)語句使用方法介紹

標簽：滄州 昌都 資陽 通遼 韶關(guān) 咸寧 海北 阿里

巨人網(wǎng)絡(luò)通訊聲明：本文標題《VBScript教程 第八課 使用循環(huán)語句》，本文關(guān)鍵詞  VBScript,教程,第八,課,使用,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBScript教程 第八課 使用循環(huán)語句》相關(guān)的同類信息！
  • 本頁收集關(guān)于VBScript教程 第八課 使用循環(huán)語句的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章