VBScript 循环语句（长文讲解）

💡一则或许对你有用的小广告

欢迎加入小哈的星球 ，你将获得：专属的项目实战 / 1v1 提问 / Java 学习路线 / 学习打卡 / 每月赠书 / 社群讨论

• 新项目:《从零手撸：仿小红书（微服务架构）》 正在持续爆肝中，基于 Spring Cloud Alibaba + Spring Boot 3.x + JDK 17...，点击查看项目介绍 ;
• 《从零手撸：前后端分离博客项目（全栈开发）》 2 期已完结，演示链接： http://116.62.199.48/ ;

截止目前， 星球 内专栏累计输出 82w+ 字，讲解图 3441+ 张，还在持续爆肝中.. 后续还会上新更多项目，目标是将 Java 领域典型的项目都整一波，如秒杀系统, 在线商城, IM 即时通讯，权限管理，Spring Cloud Alibaba 微服务等等，已有 2900+ 小伙伴加入学习 ，欢迎点击围观

VBScript 循环语句的基础概念

在编程世界中，重复执行相同或类似的操作是一项常见的需求。无论是计算1到100的总和、遍历文件列表，还是反复验证某个条件，VBScript 循环语句都能帮助开发者高效完成这些任务。作为一种脚本语言，VBScript 的循环结构简单直观，但其背后的逻辑和应用场景却值得深入理解。

循环语句的核心在于减少重复代码，通过定义循环条件或次数，让程序自动执行一系列操作。对于编程初学者而言，掌握循环语句是迈向自动化编程的重要一步。

For 循环：按固定次数重复任务

For 循环是最基础的循环结构，适用于已知重复次数的场景。它的语法结构清晰，包含三个关键部分：初始化变量、循环条件判断和迭代操作。

基本语法

For 计数变量 = 初始值 To 最终值 [Step 步长]  
    ' 循环体：要重复执行的代码  
Next  

示例：计算1到10的和

Dim total, i  
total = 0  
For i = 1 To 10  
    total = total + i  
Next  
WScript.Echo "1到10的和是：" & total  

关键点解析

• 计数变量（如 i）通常用于跟踪循环次数，其作用域仅限于循环体内。
• Step 步长可选，默认为1。若需每隔2个数字计算，可设置 Step 2。
• To 和 Step 的组合可灵活控制循环方向，例如 For i = 10 To 1 Step -1 可实现倒序循环。

生活化比喻

想象你在超市货架前按顺序取商品：

1. 初始化：站在第一个商品前（初始值）。
2. 条件判断：是否超过最后一个商品（最终值）。
3. 执行动作：拿起商品并记录名称（循环体）。
4. 迭代：走到下一个商品位置（Step 1）。

While 循环：条件满足时持续执行

While 循环的核心是根据条件判断是否继续执行循环。与 For 循环不同，它适合不确定循环次数但依赖条件判断的场景。

基本语法

While 条件表达式  
    ' 循环体  
Wend  

示例：猜数字游戏

Dim secretNumber, guess  
secretNumber = 42  
guess = 0  

While guess <> secretNumber  
    guess = InputBox("猜一个1到100的数字")  
    If guess < secretNumber Then  
        MsgBox "太小了！"  
    ElseIf guess > secretNumber Then  
        MsgBox "太大了！"  
    Else  
        MsgBox "恭喜你猜中！"  
    End If  
Wend  

关键点解析

• 条件表达式必须在循环开始前定义，否则可能陷入无限循环。
• Wend 是 While...End 的缩写，表示循环结束。
• 适合需要持续等待用户输入、传感器数据变化等动态场景。

生活化比喻

假设你站在路口等待绿灯：

• 条件表达式：红灯是否亮着？
• 循环体：原地等待，直到绿灯亮起（条件不满足时退出循环）。

Do...Loop 循环：先执行后判断的变体

Do...Loop 结构与 While 循环类似，但提供了两种模式：

1. Do...Loop While：先执行一次循环，再判断条件。
2. Do While...Loop：先判断条件，再决定是否执行循环。

语法对比

示例：验证用户输入合法性

Dim age  
Do  
    age = InputBox("请输入年龄（1-120）")  
Loop While Not (age >= 1 And age <= 120)  
WScript.Echo "有效年龄：" & age  

关键点解析

• 本例使用 Do...Loop While 确保用户至少输入一次，避免因初始条件不满足而直接退出。
• 若改用 Do While，则需提前定义 age 的初始值，可能导致无效循环。

生活化比喻

想象你去餐厅点餐：

• Do While：先看菜单（判断能否点餐），再决定是否下单。
• Do...Loop While：先点餐（执行动作），再检查是否超出预算（循环条件）。

循环嵌套：构建复杂逻辑

当需要处理多维数据或分层任务时，可以将循环语句嵌套使用。例如，遍历二维数组或生成九九乘法表。

示例：打印九九乘法表

Dim i, j  
For i = 1 To 9  
    For j = 1 To i  
        WScript.StdOut.Write j & "*" & i & "=" & i*j & vbTab  
    Next  
    WScript.StdOut.WriteLine  
Next  

输出结果

1*1=1    
1*2=2    2*2=4    
1*3=3    2*3=6    3*3=9    
...（后续行略）  

关键点解析

• 外层循环 i 控制行数，内层循环 j 控制每行的乘数。
• 通过 vbTab 和 WScript.StdOut.WriteLine 实现对齐格式。

循环的优化与注意事项

1. 避免无限循环

若条件判断逻辑错误，可能导致程序无法终止。例如：

Dim count = 0  
While count < 5  
    ' 缺少 count = count + 1  
Wend  

此代码因未更新 count 值，会无限循环。

2. 注意循环体内变量的作用域

在 VBScript 中，计数变量默认为变体类型，需确保其在循环外的可见性符合需求。例如：

For i = 1 To 3  
    ' ...  
Next  
WScript.Echo i  ' 输出4，因为循环结束后i自动加1  

3. 选择合适的循环类型

实战案例：文件名批量重命名

假设需要将一批文件名中的“old”替换为“new”，可以结合 For Each...Next 循环和字符串函数实现：

Dim fso, folder, files, file  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set folder = fso.GetFolder("C:\Test\")  
Set files = folder.Files  

For Each file In files  
    If InStr(file.Name, "old") > 0 Then  
        newFileName = Replace(file.Name, "old", "new")  
        file.Name = newFileName  
    End If  
Next  

关键点解析

• For Each...Next 遍历文件集合，无需手动计数。
• InStr 和 Replace 函数用于字符串匹配和替换。

结论

VBScript 的循环语句是自动化编程的核心工具，其 For、While、Do...Loop 三大结构分别适用于不同场景。通过合理嵌套和条件控制，开发者可以高效处理从简单计数到复杂数据处理的多样化需求。对于初学者，建议从 For 循环入手，逐步掌握条件循环的逻辑设计；中级开发者则可关注循环优化、嵌套技巧以及与对象模型的结合应用。

掌握 VBScript 循环语句，不仅能提升代码的简洁性，更能培养“以不变应万变”的编程思维——通过逻辑结构的重复执行，让计算机替你完成繁琐的重复任务。