Do...Loop 문

Do...Loop 문

조건문이 True이거나 True가 될 때까지 블록문을 반복하여 실행합니다.

Do [{While | Until} condition]
  [statements]
  [Exit Do]
  [statements]
Loop

또는 아래 구문도 사용합니다.

Do
  [statements]
  [Exit Do]
  [statements]
Loop [{While | Until} condition]

인수

condition

값이 True 또는 False인 수식이나 문자식입니다. condition이 Null인 경우 False로 취급합니다.

statements

condition이 True이거나 True가 될 때까지 반복해서 실행되는 하나 이상의 문입니다.

참고

Exit Do 문은 Do...Loop 문을 빠져 나가는 방법을 제공하기 위해 Do...Loop 제어 구조 안에서만 사용할 수 있습니다. 여러 개의 Exit Do 문을 Do...Loop 문 안의 아무 곳에 둘 수 있습니다. If...Then과 같은 조건문의 계산을 자주 수행할 경우, Exit Do 문은 Loop 문 바로 뒤에 오는 문에 제어를 전송합니다.

Exit Do 문이 중첩된 Do...Loop 문에 사용되면 이 문은 해당 루프의 한 단계 위에 있는 중첩된 루프에 제어를 전송합니다.

아래 예제는 Do...Loop 문의 사용법을 보여줍니다.

Do Until DefResp = vbNo
   MyNum = Int (6 * Rnd + 1)   ' 1에서 6까지 무작위 정수를 생성합니다.
   DefResp = MsgBox (MyNum & " 다른 수를 원하십니까?", vbYesNo)
Loop

Dim Check, Counter
Check = True: Counter = 0   ' 변수를 초기화합니다.
Do                            ' 외부 루프입니다.
   Do While Counter < 20      ' 내부 루프입니다.
      Counter = Counter + 1   ' Counter를 증가시킵니다.
      If Counter = 10 Then    ' 조건문이 True이면...
         Check = False        ' 플래그 값을 False로 설정합니다.
         Exit Do              ' 내부 루프를 종료합니다.
      End If
   Loop
Loop Until Check = False      ' 외부 루프를 즉시 종료합니다.

요구 사항

버전 1

참고

Exit 문 | For...Next 문 | While...Wend 문