For counter = start To end [Step step] [statements] [Exit For] [statements] Next
当 For Next 循环开始时,Visual Basic Scripting Edition (VBScript) 将 start 赋值给 counter。在运行循环中的语句块之前,将 counter 与 end 进行比较。如果 counter 已经超过了 end 的值,那么 For 循环终止,控制流程跳跃到 Next 之后的语句。否则运行循环中的语句块。
每次 VBScript 遇到 Next 的时候,它将 counter 增加 step 并返回到 For。它再次比较 counter 和 end 的值,并根据结果继续运行循环中的语句块或者终止循环。这个过程将一直进行下去,直到 counter 超过了 end 或者遇到了 Exit For 语句。
以上为常识,简单的提一下来凑字数,下面是一个你可能忽略掉的细节:
循环控制变量 start end 和 step 仅仅在循环开始前求值一次,如果你在循环中的语句块改变 end 或者 step 的值,这个改变不会影响到循环的运行。
写个简单的 VBS 脚本验证一下:
复制代码 代码如下:
'Author: Demon 'Date: 2012-1-19 n = 10 s = 1 For i = 1 To n Step s WScript.Echo i n = 5 s = 2 Next WScript.Echo n, s
我们在循环中改变了 n 和 s 的值,但是循环仍然进行了10次,依次输出1到10,说明 For Next 循环内部保存有循环控制变量 n 和 s 的一份拷贝,并以此内部变量来控制循环的流程。
了解这个细节有助于我们写出高效简洁的代码:
复制代码 代码如下:
'Author: Demon 'Date: 2012-1-19 s = "http://VeVB.COm" For i = 1 To Len(s) WScript.Echo Mid(s, i, 1) Next
'这种 C Style 的写法并不比上面效率更高 '在 VBS 的 For Next 循环中不需要这么做 l = Len(s) For i = 1 To l WScript.Echo Mid(s, i, 1) Next