一、Do…Loop語句的語法

Do[While I Until<邏輯表達(dá)式>]

<循環(huán)體>

Loop[While I Until<邏輯表達(dá)式>]

當(dāng)邏輯表達(dá)式的值為True時(shí)，使用While關(guān)鍵字執(zhí)行循環(huán)體，直到邏輯表達(dá)式的值為False時(shí)跳出循環(huán)體，即執(zhí)行Do While-Loop循環(huán)語句。

當(dāng)邏輯表達(dá)式的值為False時(shí)，使用Until關(guān)鍵字執(zhí)行循環(huán)體，直到邏輯表達(dá)式的值為True時(shí)跳出循環(huán)體，即執(zhí)行Do Until-Loop循環(huán)語句。

在大多數(shù)情況下Do while.Loop循環(huán)語句與Do Until—Loop循環(huán)語句可以互換使用，只需將循環(huán)條件取反即可。但對于需要先判斷再執(zhí)行的一些操作，最好使用Do While-Loop循環(huán)語句。

另外，使用Do-Loop循環(huán)語句時(shí)，需要在循環(huán)體內(nèi)使用“Exit Do”語句跳出Do-Loop循環(huán)，進(jìn)而執(zhí)行Loop后面的一條語句。

二、do…loop的幾個(gè)例子

①例子

Dim myCnt As Long

myCnt = 1

Do While myCnt <= 5

Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

myCnt = myCnt + 1

Loop

當(dāng)myCnt小于等于5時(shí)循環(huán)，否則就退出循環(huán)。

②例子

Dim myCnt As Long

myCnt = 1

Do

Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

myCnt = myCnt + 1

Loop While myCnt<=5

③例子

Dim myCnt As Long

myCnt = 1

Do

Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

myCnt = myCnt + 1

If myCnt>5 Then Exit Do

Loop

④例子

counter = 0

myNum = 9

Do Until myNum = 10

myNum = myNum - 1

counter = counter + 1

If myNum < 10 Then Exit Do

Loop

MsgBox "The loop made " & counter & " repetitions."