循环结构
循环结构允许重复执行一行或数行代码。VisualBasic支持的循环结构有：
1.Do...Loop
2.For...Next
3.ForEach...Next
Do...Loop
用Do循环重复执行一语句块，且重复次数不定。Do...Loop语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同If...Thencondition必须是一个数值或者值为True（非零）或False（零）的表达式。在下面的Do...Loop循环中，只要condition为True就执行statements。
DoWhilecondition
statements
Loop
当VisualBasic执行这个Do循环时会首先测试condition。如果condition为False（零），则跳过所有语句。如果condition为True（非零），则VisualBasic执行语句，然后退回到DoWhile语句再测试条件。
因此，只要condition为True或非零，循环可以随意执行多少次。如果condition一开始便为False，则不会执行语句。例如，以下过程将计算某一目标字符串在另一字符串中出现的次数，只要发现目标串就执行循环：
FunctionCountStrings(longstring,target)
Dimposition,count
position=1
DoWhileInStr(position,longstring,target)
position=InStr(position,longstring,target)_
1
count=count 1
Loop
CountStrings=count
EndFunction
如果目标字符串未出现在另一个字符串中，则InStr返回0，而且不再执行循环。
Do...Loop语句的另一种演变形式是先执行语句，然后在每次执行后测试condition。这种形式保证statements至少执行一次：
Do
statements
LoopWhilecondition
其它两种演变形式类似于前两个，所不同的是，只要condition为False而不是True，它们就执行循环。
For...Next000
在不知道循环内需要执行多少次语句时，宜用Do循环。但是，在知道要执行多少次时，则最好使用For...Next循环。与Do循环不同，For循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For循环的语法如下：
Forcounter=startToend[Stepincrement]
statements
Next[counter]
参数Counter、Start、end和increment都是数值型的。
注意increment参数可正可负。如果increment为正，则Start必须小于等于end，否则不能执行循环内的语句。如果increment为负，则Start必须大于等于end，这样才能执行循环体。如果没有设置Step，则increment缺省值为1。
在执行For循环时，VisualBasic
1.设置counter等于start。
2.测试counter是否大于end。若是的话，则VisualBasic退出循环。（若increment为负，则VisualBasic测试counter是否小于end。）
3.执行语句。
4.counter增加一，或者增加increment（如果已指定的话）。
5.重复步骤2到步骤4。
以下代码打印出所有有效的屏幕字体名：
PRivateSubForm_Click()
DimIAsInteger
Fori=0ToScreen.FontCount
PrintScreen.Fonts(i)
Next
EndSub
在VCR示例应用程序中，HighlightButton过程使用For...Next循环，一步步经过VCR窗体的控件集合，并显示适当的Shape控件：
SubHighlightButton(MyControlAsVariant)
DimiAsInteger
Fori=0TofrmVCR.Controls.Count-1
IfTypeOffrmVCR.Controls(i)IsShapeThen
IffrmVCR.Controls(i).Name=MyControlThen
frmVCR.Controls(i).Visible=True
Else
frmVCR.Controls(i).Visible=False
EndIf
EndIf
Next
EndSub
ForEach...Next
ForEach...Next循环与For...Next循环类似，但它对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素，ForEach...Next循环非常有用。
ForEach...Next循环的语法如下：
ForEachelementIngroup
statements
Nextelementt
例如，下面的子过程打开Biblio.mdb，把每一个表的名字加到列表框中。
SubListTableDefs()
DimobjDbAsDatabase
DimMyTableDefasTableDef
SetobjDb=OpenDatabase("c:\vb\biblio.mdb",_
True,False)
ForEachMyTableDefInobjDb.TableDefs()
List1.AddItemMyTableDef.Name
NextMyTableDef
EndSub
请记住使用ForEach...Next时的几点限制：
1.对集合，element只能是Variant变量，或一般的Object变量，或“对象浏览器”中列出的对象。
2.对数组，element只能是Variant变量。
3.ForEach...Next不能与用户自定义类型的数组一起使用，因为Variant不可能包含用户自定义类型。
使用控制结构
嵌套控制结构可以把控制结构放入另一个控制结构之内（例如在For...Next循环中的If...Then块）。一个控制结构内部包含另一个控制结构叫做nest（嵌套）。在VisualBasic中，控制结构的嵌套层数没有限制。按一般习惯，为了使判定结构和循环结构更具可读性，总是用缩排方式书写判定结构或循环的正文部分。
例如，下面的过程要把打印机和屏幕共有的字体名全部打印出来：
PrivateSubForm_Click()
DimSFont,PFont
ForEachSFontInScreen.Fonts()
ForEachPFontInPrinter.Fonts()
IfSFont=PFontThen
PrintSFont
EndIf
NextPFont
NextSFont
EndSub
注意，第一个Next关闭了内层的For循环，而最后一个For关闭了外层的For循环。同样，在嵌套的If语句中，EndIf语句自动与最靠近的前一个If语句配对。嵌套的Do...Loop结构的工作方式也是一样的，最内圈的Loop语句与最内圈的Do语句匹配。
退出控制结构
用Exit语句可以直接退出For循环、Do循环、子过程或函数过程。Exit语句的语法很简单：ExitFor在For循环中出现的次数没有限制，ExitDo在Do循环中出现的次数也没有限制。
Forcounter=startToend
[Stepincrement]
[statementblock]
[ExitFor]
[statementblock]
Next[counter[,counter][,...]]
Do[{While|Until}condition]
[statementblock]
[ExitDo]
[statementblock]
Loop
ExitDo语句可以在Do循环语法的所有版本中使用。
ExitFor和ExitDo非常有用，因为它有时适于立即退出循环，而且不再执行循环中的任何进一步迭代或者语句。例如，在前面的打印屏幕和打印机共有字体的例子中，程序不断将打印机字体和给定的屏幕字体作比较，甚至在已经找到了一个相符的打字机字体后还在继续寻找。对这个函数有一个效率更高的改进版，在此，只要找到相匹配的字体后就立即退出循环：
PrivateSubForm_Click()
DimSFont,PFont
ForEachSFontInScreen.Fonts()
ForEachPFontInPrinter.Fonts()
IfSFont=PFontThen
PrintSfont
ExitFor'退出内圈循环。
EndIf
NextPFont
NextSFont
EndSub
正如此例所表明的，Exit语句几乎总是出现在If语句或SelectCase语句内部，而If语句或SelectCase语句在循环内嵌套。
用Exit语句中断循环时，计数器变量的值会因退出循环的方式而不同：
1.在完成循环时，计数器的值等于上限值加上步进值。
2.在提前退出循环时，计数器变量保持其值，并遵从有关取值范围的一般规则。
3.在集合之外叠代时，如果计数器变量为Object类型，则其值为Nothing；如果计数器变量为Variant类型，则其值为Empty。
退出子过程或函数过程
也可从控制结构内部退出过程。ExitSub和ExitFunction的语法，和上一节“退出控制结构”中的ExitFor和ExitDo相似。ExitSub可以出现在子过程主体内的任何地方，出现的次数随需要而定。
当过程已完成每个任务并可直接返回时，ExitSub和ExitFunction是非常有用的。例如，如果想改动前面的例子，使得对查找到的打印机和屏幕的共有字体，只打印其中的第一个，则可用ExitSub：
PrivateSubForm_Click()
DimSFont,PFont
ForEachSFontInScreen.Fonts()
ForEachPFontInPrinter.Fonts()
IfSFont=PFontThen
PrintSfont
ExitSub'退出过程。
EndIf
NextPFont
NextSFont
EndSub
-