VBScript代码示例 - For Next 循环语句
<html>
<head><title>VBScript代码示例 - for next 循环语句</title></head>
<body>
<script type="text/vbscript">
Dim i
for i = 0 to 10
document.write("Number " & i & "<br>")
next
</script>
</body>
</html>
演示结果：
Number 0
Number 1
Number 2
Number 3
Number 4
Number 5
Number 6
Number 7
Number 8
Number 9
Number 10
VBScript代码示例 - For...Next 循环语句的 Step 用法
<html>
<head>
<title>VBScript代码示例 - For...Next 循环语句的 Step 用法</title>
</head>
<body>
<script type="text/vbscript">
Sub TwosTotal()
Dim j, total
For j = 2 To 10 Step 2
total = total + j
Next
MsgBox "总和为 " & total & "。"
End Sub
Call TwosTotal
</script>
</body>
</html>
演示结果：
总和为30
VBScript代码示例 - Do Until Loop 循环语句
<html>
<head><title>VBScript代码示例 - Do Until Loop 循环语句</title></head>
<body>
<script type="text/vbscript">
Sub ChkFirstUntil()
Dim counter, myNum
counter = 0
myNum = 20
Do Until myNum = 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "循环重复了 " & counter & " 次。"
End Sub
Call ChkFirstUntil
</script>
</body>
</html>
演示结果：循环重复10次
VBScript代码示例 - Do Loop Until 循环语句
<html>
<head><title>VBScript代码示例 - Do Loop Until 循环语句</title></head>
<body>
<script type="text/vbscript">
Sub ChkLastUntil()
Dim counter, myNum
counter = 0
myNum = 1
Do
myNum = myNum + 1
counter = counter + 1
Loop Until myNum = 10
MsgBox "循环重复了 " & counter & " 次。"
End Sub
Call ChkLastUntil
</script>
</body>
</html>
演示结果：循环重复9次
VBScript代码示例 - Do Until Loop 循环语句中使用 Exit Do 退出循环
<html>
<head><title>VBScript代码示例 - Do Until Loop 循环语句中使用 Exit Do 退出循环</title></head>
<body>
<script type="text/vbscript">
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
Call ExitExample
</script>
</body>
</html>
演示结果：循环重复1次
VBScript代码示例 - Do While Loop 循环语句
<html>
<head><title>VBScript代码示例 - Do While Loop 循环语句</title></head>
<body>
<script type="text/vbscript">
Sub ChkFirstWhile()
Dim counter, myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "循环重复了 " & counter & " 次。"
End Sub
Call ChkFirstWhile
</script>
</body>
</html>
演示结果：循环重复10次
VBScript代码示例 - Do Loop While 循环语句
<html>
<head><title>VBScript代码示例 - Do Loop While 循环语句</title></head>
<body>
<script type="text/vbscript">
Sub ChkLastWhile()
Dim counter, myNum
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox "循环重复了 " & counter & " 次。"
End Sub
Call ChkLastWhile
</script>
</body>
</html>
演示结果：循环重复1次
