滑县一中招生办,阿波丸,国融红杉
经常地，当编写代码时，我们希望将一段代码执行若干次，我们可以在代码中使用循环语句来完成这项工作。
循环可分为三类：一类在条件变为 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
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复
网友评论