문법1 : Do While

 Do While 조건
   명령문
 Loop

조건이 참일 동안에는 명령문을 반복수행합니다.

    Dim K As Integer
    Wait 500
    K = 0
    Do While K <20          'K값이 20보다 작다면 루프실행.
          K = K + 1
          Debug Dec K,Cr   '결과는 1부터 20까지 Debug창에 표시됨.
          Wait 200
    Loop

문법2 : Do Until

 Do Until 조건
     명령문
 Loop

조건이 거짓인 동안에는 명령문을 반복수행합니다.

    Dim K As Integer
    Wait 500
    K = 0
    Do 
          K = K + 1
          Debug Dec K,Cr   '결과는 1부터 20까지 Debug창에 표시됨.
          Wait 200
    Loop Until K > 19       'K값이 19보다 커질때까지 루프실행.

문법3 : 무한루프

 Do
    명령문
 Loop

조건식이 없으면 무한 루프입니다. 무한루프를 탈출하기 위해서는 Exit Do명령을 사용합니다.

     K = 0
     Do
        K = K + 1
        If K > 200 Then Exit Do   'Ad결과가 200을 초과하면 루프탈출
         Debug Dec K,cr
        Wait 200
    Loop

명령어 목록으로 가기