Do...Loop Statement
์กฐ๊ฑด์ด True์ด๊ฑฐ๋ ์กฐ๊ฑด์ด True๊ฐ ๋ ๋๊น์ง Do ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ์ ๋ฐ๋ณตํฉ๋๋ค.
๊ตฌ๋ฌธ
Do [{While | Until} condition = True]๋ฌธ ๋ธ๋ก
[Exit Do]๋ฌธ ๋ธ๋ก
Loop๋๋
Do๋ฌธ ๋ธ๋ก
[Exit Do]๋ฌธ ๋ธ๋ก
Loop [{While | Until} condition = True]๋งค๊ฐ ๋ณ์/์์
Condition: True ๋๋ False๋ฅผ ํ๊ฐํ๋ ๋น๊ต, ์ซ์ ๋๋ ๋ฌธ์์ด ์์ ๋๋ค.
๋ฌธ ๋ธ๋ก: ์กฐ๊ฑด์ด True์ธ ๋์ ๋๋ True๊ฐ ๋ ๋๊น์ง ๋ฐ๋ณตํ ๋ฌธ์ ๋๋ค.
Do...Loop ๋ฌธ์ ํน์ ์กฐ๊ฑด์ด True์ธ ๋์ ๋๋ True๊ฐ ๋ ๋๊น์ง ๋ฃจํ๋ฅผ ์คํํฉ๋๋ค. Do ๋๋ Loop ๋ฌธ ๋ค์์ ๋ฃจํ๋ฅผ ์ข ๋ฃํ๊ธฐ ์ํ ์กฐ๊ฑด์ ์ ๋ ฅํด์ผ ํฉ๋๋ค. ๋ค์์ ์๋ ์ ํจํ ๋ฌธ ๊ฒฐํฉ์ ๋ณด์ฌ ์ค๋๋ค.
๊ตฌ๋ฌธ
Do While condition = True...๋ฌธ ๋ธ๋ก
LoopDo While ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ ๋ธ๋ก์ ์กฐ๊ฑด์ด True์ผ ๋์ ๋ฐ๋ณตํฉ๋๋ค.
Do Until condition = True...๋ฌธ ๋ธ๋ก
LoopDo Until ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ ๋ธ๋ก์ ์กฐ๊ฑด์ด False์ผ ๋์ ๋ฐ๋ณตํฉ๋๋ค.
Do...๋ฌธ ๋ธ๋ก
Loop While condition = TrueDo ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ ๋ธ๋ก์ ์กฐ๊ฑด์ด True์ผ ๋์ ๋ฐ๋ณตํฉ๋๋ค.
Do...๋ฌธ ๋ธ๋ก
Loop Until condition = TrueDo ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ ๋ธ๋ก์ ์กฐ๊ฑด์ด True๊ฐ ๋ ๋๊น์ง ๋ฐ๋ณตํฉ๋๋ค.
๋ฃจํ๋ฅผ ๋ฌด์กฐ๊ฑด ์ข ๋ฃํ๋ ค๋ฉด Exit Do ๋ฌธ์ ์ฌ์ฉํฉ๋๋ค. ์ด ๋ฌธ์ Do...Loop ๋ฌธ์์ ์์์ ์์น์ ์ถ๊ฐํ ์ ์์ต๋๋ค. ๋ํ ๋ค์๊ณผ ๊ฐ์ด If...Then ๊ตฌ์กฐ๋ฅผ ์ฌ์ฉํ์ฌ ์ข ๋ฃ ์กฐ๊ฑด์ ์ง์ ํ ์๋ ์์ต๋๋ค.
Do...๋ฌธ
If condition = True Then Exit Do๋ฌธ
Loop...์
Sub ExampleDoLoop
Dim sFile As String
Dim sPath As String
sPath = "c:\"
sFile = Dir$( sPath ,22)
If sFile <> "" Then
Do
MsgBox sFile
sFile = Dir$
Loop Until sFile = ""
End If
End Sub