六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

使用循環語句

發表時間：2024-02-11 來源：明輝站整理相關軟件相關文章人氣：

[摘要]使用循環重復執行代碼 循環用于重復執行一組語句。循環可分為三類：一類在條件變為 False 之前重復執行語句，一類在條件變為 True 之前重復執行語句，另一類按照指定的次數重復執行語句。 在 VBScript 中可使用下列循環語句： Do...Loop： 當（或直到）條件為 True 時循環。 ...

使用循環重復執行代碼
循環用于重復執行一組語句。循環可分為三類：一類在條件變為 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>（出處：熱點網絡）
主站蜘蛛池模板： 亚洲综合在线最大成人 | 日皮毛片| 人碰人操 | 日本在线视频网 | 天天躁狠狠躁夜躁2021 | 天天躁夜夜躁狠狠躁躁88 | 日韩高清在线高清免费 | 天天综合网色 | 伊香蕉大综综综合久久 | 野草影院手机在线观看免费6 | 亚洲经典自拍 | 影音先锋精品国产资源 | 天啪天天久久天天综合啪 | 日韩色视频在线观看 | 午夜性视频 | 全国男人的天堂天堂网 | 全免费一级午夜毛片 | 中文字幕在线网址 | 亚洲福利 | 一级毛片成人免费看免费不卡 | 在线播放亚洲精品富二代91 | 日韩首页 | 五月天激情婷婷大综合 | 伊人狼人综合网 | 网站在线观看mv视频 | 亚洲欧美在线综合一区二区三区 | 天天躁日日躁狠狠躁视频下载播二 | 婷婷六月激情 | 亚洲区色 | 中文伊人 | 日本三级视频在线观看 | 婷婷九月丁香 | 羞羞色在线 | 婷婷在线成人免费观看搜索 | 亚洲成人午夜影院 | 在线看日韩 | 伊人动漫 | 一级毛片网 | 日韩亚洲欧美综合一区二区三区 | 日本一二三区视频 | 在线久综合色手机在线播放 |