VB迴圈語句

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 至少執行一次：

dostatements

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)

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迴圈語句

VB的判斷語句和迴圈語句

VB迴圈結構

迴圈語句python Python 迴圈語句

VB迴圈語句

VB的判斷語句和迴圈語句

VB迴圈結構

迴圈語句python Python 迴圈語句

相關推薦