VB循环语句的用法

1.While...Wend语句只要指定的条件为True，则会重复执行一系列的语句。语法Whilecondition[statements]..Wend2.Do...Loop2.1第一种用法用Do循环重复执行一语句块，且重复次数不定。Do...Loop语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同If...Thencondition必须是一个数值或者值为True（非零）或False（零）的表达式。在下面的Do...Loop循环中，只要condition为True就执行statements。DoWhileconditionstatements..Loop2.2第二种用法Do...Loop语句的另一种演变形式是先执行语句，然后在每次执行后测试condition。这种形式保证statements至少执行一次：DostatementsLoopWhilecondition注:其它两种演变形式类似于前两个，所不同的是，只要condition为False而不是True，它们就执行循环。循环零次或多次DoUntilconditionstatementsLoop至少循环一次DostatementsLoopUntilcondition3.For...Next在不知道循环内需要执行多少次语句时，宜用Do循环。但是，在知道要执行多少次时，则最好使用For...Next循环。与Do循环不同，For循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For循环的语法如下：Forcounter=startToend[Stepincrement]statementsNext[counter]参数Counter、Start、end和increment都是数值型的。注意increment参数可正可负。如果increment为正，则Start必须小于等于end，否则不能执行循环内的语句。如果increment为负，则Start必须大于等于end，这样才能执行循环体。如果没有设置Step，则increment缺省值为1。实例：以下代码打印出所有有效的屏幕字体名：PrivateSubForm_Click()DimIAsIntegerFori=0ToScreen.FontCountPrintScreen.Fonts(i)NextEndSub4.ForEach...NextForEach...Next循环与For...Next循环类似，但它对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素，ForEach...Next循环非常有用。ForEach...Next循环的语法如下：ForEachelementIngroupstatementsNextelementt例如，下面的子过程打开Biblio.mdb，把每一个表的名字加到列表框中。SubListTableDefs()DimobjDbAsDatabaseDimMyTableDefasTableDefSetobjDb=OpenDatabase(c:\vb\biblio.mdb,_True,False)ForEachMyTableDefInobjDb.TableDefs()List1.AddItemMyTableDef.NameNextMyTableDefEndSub请记住使用ForEach...Next时的几点限制：对集合，element只能是Variant变量，或一般的Object变量，或“对象浏览器”中列出的对象。对数组，element只能是Variant变量。ForEach...Next不能与用户自定义类型的数组一起使用，因为Variant不可能包含用户自定义类型。