Visual Basic程序設計（簡體書）

語句的執行過程是：首先執行循環體中語句，然后判斷“循環條件”，如果條件為True，則繼續執行循環體，否則，退出循環結構。
格式2：
Do
<循環體>
LoopUntil<循環條件>
格式2的執行過程和格式l基本一樣，也是先執行后判斷。唯一不同的是，它在“循環條件”為假時重復執行循環體，直到條件為真時退出循環結構。
While和Until的區別：While屬于“當型循環”，與循環條件相結合表示當循環條件成立，才進行循環體的執行；Until屬于“直到型循環”，與循環條件結合表示直到條件成立時才退出循環。While引出繼續循環的條件，而Until引出退出循環的條件。
【例4.11】利用Do型循環語句編寫程序，計算1+2+3+…+100的值。
在窗體的加載事件中編寫代碼如下：
Option Explicit
Private Sub Form—Load（）
DimiAsInteger
Dim sum As Integer
i=1
sum=0
DoWhilei<=100>
sam=sum+i
i=i+1
Loop
MsgBox（“sum=”+Str（sum））
EndSub
如果改為在后判斷循環條件，則循環部分的代碼為：
Do
sum=sum+i
i=i+1
LoopWhilei<=100>
如果用Until來描述條件，則其后的條件是退出循環的條件。因此，While后的循環條件是i≤100，而在Until后的退出循環的條件應該改為i>100。程序如下：
Do Until i>100
sum=sum+i
i=i+1
Loop
再改寫成Until出現在循環語句的
后面，程序如下：
Do
sam=sum+i
i=i+1
LoopUntili>100
4.4.3 While…Wend語句
While…Wend循環語句語法格式如下：
While<循環條件>
<循環體>
Wend
說明：
（1）<循環條件>可以是關系表達式、布爾表達式或數值表達式，Visual Basic將這個表達式的值解釋為True或False。如果以數值表達式作為條件，則一個為0的數值被作為False，其他非0數值都為True。
（2）語句的執行過程：檢測“條件”，如果為True，則執行循環體巾語句，否則退出循環結構。重復執行上述操作，在“條件”為True時重復執行循環體，一直到條件為False時退出循環語句。
（3）如果條件一開始就不成立，則循環體一次也不會被執行。
（4）該語句也屬于“當型循環”，類似于Do While…Loop型循環語句。
【例4.12】 利用While…Wend循環語句編寫程序，計算1+2+3+…+100的值。