문법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