亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频


使用循環(huán)語句

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

在 VBScript 中可使用下列循環(huán)語句：

  • Do...Loop： 當（或直到）條件為 True 時循環(huán)。
  • While...Wend： 當條件為 True 時循環(huán)。
  • For...Next： 指定循環(huán)次數(shù)，使用計數(shù)器重復運行語句。
  • For Each...Next：對于集合中的每項或數(shù)組中的每個元素，重復執(zhí)行一組語句。

使用 Do 循環(huán)

可以使用 Do...Loop 語句多次（次數(shù)不定）運行語句塊。當條件為 True 時或條件變?yōu)?True 之前，重復執(zhí)行語句塊。

當條件為 True 時重復執(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)重復了 " & 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)重復了 " & counter & " 次。" End Sub

重復執(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)重復了 " & 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)重復了 " & 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 的初始值將導致死循環(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)重復了 " & counter & " 次。"
 End Sub

使用 While...Wend

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

使用 For...Next

For...Next 語句用于將語句塊運行指定的次數(shù)。在循環(huán)中使用計數(shù)器變量，該變量的值隨每一次循環(huán)增加或減少。

例如，下面的示例將過程 MyProc 重復執(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ū)ο蠹现械拿恳豁椫貜鸵唤M語句。這在不知道集合中元素的數(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>
返回首頁