VBS基础篇 - 循环(for、Do、While)

经常地，当编写代码时，我们希望将一段代码执行若干次，我们可以在代码中使用循环语句来完成这项工作。

循环可分为三类：一类在条件变为 false 之前重复执行语句，一类在条件变为 true 之前重复执行语句，另一类按照指定的次数重复执行语句。

for...next：指定循环次数，使用计数器重复运行语句

do...loop：当条件为 true 或者直到条件为 true 时，运行循环

while…wend：当条件为true时循环

for each...next：对于集合中的每项或数组中的每个元素，重复执行一组语句

for...next 语句

指定循环次数，使用计数器重复运行语句，语法结构如下：

for counter = start to end [step step] 'counter 用做循环计数器的数值变量， start：counter的初值， end：counter的终值， step：counter的步长
  [statements]
  [exit for] '退出循环
  [statements]
next 

dim count:count = 0 '定义一个变量，并赋值为0
for i = 1 to 10 '循环10次 ，for 语句规定计数变量以及它的开始值和结束值
  count = count + 1
next 'next 语句会以 1 作为步长来递增变量i
msgbox count '输出10 '

退出循环：exit for 语句用于在计数器达到其终止值之前退出 for...next 语句。

dim count:count = 0 '定义一个变量，并赋值为0
for i = 1 to 10 step 2 '循环10次，步长为2，通过使用 step 关键词，我们可以规定计数变量递增或递减的步进值
  count = count + 1
  if count = 3 then '当变量count的值为3时，退出当前循环
    exit for '退出循环
  end if
next
msgbox count '输出3

指定循环次数，使用计数器重复运行语句，语法结构如下：

for counter = start to end [step step]
  [statements]
  [exit for]
  [statements]
next

主要参数：

counter：用做循环计数器的数值变量。这个变量不能是数组元素或用户自定义类型的元素。

start：counter的初值。

end：counter的终值。

step：counter的步长。如果没有指定，则step的默认值为1。

具体示例代码如下：

for…next

dim count:count = 0 '定义一个变量，并赋值为0
for i = 1 to 10 '循环10次
  count = count + 1
next
msgbox count '输出10

step设置计数器循环步长

dim count:count = 0 '定义一个变量，并赋值为0
for i = 1 to 10 step 2 '设置计数器步长为2，循环5次
  count = count + 1
next
msgbox count '输出5

退出循环

exit for 语句用于在计数器达到其终止值之前退出 for...next 语句。因为通常只是在某些特殊情况下（例如在发生错误时）要退出循环，所以可以在 if...then...else 语句的 true 语句块中使用 exit for 语句。如果条件为 false，循环将照常运行。

dim count:count = 0 '定义一个变量，并赋值为0
for i = 1 to 10 '循环10次
  count = count + 1
  if count = 5 then '当变量count的值为5时，退出当前循环
    exit for
  end if
next
msgbox count '输出5

do 循环 当（或直到）条件为true时循环

重复执行语句直到条件变为true

dim count:count = 5 '定义一个变量
do until count = 0 '直到count变量为0时，否则一直循环
  msgbox count
  count = count -1
loop
msgbox "循环结束"

dim count:count = 5 '定义一个变量
do
  msgbox count
  count = count -1
loop until count = 0 '直到count变量为0时，否则一直循环
msgbox "循环结束"

当条件变为true之前重复执行某语句块

dim count:count = 5 '定义一个变量
do while count <> 0 '当count变量为0时，停止循环
  msgbox count
  count = count -1
loop
msgbox "循环结束"

dim count:count = 5 '定义一个变量
do
  msgbox count
  count = count -1
loop while count <> 0 '当count变量为0时，停止循环
msgbox "循环结束"

exit do 语句用于退出 do...loop 循环

dim count:count = 5 '定义一个变量
do while count <> 0 '当count变量为0时，停止循环
  msgbox count
  count = count -1
  if count = 2 then '判断count变量值是否为2，如果是则退出循环
    exit do
  end if
loop
msgbox "循环结束"

while…wend 当条件为true时循环

dim count:count = 5 '定义一个变量
while count <> 0 '当count变量值不等于0，一直循环
  msgbox count
  count = count -1 
wend
msgbox "循环结束"

while…wend 没有exit语句，从头一直循环到尾，若要在中途退出，则需用do…loop语句

for each...next 语句

for each...next 不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。

dim dics '定义一个变量
set dics = createobject("scripting.dictionary") '定义一个dictionary对象
dics.add "0", "athens"  '为dictionary对象赋值
dics.add "1", "belgrade"
dics.add "2", "cairo"
for each dic in dics
  msgbox dics.item(dic) '循环遍历，且输出dictionary键值
next