您好,登錄后才能下訂單哦!
這篇文章主要講解了“VBScript中循環(huán)語句的用法”,文中的講解內(nèi)容簡單清晰,易于學(xué)習(xí)與理解,下面請大家跟著小編的思路慢慢深入,一起來研究和學(xué)習(xí)“VBScript中循環(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...Loop 語句多次(次數(shù)不定)運行語句塊。當條件為 True 時或條件變?yōu)?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
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
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 缺少靈活性,所以建議最好使用 Do...Loop 語句。
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 循環(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>
感謝各位的閱讀,以上就是“VBScript中循環(huán)語句的用法”的內(nèi)容了,經(jīng)過本文的學(xué)習(xí)后,相信大家對VBScript中循環(huán)語句的用法這一問題有了更深刻的體會,具體使用情況還需要大家實踐驗證。這里是億速云,小編將為大家推送更多相關(guān)知識點的文章,歡迎關(guān)注!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。