目录

  1. 循环概述
  2. For…Next 循环
  3. Do…Loop 循环
  4. While…Wend 循环
  5. 嵌套循环示例
  6. 参考资料

1. 循环概述

在 VBScript 中，循环结构用于重复执行一段代码，直到满足某个条件。常用的循环结构包括：

  • For…Next 循环：用于已知循环次数的情况。
  • Do…Loop 循环：用于条件判断后再执行或先执行再判断的场景。
  • While…Wend 循环：用于在满足特定条件前重复执行代码。

2. For…Next 循环

For…Next 循环 适合在需要重复执行固定次数时使用，其基本语法如下：

For counter = start To end [Step step]
    ' 循环体
Next

示例：计算 1 到 5 的和

Dim i, sum
sum = 0
For i = 1 To 5
    sum = sum + i
Next
MsgBox "1 到 5 的和为 " & sum

在此示例中，变量 i 从 1 到 5 依次取值，每次循环将当前 i 的值累加到 sum 中，最后显示结果。

3. Do…Loop 循环

Do…Loop 循环 根据条件来控制循环执行，常见形式有两种：

3.1 Do While…Loop

当循环体执行前检查条件是否为真：

Dim count
count = 1
Do While count <= 3
    MsgBox "循环次数：" & count
    count = count + 1
Loop

此示例中，只有当 count 小于等于 3 时，循环体才会执行。

3.2 Do…Loop While

先执行循环体，再检查条件是否为真：

Dim count
count = 1
Do
    MsgBox "循环次数：" & count
    count = count + 1
Loop While count <= 3

在此示例中，循环体至少执行一次，然后再判断 count 是否小于等于 3，决定是否继续执行。

3.3 Do Until…Loop

当条件为真时停止循环，形式也有两种：

Do Until…Loop

Dim count
count = 1
Do Until count > 3
    MsgBox "循环次数：" & count
    count = count + 1
Loop

循环体在 count 大于 3 之前一直执行。

Do…Loop Until

Dim count
count = 1
Do
    MsgBox "循环次数：" & count
    count = count + 1
Loop Until count > 3

此形式确保循环体至少执行一次，然后检查条件是否满足停止循环。

4. While…Wend 循环

While…Wend 循环 是另一种用于重复执行代码的结构，它会先判断条件，再执行循环体。注意，该循环没有提前退出的功能（不像 Do…Loop 可用 Exit Do 提前退出）。

Dim count
count = 1
While count <= 3
    MsgBox "循环次数：" & count
    count = count + 1
Wend

在这个示例中，只有当 count 小于等于 3 时，循环体才会被执行。

5. 嵌套循环示例

VBScript 支持循环嵌套，即在一个循环体内再嵌套另一个循环。下面是一个简单的示例，展示如何用嵌套循环输出一个乘法表：

Dim i, j, output
output = ""

For i = 1 To 5
    For j = 1 To 5
        output = output & (i * j) & vbTab  ' 使用制表符分隔每个数
    Next
    output = output & vbCrLf  ' 换行
Next

MsgBox output

此示例中，外层循环变量 i 从 1 到 5，内层循环变量 j 也从 1 到 5，每次计算 i * j 并构建输出字符串，最后显示整个乘法表。

6. 参考资料

  1. Microsoft VBScript 官方文档
  2. W3Schools VBScript 循环教程
  3. TutorialsPoint VBScript 循环

以上就是 VBScript 中各种循环结构的用法示例，帮助你更好地理解和使用循环来控制程序流程。