VBScript基礎教程之八使用迴圈語句

來源:互聯網
上載者:User
vbscript|基礎教程|迴圈|語句 使用迴圈重複執行代碼

迴圈用於重複執行一組語句。迴圈可分為三類:一類在條件變為 False 之前重複執行語句,一類在條件變為 True 之前重複執行語句,另一類按照指定的次數重複執行語句。

在 VBScript 中可使用下列迴圈語句:

·Do...Loop: 當(或直到)條件為 True 時迴圈。
·While...Wend: 當條件為 True 時迴圈。
·For...Next: 指定迴圈次數,使用計數器重複運行語句。
·For Each...Next: 對於集合中的每項或數組中的每個元素,重複執行一組語句。

使用 Do 迴圈

可以使用 Do...Loop 語句多次(次數不定)運行語句塊。當條件為 True 時或條件變為 True 之前,重複執行語句塊。

當條件為 True 時重複執行語句

While 關鍵字用於檢查 Do...Loop 語句中的條件。有兩種方式檢查條件:在進入迴圈之前檢查條件(如下面的 ChkFirstWhile 樣本);或者在迴圈至少運行完一次之後檢查條件(如下面的 ChkLastWhile 樣本)。在 ChkFirstWhile 過程中,如果 myNum 的初始值被設定為 9 而不是 20,則永遠不會執行迴圈體中的語句。在 ChkLastWhile 過程中,迴圈體中的語句只會執行一次,因為條件在檢查時已經為 False。

Sub ChkFirstWhile()
Dim counter, myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "迴圈重複了 " & counter & " 次。"
End Sub

Sub ChkLastWhile()
Dim counter, myNum
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox "迴圈重複了 " & counter & " 次。"
End Sub

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

Until 關鍵字用於檢查 Do...Loop 語句中的條件。有兩種方式檢查條件:在進入迴圈之前檢查條件(如下面的 ChkFirstUntil 樣本);或者在迴圈至少運行完一次之後檢查條件(如下面的 ChkLastUntil 樣本)。只要條件為 False,就會進行迴圈。

Sub ChkFirstUntil()
Dim counter, myNum
counter = 0
myNum = 20
Do Until myNum = 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "迴圈重複了 " & counter & " 次。"
End Sub

Sub ChkLastUntil()
Dim counter, myNum
counter = 0
myNum = 1
Do
myNum = myNum + 1
counter = counter + 1
Loop Until myNum = 10
MsgBox "迴圈重複了 " & counter & " 次。"
End Sub

退出迴圈

Exit Do 語句用於退出 Do...Loop 迴圈。因為通常只是在某些特殊情況下要退出迴圈(例如要避免死迴圈),所以可在 If...Then...Else 語句的 True 語句塊中使用 Exit Do 語句。如果條件為 False,迴圈將照常運行。

在下面的樣本中,myNum 的初始值將導致死迴圈。If...Then...Else 語句檢查此條件,防止出現死迴圈。

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 "迴圈重複了 " & counter & " 次。"
End Sub

使用 While...Wend

While...Wend 語句是為那些熟悉其用法的使用者提供的。但是由於 While...Wend 缺少靈活性,所以建議最好使用 Do...Loop 語句。

使用 For...Next

For...Next 語句用於將語句塊運行指定的次數。在迴圈中使用計數器變數,該變數的值隨每一次迴圈增加或減少。

例如,下面的樣本將過程 MyProc 重複執行 50 次。For 語句指定計數器變數 x 及其起始值與終止值。Next 語句使計數器變數每次加 1。

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

關鍵字 Step 用於指定計數器變數每次增加或減少的值。在下面的樣本中,計數器變數 j 每次加 2。迴圈結束後,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

要使計數器變數遞減,可將 Step 設為負值。此時計數器變數的終止值必須小於起始值。在下面的樣本中,計數器變數 myNum 每次減 2。迴圈結束後,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 語句用於在計數器達到其終止值之前退出 For...Next 語句。因為通常只是在某些特殊情況下(例如在發生錯誤時)要退出迴圈,所以可以在 If...Then...Else 語句的 True 語句塊中使用 Exit For 語句。如果條件為 False,迴圈將照常運行。

使用 For Each...Next

For Each...Next 迴圈與 For...Next 迴圈類似。For Each...Next 不是將語句運行指定的次數,而是對於數組中的每個元素或對象集合中的每一項重複一組語句。這在不知道集合中元素的數目時非常有用。

在以下樣本中,Dictionary 對象的內容用於將文本分別放置在多個文字框中:

<HTML>
<HEAD><TITLE>表單與元素</TITLE></HEAD>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cmdChange_OnClick
Dim d '建立一個變數
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>

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。