4.4 循環(huán)結(jié)構(gòu)

　　循環(huán)是在指定的條件下多次重復(fù)執(zhí)行一組語(yǔ)句。VB中提供了兩種類型的循環(huán)語(yǔ)句：

　　計(jì)數(shù)循環(huán)語(yǔ)句和條件型循環(huán)語(yǔ)句

　　1. For循環(huán)語(yǔ)句(知道循環(huán)次數(shù)的計(jì)數(shù)型循環(huán))

　　語(yǔ)句形式： For 循環(huán)變量 = 初值To 終值 [ Step 步長(zhǎng)]

　　語(yǔ)句塊

　　[Exit For]

　　語(yǔ)句塊

　　Next 循環(huán)變量

　　說(shuō)明: 1) 循環(huán)變量必須為數(shù)值型

　　2)步長(zhǎng)一般為正，初值小于終值;若為負(fù)，初值大于終值;缺省步長(zhǎng)為1;

　　3)語(yǔ)句塊可以是一句或多句語(yǔ)句，稱為循環(huán)體;

　　4)Exit For 表示當(dāng)遇到該語(yǔ)句時(shí)，退出循環(huán)體;

　　執(zhí)行Next的下一句;

　　循環(huán)次數(shù)=int((終值 - 初值)/步長(zhǎng)+1)

　　5)退出循環(huán)后，循環(huán)變量的值保持退出時(shí)的值;

　　6)在循環(huán)體內(nèi)對(duì)循環(huán)變量可多次引用，但不要對(duì)其賦值，否則影響結(jié)果。

　　2. Do……Loop循環(huán)(不知道循環(huán)次數(shù)的條件型循環(huán))

　　是用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)，語(yǔ)法形式有兩種：

　　形式1：Do While …… Loop

　　Do [ While | Until 條件 ]

　　語(yǔ)句塊

　　[ Exit Do ]

　　語(yǔ)句塊

　　Loop

　　形式2：Do …… Loop While

　　Do

　　語(yǔ)句塊

　　[ Exit Do ]

　　語(yǔ)句塊

　　Loop [ While | Until 條件 ]

　　說(shuō)明：

　　1)形式1為先判斷后執(zhí)行，有可能一次也不執(zhí)行;

　　2)形式2為先執(zhí)行后判斷，至少執(zhí)行一次;

　　3)關(guān)鍵字While 用于指明條件為真時(shí)就執(zhí)行循環(huán)體中的語(yǔ)句，Until剛好相反;

　　4)當(dāng)省略了While|Until 條件字句，即循環(huán)結(jié)構(gòu)僅由 Do……Loop關(guān)鍵字構(gòu)成時(shí)，表示無(wú)條件循環(huán)，這時(shí)循環(huán)體內(nèi)應(yīng)該有Exit Do語(yǔ)句，否則為死循環(huán);

　　5)Exit Do 語(yǔ)句表示當(dāng)遇到該語(yǔ)句時(shí)，退出循環(huán)，執(zhí)行Loop的下一語(yǔ)句。

　　3. 循環(huán)的嵌套

　　指在循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)。循環(huán)嵌套對(duì)For 循環(huán)和Do……Loop循環(huán)均適用。

　　4.5 其它輔助控制語(yǔ)句

　　1.Go To 語(yǔ)句

　　語(yǔ)句形式： Go To 標(biāo)號(hào) | 行號(hào)

　　說(shuō)明：(1)Go To語(yǔ)句只能轉(zhuǎn)移到同一過(guò)程的標(biāo)號(hào)或行號(hào)處;標(biāo)號(hào)是一個(gè)字符系列，首字符必須為字母，與大小寫(xiě)無(wú)關(guān)，任何轉(zhuǎn)移到的標(biāo)號(hào)后面必須有冒號(hào)： ;行號(hào)是一個(gè)數(shù)字序列;

　　(2)以前BASIC中常用此語(yǔ)句，可讀性差;現(xiàn)在要求盡量少用或不用，改用選擇結(jié)構(gòu)或循環(huán)結(jié)構(gòu)來(lái)代替。

　　2.Exit語(yǔ)句

　　用于退出某控制結(jié)構(gòu)的執(zhí)行，VB的Exit語(yǔ)句有多種形式，如：

　　Exit For (退出For循環(huán))

　　Exit Do (退出Do)循環(huán))

　　Exit Sub (退出子過(guò)程)

　　Exit Function(退出函數(shù))

　　3.End 語(yǔ)句

　　獨(dú)立的End語(yǔ)句用于結(jié)束一個(gè)程序的執(zhí)行，可以放在任何事件過(guò)程中，形式為：End

　　VB 的End語(yǔ)句還有多種形式，用于結(jié)束一個(gè)過(guò)程或塊，如：

　　End If， End With， End Type， End Select，End Sub， End Function

　　4.With語(yǔ)句

　　它的作用是可以對(duì)某個(gè)對(duì)象執(zhí)行一系列的語(yǔ)句，而不用重復(fù)指出對(duì)象的名稱。但不能用一個(gè)With語(yǔ)句設(shè)置多個(gè)不同的對(duì)象。屬性前面需要帶點(diǎn)號(hào)“· ”。

　　語(yǔ)句形式如下： With 對(duì)象名

　　語(yǔ)句塊

　　End With

　　例：With form1

　　. Height=3000

　　. Width=4000

　　. BackColor=RGB(255,0,0)

　　End With