====== For...Next ====== ''For...Next'' 문은 지정된 횟수만큼 명령을 반복하여 실행합니다. For 변수 = 시작값 To 종료값 [Step 증감값] [실행문] [Exit For] Next ==== 1. 기본 사용법 ==== 기본적으로 증감값(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 ==== 2. Exit For (루프 탈출) ==== 반복 도중 특정 조건이 만족되면 ''Exit For''를 사용하여 즉시 루프를 빠져나올 수 있습니다. For K = 0 To 10 Debug Dec K, CR If K = 8 Then Exit For ' K가 8이 되면 루프 종료 Next ==== 3. 변수 형식 선택 시 주의사항 ==== 반복문에 사용할 변수는 **종료값보다 더 큰 값을 담을 수 있는 타입**이어야 합니다. ' [오류] 무한 루프 (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** 타입을 사용하시는 것이 가장 확실하고 안전합니다. ==== 4. 활용 예제 ==== === 예제 1: 구구단 3단 출력 === Dim A As Integer For A = 1 To 9 Debug "3 * ", Dec A, " = ", Dec 3 * A, Cr Next === 예제 2: 중첩 반복문 (구구단 전체) === 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 [[..:index|← CUBLOC2 목차로 돌아가기]]