by
Sep 09. 2020
#14강 반복문 실습
http://www.yes24.com/Product/Goods/84909299
1에서 100까지 2의 배수에 대한 총합을 구하시오.
Sub F14_01()
Dim FI , T_SUM As Integer
T_SUM = 0
For FI = 1 To 100 Step 2
T_SUM = T_SUM + FI
Next
MsgBox T_SUM
End Sub
핵심은 2의 배수를 계속 더해주기 위해 STEP 2를 작성한 부분이다.
다음음 FOR문을 사용하여 구구단 중 3단을 출력하는 프로그램이다.
Sub F14_02()
Dim I As Integer
For I = 1 To 9
Worksheets(“Sheet1”).Cells(2, I + 1).Value = 3 * I
Next
End Sub
FOR문을 위한 자동증가변수인 I를 선언하고 STEP은 지정되지 않았다.
따라서 자동 증가변수 I의 기본증가값은 1이 된다.
입력된 셀의 행은 고정되어 있으므로 자동증가 변수 I를 활용하여 행의 위치를 한 칸씩 더하여 증가시킨다.
또한 입력될 값, 즉 구구단 중 3단의 결과 역시 자동증가변수를 곱하여 출력하면 된다.
