====== 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 목차로 돌아가기]]