189 8069 5689
VB循环结构：
创新互联建站服务紧随时代发展步伐，进行技术革新和技术进步，经过10多年的发展和积累，已经汇集了一批资深网站策划师、设计师、专业的网站实施团队以及高素质售后服务人员，并且完全形成了一套成熟的业务流程，能够完全依照客户要求对网站进行成都网站制作、网站建设、建设、维护、更新和改版，实现客户网站对外宣传展示的首要目的，并为客户企业品牌互联网化提供全面的解决方案。
1）For型结构（已知起始和终点）：FOR
I
=
起始
To
终点
[Step
by
n/-n;
n不能为0，默认不写n=1]
2）While结构：
2.1）While（条件）
语句体
Loop
2.2）
Do
语句体
Loop
While（条件）
3）Until循环：
3.1）Do
Until（条件）
语句体
Loop
3.2）Do
语句体
Loop
Until（条件）
其中While和Until的区别是：while是条件为假的是否退出（即：不满足while的条件while就不做了）。Until是条件为真是退出（满足条件后才推出）。
Do开头的至少无条件做一次。
值传递和地址传递(引用)的而导致的问题。
在For Each 的时候
当对象是值对象的时候，等于获得到一个副本。
当对象是引用对象的时候，则是获得到一个指针。
而在For To 的时候
无论对象是什么，你都获得到这个集合指定位置的指针。
更详细的，可以请参考以下内容，或直接去官方的MSDN了解
关于值类型和引用类型:
如果数据类型在它自己的内存分配中存储数据，则该数据类型就是“值类型”。“引用类型”包含指向存储数据的其他内存位置的指针。
值类型
值类型包括：
所有数字数据类型
Boolean、Char 和 Date
所有结构，即使其成员是引用类型
枚举，因为其基础类型总是 SByte、Short、Integer、Long、Byte、UShort、UInteger
或 ULong
引用类型
引用类型包括：
String
所有数组，即使其元素是值类型
类类型，如 Form
委托
非类型的元素
以下编程元素未限定为类型，因为您无法将它们中的任何一个指定为声明元素的数据类型：
命名空间
模块
事件
属性和过程
变量、常数和字段
使用对象数据类型
可以将引用类型或值类型指派给 Object 数据类型的变量。Object
变量总是存储指向数据的指针，从不存储数据本身。然而，如果将值类型指派给 Object 变量，则 Object
变量将表现得像存储自己的数据一样。有关更多信息，请参见 Object 数据类型。
通过将 Object 变量传递给 Microsoft.VisualBasic
命名空间中 Information
类的 IsReference
方法，可以确定该变量是用作引用类型还是值类型。如果 Object 变量的内容表示引用类型，则 Information.IsReference 返回 True。
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 不可能包含用户自定义类型。
Public Class Form1
For i = 1 To 9
For j = 1 To 9
If j = i Then
Label1.Text = Label1.Text " " i "*" j "=" IIf(i * j 9, i * j, i * j " ")
End If
Next
Label1.Text = Label1.Text vbCrLf
Next
End Sub
End Class
label属性设置：AutoSize设置为F，Size设置为440，190，BACKCOLOR设置为WHITE