VB各种循环语句

转载 2011年01月18日 16:08:00

1.While...Wend 语句
只要指定的条件为 True,则会重复执行一系列的语句。
语法
While condition
[statements]
..
Wend

2.Do...Loop

2.1 第一种用法
用 Do 循环重复执行一语句块,且重复次数不定。Do...Loop 语句有几种演变形式,但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True(非零)或 False(零)的表达式。
在下面的 Do...Loop 循环中,只要 condition 为 True 就执行 statements。
Do While condition
statements
..
Loop

2.2 第二种用法
Do...Loop 语句的另一种演变形式是先执行语句,然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次:
Do
statements
Loop While condition
注:其它两种演变形式类似于前两个,所不同的是,只要 condition 为 False 而不是 True,它们就执行循环。
循环零次或多次
Do Until condition
   statements
Loop
至少循环一次
Do
   statements
Loop Until condition

3.For...Next

在不知道循环内需要执行多少次语句时,宜用 Do 循环。但是,在知道要执行多少次时,则最好使用 For...Next 循环。与 Do 循环不同, For 循环使用一个叫做计数器的变量,每重复一次循环之后,计数器变量的值就会增加或者减少。For 循环的语法如下:
For counter = start To end [Step increment]
statements
Next [counter]
参数 Counter、Start、end 和 increment 都是数值型的。
注意 increment 参数可正可负。如果 increment 为正,则 Start 必须小于等于 end,否则不能执行循环内的语句。如果 increment 为负,则 Start 必须大于等于 end,这样才能执行循环体。如果没有设置 Step,则 increment 缺省值为 1。
实例:
以下代码打印出所有有效的屏幕字体名:
Private Sub Form_Click ()
Dim I As Integer
For i = 0 To Screen.FontCount
   Print Screen.Fonts (i)
Next
End Sub

4.For Each...Next

For Each...Next 循环与 For...Next 循环类似,但它对数组或对象集合中的每一个元素重复一组语句,而不是重复语句一定的次数。如果不知道一个集合有多少元素, For Each...Next 循环非常有用。
For Each...Next 循环的语法如下:
For Each element In group
statements
Next elementt
例如,下面的子过程打开 Biblio.mdb,把每一个表的名字加到列表框中。
Sub ListTableDefs ()
Dim objDb As Database
   Dim MyTableDef as TableDef
Set objDb = OpenDatabase("c:/vb/biblio.mdb", _
True, False)
For Each MyTableDef In objDb.TableDefs ()
   List1.AddItem MyTableDef.Name
Next   MyTableDef
End Sub
请记住使用 For Each...Next 时的几点限制:
对集合,element 只能是 Variant 变量,或一般的 Object 变量,或“对象浏览器”中列出的对象。
对数组,element 只能是 Variant 变量。
For Each...Next 不能与用户自定义类型的数组一起使用,因为 Variant 不可能包含用户自定义类型。

vb.net初学者系列【循环语句】

  • 2008年09月20日 17:50
  • 26KB
  • 下载

vb循环语句实例源代码

  • 2009年04月01日 20:40
  • 628B
  • 下载

vb.net的循环语句

一、For...Next循环 For...Next循环在事件过程中重复执行指定的一组语句,直到达到指定的执行次数为止。当要执行几个相关的运算、操作屏幕上的多个元素或者处理几段用户输入时,这种方法就十...
  • zhvsby
  • zhvsby
  • 2011年10月06日 08:42
  • 585

vb.net 教程 2-4 流程控制:循环语句 For each...Next

当需要为集合或数组的每个元素重复执行一组语句时,可以使用 For Each...Next 循环,通过For Each遍历出每个元素。...

vb.net 教程 2-3 流程控制:循环语句 For...Next 1

For...Next 语句用于执行重复操作 最简单的结构: For 初始值 To 结束值   执行语句块 Next 例如下面的代码: Sub Main() Dim i A...

循环、选择语句

  • 2017年12月05日 10:32
  • 15KB
  • 下载

JACK_C#循环语句

  • 2017年11月23日 09:15
  • 760B
  • 下载

VB.NET 用循环判断文本框是否为空

第一次敲机房的时候,有很多窗体中都有清空文本框或组合框中内容的功能,当时用了循环来做。现在第二次机房重构,发现判断文本框、组合框内容是否为空也可以用循环。其实这些功能最直接的方法就是一个一个的判断,不...

C#052continue循环语句

  • 2016年12月13日 21:24
  • 22KB
  • 下载

11_循环语句举例.avi

  • 2009年08月25日 00:36
  • 3.09MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB各种循环语句
举报原因:
原因补充:

(最多只允许输入30个字)