VB循環(huán)結(jié)構(gòu)：
創(chuàng)新互聯(lián)建站服務(wù)緊隨時(shí)代發(fā)展步伐，進(jìn)行技術(shù)革新和技術(shù)進(jìn)步，經(jīng)過10多年的發(fā)展和積累，已經(jīng)匯集了一批資深網(wǎng)站策劃師、設(shè)計(jì)師、專業(yè)的網(wǎng)站實(shí)施團(tuán)隊(duì)以及高素質(zhì)售后服務(wù)人員，并且完全形成了一套成熟的業(yè)務(wù)流程，能夠完全依照客戶要求對網(wǎng)站進(jìn)行成都網(wǎng)站制作、網(wǎng)站建設(shè)、建設(shè)、維護(hù)、更新和改版，實(shí)現(xiàn)客戶網(wǎng)站對外宣傳展示的首要目的，并為客戶企業(yè)品牌互聯(lián)網(wǎng)化提供全面的解決方案。
1）For型結(jié)構(gòu)（已知起始和終點(diǎn)）：FOR
I
=
起始
To
終點(diǎn)
[Step
by
n/-n;
n不能為0，默認(rèn)不寫n=1]
2）While結(jié)構(gòu)：
2.1）While（條件）
語句體
Loop
2.2）
Do
語句體
Loop
While（條件）
3）Until循環(huán)：
3.1）Do
Until（條件）
語句體
Loop
3.2）Do
語句體
Loop
Until（條件）
其中While和Until的區(qū)別是：while是條件為假的是否退出（即：不滿足while的條件while就不做了）。Until是條件為真是退出（滿足條件后才推出）。
Do開頭的至少無條件做一次。
值傳遞和地址傳遞(引用)的而導(dǎo)致的問題。
在For Each 的時(shí)候
當(dāng)對象是值對象的時(shí)候，等于獲得到一個(gè)副本。
當(dāng)對象是引用對象的時(shí)候，則是獲得到一個(gè)指針。
而在For To 的時(shí)候
無論對象是什么，你都獲得到這個(gè)集合指定位置的指針。
更詳細(xì)的，可以請參考以下內(nèi)容，或直接去官方的MSDN了解
關(guān)于值類型和引用類型:
如果數(shù)據(jù)類型在它自己的內(nèi)存分配中存儲(chǔ)數(shù)據(jù)，則該數(shù)據(jù)類型就是“值類型”?！耙妙愋汀卑赶虼鎯?chǔ)數(shù)據(jù)的其他內(nèi)存位置的指針。
值類型
值類型包括：
所有數(shù)字?jǐn)?shù)據(jù)類型
Boolean、Char 和 Date
所有結(jié)構(gòu)，即使其成員是引用類型
枚舉，因?yàn)槠浠A(chǔ)類型總是 SByte、Short、Integer、Long、Byte、UShort、UInteger
或 ULong
引用類型
引用類型包括：
String
所有數(shù)組，即使其元素是值類型
類類型，如 Form
委托
非類型的元素
以下編程元素未限定為類型，因?yàn)槟鸁o法將它們中的任何一個(gè)指定為聲明元素的數(shù)據(jù)類型：
命名空間
模塊
事件
屬性和過程
變量、常數(shù)和字段
使用對象數(shù)據(jù)類型
可以將引用類型或值類型指派給 Object 數(shù)據(jù)類型的變量。Object
變量總是存儲(chǔ)指向數(shù)據(jù)的指針，從不存儲(chǔ)數(shù)據(jù)本身。然而，如果將值類型指派給 Object 變量，則 Object
變量將表現(xiàn)得像存儲(chǔ)自己的數(shù)據(jù)一樣。有關(guān)更多信息，請參見 Object 數(shù)據(jù)類型。
通過將 Object 變量傳遞給 Microsoft.VisualBasic
命名空間中 Information
類的 IsReference
方法，可以確定該變量是用作引用類型還是值類型。如果 Object 變量的內(nèi)容表示引用類型，則 Information.IsReference 返回 True。
1.While...Wend 語句
只要指定的條件為 True，則會(huì)重復(fù)執(zhí)行一系列的語句。
語法
While condition
[statements]
..
Wend
2.Do...Loop
2.1 第一種用法
用 Do 循環(huán)重復(fù)執(zhí)行一語句塊，且重復(fù)次數(shù)不定。Do...Loop 語句有幾種演變形式，但每種都計(jì)算數(shù)值條件以決定是否繼續(xù)執(zhí)行。如同 If...Then condition 必須是一個(gè)數(shù)值或者值為 True（非零）或 False（零）的表達(dá)式。
在下面的 Do...Loop 循環(huán)中，只要 condition 為 True 就執(zhí)行 statements。
Do While condition
statements
..
Loop
2.2 第二種用法
Do...Loop 語句的另一種演變形式是先執(zhí)行語句，然后在每次執(zhí)行后測試 condition。這種形式保證 statements 至少執(zhí)行一次：
Do
statements
Loop While condition
注:其它兩種演變形式類似于前兩個(gè)，所不同的是，只要 condition 為 False 而不是 True，它們就執(zhí)行循環(huán)。
循環(huán)零次或多次
Do Until condition
statements
Loop
至少循環(huán)一次
Do
statements
Loop Until condition
3.For...Next
在不知道循環(huán)內(nèi)需要執(zhí)行多少次語句時(shí)，宜用 Do 循環(huán)。但是，在知道要執(zhí)行多少次時(shí)，則最好使用 For...Next 循環(huán)。與 Do 循環(huán)不同， For 循環(huán)使用一個(gè)叫做計(jì)數(shù)器的變量，每重復(fù)一次循環(huán)之后，計(jì)數(shù)器變量的值就會(huì)增加或者減少。For 循環(huán)的語法如下：
For counter = start To end [Step increment]
statements
Next [counter]
參數(shù) Counter、Start、end 和 increment 都是數(shù)值型的。
注意 increment 參數(shù)可正可負(fù)。如果 increment 為正，則 Start 必須小于等于 end，否則不能執(zhí)行循環(huán)內(nèi)的語句。如果 increment 為負(fù)，則 Start 必須大于等于 end，這樣才能執(zhí)行循環(huán)體。如果沒有設(shè)置 Step，則 increment 缺省值為 1。
實(shí)例：
以下代碼打印出所有有效的屏幕字體名：
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 循環(huán)與 For...Next 循環(huán)類似，但它對數(shù)組或?qū)ο蠹现械拿恳粋€(gè)元素重復(fù)一組語句，而不是重復(fù)語句一定的次數(shù)。如果不知道一個(gè)集合有多少元素， For Each...Next 循環(huán)非常有用。
For Each...Next 循環(huán)的語法如下：
For Each element In group
statements
Next elementt
例如，下面的子過程打開 Biblio.mdb，把每一個(gè)表的名字加到列表框中。
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 時(shí)的幾點(diǎn)限制：
對集合，element 只能是 Variant 變量，或一般的 Object 變量，或“對象瀏覽器”中列出的對象。
對數(shù)組，element 只能是 Variant 變量。
For Each...Next 不能與用戶自定義類型的數(shù)組一起使用，因?yàn)?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屬性設(shè)置：AutoSize設(shè)置為F，Size設(shè)置為440，190，BACKCOLOR設(shè)置為WHITE
重慶分公司
重慶分公司
