자동로그인  
VBA로 배우는 알고리즘
 
작성일 : 10-06-04 14:27
1+(1+2)+(1+2+3)+…+(1+2+3+…+100)까지의 합을 구하시오
 글쓴이 : 한글닷컴
조회 : 2,567  

1+(1+2)+(1+2+3)+…+(1+2+3+…+100)까지의 합을 구하시오
(자료명세표, 문제분석, 처리과정, NS차트, VBA소스까지 작성할 것.)

 

@자료명세표

자료명

변수명

특징

상수 최대값

MAX

합계를 구할 범위의 최대치를 지정

변수 숫자

sum

1부터 특정 숫자까지 합계를 저장

변수 합계

total

각 합계를 누적

변수 증가치

i, j

1씩 증가시킬 숫자 변수

 

@ 문제분석 : 1부터 100이하의 특정 숫자까지의 합을 반복 누적시켜 최종 100까지의 반복된 숫자의 합을 구한다.

 

@ 처리과정 :

1. i를 100까지 반복한다.
2.1. j를 i까지 반복한다.
2.2. sum과 j의 합을 sum에 대입한다.
2. total과 sum의 합을 total에 대입한다.
3. total 값을 출력한다.

 

@ NS차트

START

MAX = 100, num, sum, I, j

total = 0, sum = 0

 

for i = 1 to MAX

 

 

for j = 1 to i

 

 

sum = sum + j

 

total = total + sum

msgbox total

STOP

 

@ VBA 소스

Sub 문제풀이()

    Const MAX As Integer = 100
    Dim num As Long, sum As Long
    Dim i As Integer, j As Integer

    sum = 0
    num = 0

    For i = 1 To MAX
        For j = 1 To i
            num = num + j
        Next j
        sum = sum + num
    Next i

    MsgBox sum

End Sub

 

@ 실행결과