日本不卡视频一区,欧美在线免费看视频

主頁(yè) > 知識(shí)庫(kù) > VBScript教程第八課使用循環(huán)語(yǔ)句

VBScript教程第八課使用循環(huán)語(yǔ)句

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

Do...Loop：當(dāng)（或直到）條件為 True 時(shí)循環(huán)。
While...Wend：當(dāng)條件為 True 時(shí)循環(huán)。
For...Next：指定循環(huán)次數(shù)，使用計(jì)數(shù)器重復(fù)運(yùn)行語(yǔ)句。
For Each...Next：對(duì)于集合中的每項(xiàng)或數(shù)組中的每個(gè)元素，重復(fù)執(zhí)行一組語(yǔ)句。
使用 Do 循環(huán)
可以使用 Do...Loop 語(yǔ)句多次（次數(shù)不定）運(yùn)行語(yǔ)句塊。當(dāng)條件為 True 時(shí)或條件變?yōu)?True 之前，重復(fù)執(zhí)行語(yǔ)句塊。
當(dāng)條件為 True 時(shí)重復(fù)執(zhí)行語(yǔ)句
While 關(guān)鍵字用于檢查 Do...Loop 語(yǔ)句中的條件。有兩種方式檢查條件：在進(jìn)入循環(huán)之前檢查條件（如下面的 ChkFirstWhile 示例）；或者在循環(huán)至少運(yùn)行完一次之后檢查條件（如下面的 ChkLastWhile 示例）。在 ChkFirstWhile 過(guò)程中，如果 myNum 的初始值被設(shè)置為 9 而不是 20，則永遠(yuǎn)不會(huì)執(zhí)行循環(huán)體中的語(yǔ)句。在 ChkLastWhile 過(guò)程中，循環(huán)體中的語(yǔ)句只會(huì)執(zhí)行一次，因?yàn)闂l件在檢查時(shí)已經(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ǔ)句直到條件變?yōu)?True
Until 關(guān)鍵字用于檢查 Do...Loop 語(yǔ)句中的條件。有兩種方式檢查條件：在進(jìn)入循環(huán)之前檢查條件（如下面的 ChkFirstUntil 示例）；或者在循環(huán)至少運(yùn)行完一次之后檢查條件（如下面的 ChkLastUntil 示例）。只要條件為 False，就會(huì)進(jìn)行循環(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 語(yǔ)句用于退出 Do...Loop 循環(huán)。因?yàn)橥ǔＶ皇窃谀承┨厥馇闆r下要退出循環(huán)（例如要避免死循環(huán)），所以可在 If...Then...Else 語(yǔ)句的 True 語(yǔ)句塊中使用 Exit Do 語(yǔ)句。如果條件為 False，循環(huán)將照常運(yùn)行。
在下面的示例中，myNum 的初始值將導(dǎo)致死循環(huán)。If...Then...Else 語(yǔ)句檢查此條件，防止出現(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 語(yǔ)句是為那些熟悉其用法的用戶提供的。但是由于 While...Wend 缺少靈活性，所以建議最好使用 Do...Loop 語(yǔ)句。
使用 For...Next
For...Next 語(yǔ)句用于將語(yǔ)句塊運(yùn)行指定的次數(shù)。在循環(huán)中使用計(jì)數(shù)器變量，該變量的值隨每一次循環(huán)增加或減少。
例如，下面的示例將過(guò)程 MyProc 重復(fù)執(zhí)行 50 次。For 語(yǔ)句指定計(jì)數(shù)器變量 x 及其起始值與終止值。Next 語(yǔ)句使計(jì)數(shù)器變量每次加 1。

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

關(guān)鍵字 Step 用于指定計(jì)數(shù)器變量每次增加或減少的值。在下面的示例中，計(jì)數(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

要使計(jì)數(shù)器變量遞減，可將 Step 設(shè)為負(fù)值。此時(shí)計(jì)數(shù)器變量的終止值必須小于起始值。在下面的示例中，計(jì)數(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 語(yǔ)句用于在計(jì)數(shù)器達(dá)到其終止值之前退出 For...Next 語(yǔ)句。因?yàn)橥ǔＶ皇窃谀承┨厥馇闆r下（例如在發(fā)生錯(cuò)誤時(shí)）要退出循環(huán)，所以可以在 If...Then...Else 語(yǔ)句的 True 語(yǔ)句塊中使用 Exit For 語(yǔ)句。如果條件為 False，循環(huán)將照常運(yùn)行。

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

HTML>
HEAD>TITLE>窗體與元素/TITLE>/HEAD>
SCRIPT LANGUAGE="VBScript">
!--
Sub cmdChange_onClick
　　Dim d　　　　　　　　　 '創(chuàng)建一個(gè)變量
　　Set d = createObject("Scripting.Dictionary")
　　d.Add "0", "Athens"　　 '添加鍵和項(xiàng)目
　　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 中多條件選擇器,相對(duì)選擇器,層次選擇器的區(qū)別
bash 編程中循環(huán)語(yǔ)句用法
PHP循環(huán)語(yǔ)句筆記(foreach,list)
Python中條件選擇和循環(huán)語(yǔ)句使用方法介紹

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

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBScript教程第八課使用循環(huán)語(yǔ)句》，本文關(guān)鍵詞 VBScript,教程,第八,課,使用,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

VBScript教程 第八課 使用循環(huán)語(yǔ)句

VBScript教程第八課使用循環(huán)語(yǔ)句