자동로그인  
VBA로 배우는 알고리즘
 
작성일 : 10-06-04 13:12
1+3+5+7+…+99의 합을 구하시오.
 글쓴이 : 한글닷컴
조회 : 2,203  

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

 

@자료명세표

자료명

변수명

특징

상수 최대값

MAX

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

상수 증가값

DELTA

합계를 구할 숫자의 증가치를 지정

변수 숫자

number

합계를 구할 숫자들

변수 합계

sum

합계

 

@ 문제분석 : number의 크기가 MAX보다 커질 때 까지 2씩 증가시키면서 합을 구한다.

 

@ 처리과정 :

1. 1부터 MAX까지 반복한다.
1.1. 합계를 구한다.
1.2. 숫자를 2씩 증가시킨다.
2. 출력한다.
3. STOP

 

@ NS차트

START

MAX = 99, DELTA = 2, number, sum

sum = 0

for number = 1 to MAX

sum = sum + number

number = number + DELTA

msgbox sum

STOP

 

@ VBA 소스

Sub 문제풀이()

Const MAX As Integer = 99
Const DELTA As Integer = 2
Dim i As Integer, sum As Integer

sum = 0

For i = 1 To MAX
sum = sum + i
i = i + DELTA
Next i

MsgBox "합계는" & sum & "입니다"

End Sub

 

@ 실행결과