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
...๋ฌธ ๋ธ๋ก
Loop
Do While ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ ๋ธ๋ก์ ์กฐ๊ฑด์ด True์ผ ๋์ ๋ฐ๋ณตํฉ๋๋ค.
Do Until condition = True
...๋ฌธ ๋ธ๋ก
Loop
Do Until ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ ๋ธ๋ก์ ์กฐ๊ฑด์ด False์ผ ๋์ ๋ฐ๋ณตํฉ๋๋ค.
Do
...๋ฌธ ๋ธ๋ก
Loop While condition = True
Do ๋ฐ Loop ๋ฌธ ์ฌ์ด์ ๋ฌธ ๋ธ๋ก์ ์กฐ๊ฑด์ด True์ผ ๋์ ๋ฐ๋ณตํฉ๋๋ค.
Do
...๋ฌธ ๋ธ๋ก
Loop Until condition = True
Do ๋ฐ 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