您好,欢迎访问三七文档
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不可能包含用户自定义类型。
本文标题:VB循环语句的用法
链接地址:https://www.777doc.com/doc-3264663 .html