For...Next

For…Next 문은 지정된 횟수만큼 명령을 반복하여 실행합니다.

    For 변수 = 시작값 To 종료값 [Step 증감값] 
        [실행문]
        [Exit For]
    Next

기본적으로 증감값(Step)을 설정하지 않으면 반복할 때마다 변수값이 1씩 증가합니다.

Dim K As Long
' 0부터 10까지 1씩 증가하며 반복
For K = 0 To 10
   Debug Dec K, CR
Next
 
' Step -1을 사용하여 10부터 0까지 감소하며 반복
For K = 10 To 0 Step -1 
   Debug Dec K, CR
Next

반복 도중 특정 조건이 만족되면 Exit For를 사용하여 즉시 루프를 빠져나올 수 있습니다.

For K = 0 To 10
  Debug Dec K, CR
  If K = 8 Then Exit For ' K가 8이 되면 루프 종료
Next

반복문에 사용할 변수는 종료값보다 더 큰 값을 담을 수 있는 타입이어야 합니다.

' [오류] 무한 루프 (K가 256이 될 수 없음)
Dim K As Byte
For K = 0 To 255 
  Debug Dec K, CR
Next
 
' [정상] 254까지는 Byte 사용 가능
Dim K As Byte
For K = 0 To 254
  Debug Dec K, CR
Next

참고: 255 이상의 횟수를 반복해야 한다면 고민하지 말고 Integer 타입을 사용하시는 것이 가장 확실하고 안전합니다.

Dim A As Integer
For A = 1 To 9
  Debug "3 * ", Dec A, " = ", Dec 3 * A, Cr
Next

Dim A As Integer, B As Integer
For A = 2 To 9
  For B = 1 To 9
    Debug Dec A, " * ", Dec B, " = ", Dec A * B, Cr
  Next
  Debug Cr ' 단이 바뀔 때 줄바꿈
Next

← CUBLOC2 목차로 돌아가기