VBS中如何在命令提示符输出Do Until循环的当前迭代次数

你给出的是VBScript代码，要在命令提示符窗口打印循环当前执行次数，直接调用WScript.Echo输出对应计数值即可。
注意你的初始逻辑里x=0，每次循环执行到末尾才会运行x=x+1，循环总共会执行5次，根据你想要的输出时机可以选两种写法：

• 复用现有x变量：在x=x+1语句之后输出x的值，此时x的数值等于已经完成的循环次数，写法最简单，不会改动原有循环逻辑
• 单独定义计数变量：如果x本身要参与循环内的业务计算，单独声明一个计数变量统计次数，不会干扰原有x的取值逻辑

写法1：复用x变量的完整代码 #

'LOOP START
Dim x
x=0
Do Until x=5
    '(loop contents) 保留你原有的循环内部逻辑
    x=x+1
    ' 输出当前执行次数到命令行
    WScript.Echo "当前循环执行次数：" & x
Loop
'LOOP END

写法2：单独计数变量的完整代码 #

如果需要在循环逻辑执行前就打印当前是第几次循环，用单独计数变量更稳妥：

'LOOP START
Dim x, loopCount
x=0
loopCount = 0
Do Until x=5
    loopCount = loopCount + 1
    ' 进入循环先打印次数，再执行业务逻辑
    WScript.Echo "当前是第" & loopCount & "次执行循环"
    '(loop contents) 保留你原有的循环内部逻辑
    x=x+1
Loop
'LOOP END

运行注意：VBS脚本需要在命令提示符中通过cscript 你的脚本文件名.vbs的指令启动，才能把输出内容打印到cmd窗口；如果直接双击vbs文件，默认会以wscript模式运行，输出会弹出图形化消息框，不会显示在命令行中。

内容的提问来源于stack exchange，提问作者funkycode