目錄
{tocify} $title={目錄}
Do While...Loop 迴圈處理
如果需要在滿足某條件時做重複處理，可使用 Do while 條件進行處理，
最後要以Loop結尾。 如果不寫上Loop會發生錯誤。
Do Loop的陳述式，可以分為兩種
1. 把條件寫在Do 後方
Do while 條件
重複處理
Loop
2. 把條件寫在 Loop後方
Do
重複處理
Loop while 條件
兩者之間的差異在於，第一種方式在一開始就作條件的判斷處理，
因此有可能連1次的處理都還沒做，就已經跳出Loop的迴圈處理
而第二種方式由於條件寫在Loop的後方，
所以在程式執行的時候，就會先進行一次的處理，在進行判斷。
設計者可以依照情況，使用這兩種設計方式進行處理。
基本格式
Point!
Do While 條件式
要跑迴圈重複處理的部分
Loop
範例
Sub DoWhileLoop()
' 當滿足條件時,進行重複處理
' 基本格式
' Do While 條件式
' 重複處理
' Loop
' 宣告變數及初期值
Dim i%: i = 1
Dim result%: result = 0
' Do While 重複處理
Do While i <= 10
result = result + i
i = i + 1
Loop
' 顯示 result 的最後結果
MsgBox result
End Sub
執行後的結果如下
關於Do While…Loop 迴圈處理可參考以下連結影片
Do Until...Loop 迴圈處理
基本格式
Point!
Do Until 條件式
要跑迴圈重複處理的部分
Loop
範例
Sub DoUntilLoop()
' 當滿足條件前時,進行重複處理
' 基本格式
' Do Until 條件式
' 重複處理
' Loop
' 宣告變數及初期值
Dim i%: i = 1
Dim result%: result = 0
' Do Until 重複處理 直到i>10
Do Until i > 10
result = result + i
i = i + 1
Loop
' 顯示 result 的最後結果
MsgBox result
End Sub
執行後的結果如下
關於Do Until…Loop 迴圈處理可參考以下連結影片
Do ...Loop Ｗhile 至少執行一次的處理
如果需要在滿足某條件時做重複處理之前，進行至少一次處理時，
可使用 Do ...Loop while 條件進行處理，
此時條件寫在Loop While的後方，表示在進行while之前，
Do會先進行一次處理。
Do Loop的陳述式，可以分為兩種
1. 把條件寫在Do 後方
Do while 條件
重複處理
Loop
2. 把條件寫在 Loop後方
Do
重複處理
Loop while 條件
兩者之間的差異在於，第一種方式在一開始就作條件的判斷處理，
因此有可能連1次的處理都還沒做，就已經跳出Loop的迴圈處理
而第二種方式由於條件寫在Loop的後方，
所以在程式執行的時候，就會先進行一次的處理，在進行判斷。
設計者可以依照情況，使用這兩種設計方式進行處理。
基本格式
Point!
Do
要跑迴圈重複處理的部分
Loop While 條件式
範例
Sub DoLoopAtLeastOneTime()
' 最少執行一次處理
' 基本格式
' Do
' 重複處理~
' Loop Until While 條件式
' 宣告變數及初期值~
Dim i%: i = 1
Dim result%: Result = 0
' 至少先做一次處理~
Do
result = result + i
i = i + 1
Loop While i <= 10
' 顯示 result 的最後結果
MsgBox result
End Sub
執行後的結果如下
關於Do…Loop while 條件迴圈處理可參考以下連結影片
Do ...Loop Until 至少執行一次的處理
基本格式
Point!
Do
要跑迴圈重複處理的部分
Loop Until 條件式
範例
Sub DoLoopAtLeastOneTime()
' 最少執行一次處理
' 基本格式
' Do
' 重複處理
' Loop Until{/} While 條件式
' 宣告變數及初期值
Dim i%: i = 1
Dim result%: Result = 0
' 至少先做一次處理
Do
result = result + i
i = i + 1
Loop Until i > 10
' 顯示 result 的最後結果
MsgBox result
End Sub
執行後的結果如下
關於Do…Loop Until 條件迴圈處理可參考以下連結影片