▒ Visual Basic의 기초문법

제어문 소트(sort)

제어문 - 순차, 선택, 반복구조

*프로그램의 일반적 제어구조
어떤 컴퓨터 언어든지 보통 순차, 선택, 반복.. 이 세가지 제어구조를 통해 프로그램의 흐름을 제어하게 된다. 윈도우 프로그램은 OS(Windows95, 98)와 메세지(Message)를 서로 교환하는 이벤트 중심의 프로그램이다. 프로그래머는 이런 이벤트를 확인하며 알맞게 제어된 명령코드를 작성, 프로그래밍을 해야 한다. 원도우즈 프로그래밍을 작성하는 것은 윈도우 OS의 특성을 이해하는 것이 가장 중요하지만 그것 못지 않게 제어구조 같은 기존의 프로그래밍 기초지식도 소홀히 할 순 없다.

* 순차
순차란 소스코드상에서 어떤 선택적 분기없이 위에서 아래로 그대로 흘러가는 것을 뜻한다.

* 선택
선택은 선택적 분기를 의미하는데 조건에 따라 실행의 흐름을 조절하는 구조를 말한다.
- 종류 : If 문, Select Case 문, Call 문, Goto 문, Exit 문
- 주요 선택문
1) If문 : 가장 쓰기 쉬운 선택문 중의 하나지만 복잡한 분기가 필요할 때는
1) if문 : 자제하는 것이 좋다.
2) Select Case 문 : 매우 중요한 선택문이다. 특히 실기시험에서는 필수라고 할 수 있으며
2) 많은 선택적 사항중 하나를 택할 때 유용하다.
3) Call 문 : 프로시저 호출문이다. 사용자 정의, 컨트롤 이벤트 프로시저를 호출할 수 있다.

* 반복
반복은 조건에 따라 일정한 횟수를 실행 영역의 시작과 끝을 반복하는 제어구조이다.
- 종류 : For...Next 문, Do.... Loop문
- For 문과 Do 문의 차이점
For 문의 경우는 인덱스 증감에 따른 반복 제어문인 반면에 Do 문은 좀더 다양한 조건속에서 반복되는 제어문이다. 때에 따라 골라 선택하면 되며 시험시 For문 사용이 많다. 왜냐면 배열과 For 문은 찰떡궁합이므로.

Select Case 문은 왜 많이 사용될 수밖에 없는가?
첫째, 프로그램의 제어구조가 짜임새가 있다는 점이다. IF 문과 비교할 때 그 장점이 두드러지는데 If 문은 짧은 선택의 문제에 대해선 꽤 유용한 제어구조이다. 하지만 이중, 삼중으로 비교를 들어가게 되면 매우 복잡해지며 소스를 작성한 본인 역시 시간이 지나면 헷갈릴 만큼 복잡한 특성을 지닌다.
if <조건> then
if <조건>
...............
else if <조건> then
else
end if

이러한 구조는 인내심을 요구한다. 하지만 Select Case 문은 아래와 같이 분석, 작성이 매우 용이하다.

Select Case <조건>
   Case 선택1 :
      Select Case <조건>
      .................
      End Select
   Case 선택2 :
      Case else
End Select

보기가 편하므로 해독성도 높아지게 된다. 이중 Select Case 문을 써도 역시 IF문 보단 낫다.
둘째, 시험문제의 [참고자료표]를 이용하기 위해선 Select Case 문이 최적화된 제어구조일 수밖에 없다.
예)
고객번호 주소 전화번호
1 서울시 동대문구 .. 333-3343
2 부산 광역시 .. 2323-32334
고객번호는 입력폼에서 입력받는 자료라고 가정하자. 그리고 주소와 전화번호의 경운 참고자료로서만 제공된 상태인데 이 두가지 자료를 고객번호와 함께 출력해야 할 경우 해당 고객번호에 맞게 참조를 해야 한다. 그리고 참조의 위치는 Select Case 문의 선택문에 들어가는 이상적이다.

Select Case 고객번호
   Case "1" : 주소변수 = "서울시..." : 전화번호변수 = "333....."
   Case "2" : 주소변수 = "부산..." : 전화번호변수 = "2323...."
End Select
Select Case 문을 만났을 땐 몇가지 선택중 하나만을 선택해야 한다. 만약 입력폼에서 고객번호를 "2" 로 입력받았다면 Case "2" : ......... 이 부분으로 제어가 넘어가게 된다. Case "1" ...... 쪽은 무시가 된다.
Exit 문의 활용
마지막으로 Exit 문을 살펴보자.
Exit 는 말그대로 '탈출' 을 의미한다. 그럼 언제 '탈출' 을 해야 할까? 예를 들어 최대 레코드수가 7개인데 8번째를 입력하려고 할 때, 프로그램 작성자는 적당한 메세지 박스를 띄워주고 이벤트 프로시저를 벗어나야 한다.
Private Sub Command1_Click()
   If Count <= 7 Then
    Msgbox "최대 레코드수는 7개입니다", VBOK
     Exit Sub
   End If
.............
.............
End Sub

Exit Sub 문장은 Sub, 즉 서브프로시저를 벗어난다는 의미다.

if - then문
if - then문은 조건이 참인가, 거짓인가에 따라서 명령문의 수행여부를 결정한다.
if - then문은 다음과 같은 형식으로 사용할 수 있다.

if 조건 then 실행문 1 Else 실행문 2

if 조건 1 then
   실행문 1-1
   실행문 1-2
[Elseif 조건 2
          실행문 2-1
          실행문 2-2
              :
              :
                ]
End if

조건이 참이라면 Then이하의 명령문을 실행하고, 거짓이면 Else 이하의 명령문을 실행한다.
예) if yourAge>60 then
        Msgbox "당신은 60을 넘었습니다."
     Else
        Msgbox "당신은 60을 넘지 않았습니다."
     End if

* Select - case문

Select - case문은 한가지 조건을 가지고 여러 가지 처리를 하기 위한 제어문이다. Case문으로 계속해서 조건을 판별해 가다가, 어떤 조건도 맞지 않는 경우는 Case Else 이하의 명령문을 실행하도록 되어 있다.

Select 조건
[Case 값 1, [값 2], ....
[명령문 블럭 1]]

    [Case 값 3, [값 4], ....
             [명령문 블럭 2]]
    [Case Else
             [명령문 블럭 3]]
End Select
예) Select Case yourCountry
           Case "한국","일본","중국"
                   Msgbox "당신은 아시아인입니다."
           Case "영국","프랑스","독일"
                   Msgbox "당신은 유럽인입니다."
           Case "미국"
                   Msgbox "당신은 미국인입니다."
                       :
                       :
                       :
           Case Else
              Msgbox "당신은 외계인입니다." '위의 어떤 조건에도 만족하지 않는 경우'

* Do - Loop문
Do - Loop문은 조건에 따라서 계속해서 명령문을 반복해서 실행한다. Do - Loop문은 그 용도에 따라 다시 Do While문과 Do Until문으로 나누어지며 Exit Do 문은 강제로 Do - Loop문을 빠져 나올 때 사용한다.

* Do While문
한 조건이 충족되는 동안 계속해서 Loop를 돌며 명령을 실행한다.

Do While 조건
     명령문
     [Exit Do]
Loop

Do
     명령문
     [Exit Do]
Loop While 조건
앞의 예와 뒤의 예는 조건을 나타내는 While문이 Loop의 앞에 붙었는가 뒤에 붙었는가가 다른데, 이에 따라서 실행의 결과도 달라지게 된다. 앞의 예는 Loop에 들어가기 전에 조건을 보아서 조건이 맞는다면 Loop를 실행한다. 그렇기 때문에 어떤 경우에는 한번도 Loop를 실행하지 않을 수도 있다. 하지만 뒤의 예는 먼저 명령문을 수행한 다음, Loop While에서 Loop를 계속할 것인지를 결정한다. 그러므로 뒤의 예는 최소한 한번은 Loop의 명령문을 수행하도록 되어 있다.

* Do Until문
Do While이 조건을 충족시키는 동안 Loop를 반복하는 데 비해, Do Until의 경우에는 조건이 충족되면 Loop를 빠져 나오게 되어 있다.

Do Until 조건
     명령문
     [Exit Do]
Loop

Do
     명령문
     [Exit Do]
Loop Until 조건

이 때도 마찬가지로 Until이 어느 쪽에 붙었냐에 따라서 Loop를 최소한 한 번 실행하는지 여부가 달라지게 된다.

*For - Next문
For - Next는 지정된 카운터의 숫자에 따라서 명령문의 반복횟수를 결정하고, 실행한다.

For 카운터 = 초기값 To 마지막값 [Step 증감값]
      [명령문]
      [Exit For]
Next [카운터]

여기서 카운터란 초기값으로 시작되는 변수를 말하며, 이 값은 Loop를 한번 돌 때마다 증감 값만큼이 더해지게 된다. 만약 증감값이 양수라면 카운터가 초기값보다 큰 경우, 음수라면 카운터가 초기값보다 작은 경우 Loop를 빠져 나오며, 강제로 For - Next문을 빠져 나올 경우는 Exit For 문을 사용한다. 일반적으로 카운터는 정수형 변수를 사용하며, 증감값을 생략하면 1로 설정된다.

For I = 1 to 5
     Msgbox I
Next I

* Goto문
이것은 "무조건 분기"라고 해서, 특정한 위치로 무조건 제어를 옮기는 것이다. 어떠한 제어도 받지 않는 무조건 분기이기 때문에 강력하지만, 그만큼 프로그램을 이해하기 어렵게 만들고, 흐름을 망가뜨리는 경향이 있다. 구조적인 프로그래밍을 하기 위해서는 Goto문의 사용을 자제해야 한다.

Goto 레이블 또는 행번호
If myCountry = "한국" Then
        Goto Label1
Else
        Goto 100
End if
End
Label1:
       Msgbox "당신은 한국인입니다."

       End
100:
       Msgbox "당신은 한국인이 아닙니다."
       End

소트(sort) ▲TOP

정의 : Sort 란 자료를 어떤 특정 기준에 맞추어 정렬하는 것을 뜻한다.
그러면 특정 기준이란 무엇일까? 사람의 이름을 기준으로 할 수도 있으며 숫자의 크고 작음을 기준으로 삼을 수도 있다.
숫자를 예를 들어보자.
예) 5, 3, 1, 4, 2
이상과 같이 5가지의 수를 오름차순 (작은 숫자가 제일 앞에 오도록)으로 정리해 보면 결과는 1, 2, 3, 4, 5 가 될 것이다. 내림차순은 그 반대가 될 것이다. 컴퓨터 계산으로 이렇게 정렬하려면 어떤 특별한 방법이 필요할 것이다.
이러한 자료처리 해결방법을 흔히 '알고리즘' 이라고 한다.
Sort 의 종류에는 여러가지가 있으나 그 중 가장 쉽게 구현할 수 있는 '버블 Sort' 를 숫자를 통해 이해해 보도록 하자.
예)
Private Sub Sort()
.........
End Sub

Sort 라는 프로시저를 선언했다. 덧붙여 OutPut_Data (1 to 5, 1 to 2) 라는 2차원 문자열 배열이 있고 배열요소의 값들은("5", "서울"), ("3", "부산"), ("1", "대구"), ("4", "광주"), ("2", "대전") 라고 하자. 아래 코드가 있다.
        01] Private Sub Sort()
        02] Dim OutPut_Data (1 to 5, 1 to 2) as String
        03] Dim i as Integer, j as Integer, k as Integer, Temp as String
        04] OutPut_Data (1, 1) = "5" : OutPut_Data (1, 2) = "서울"
        05] OutPut_Data (2, 1) = "3" : OutPut_Data (2, 2) = "부산"
        06] OutPut_Data (3, 1) = "1" : OutPut_Data (3, 2) = "대구"
        07] OutPut_Data (4, 1) = "4" : OutPut_Data (4, 2) = "광주"
        08] OutPut_Data (5, 1) = "2" : OutPut_Data (5, 2) = "대전"
        09] For i = 1 to 4
        10]     For j = i + 1 to 5
        11]         If Val (OutPut_Data (i, 1)) > Val (OutPut_Data(j, 1)) Then
        12]            For k = 1 to 2
        13

]                Temp = OutPut_Data (i, k)
        14]                OutPut_Data (i, k) = OutPut_Data (j, k)
        15]                OutPut_Data (j, k) = Temp
        16]            Next k
        17]         End If
        18]     Next j
        19] Next i
        20] End Sub

결과값)
OutPut_Data (1 to 5, 1 to 2) 의 배열값은 ("1", "대구"), ("2", "대전"), ("3", "부산"), ("4", "광주"), ("5", "서울") 로 Sort 가 된다. 위 소스를 Paste 해서 확인해 보면 그 결과를 알 수 있다.
혹은 비주얼 베이직의 '디버깅' 기능을 이용해 루프를 돌 때마다 값을 확인해 볼 수도 있다.
위의 숫자 ']' 는 라인을 표시하기 위한 것이므로 소스에는 실제로 포함되지 않는다.

소스 분석)
위 정렬법의 아이디어를 이해하는 것이 가장 중요하다.
다섯개의 방이 있고 각기 하나의 수가 들어가 있다고 하자.
먼저 첫번째 방의 수와 두번째 방의 수를 비교한다. 만약 첫번째 방의 수가 크면 두 수가 상대방의 방으로 들어간다. 즉 바뀐다. 그리고 계속해서 세번째, 네번째, 다섯번째 방의 수들을 차례로 현재 첫번째 방의 수와 비교한다. 같은 행위를 뒤풀이한다. 머리속으로 잠시 장면을 연상해 본다... 그럼 최후로 가장 작은 수가 현재 첫번째 방에 위치할 것이다.
이제 첫번째 수가 결정되었다. 첫번째 방은 앞으론 계산에서 계산될 필요가 전혀 없다. 이번엔 두번째 방의 수와 세번째 방의 수를 아까와 같이 비교한다. 그리곤 네번째, 다섯번째 방의 수들을 역시 두번째 방의 수와 비교한다. 감이 오는가? .... 아까 첫번째 방이 연산에서 아예 제외되었듯이 두번째, 세번째, 네번째 방들이 제외가 되어 간다. 정말 마지막으로 남은 것은 가장 큰 수가 남는다. 뒤에 위치한다는 의미다. 이러한 연산의 혼자 숫자를 종이에 적고 생각을 해본 후 프로그램으로 구현해 보는 것이 좋다.
방금 말로 설명한 것은 1차원 배열의 예를 들었는데 2차원이라고 해서 별다를 것이 없다. 구체적인 프로그램 설명을 하겠다.
09 라인에서 4번의 루프를 생각해 본다. 그리고 10 라인에선 5번의 루프를 역시 그려본다. 왜냐면 아까 이야기했듯이 i 번째와 i + 1 번째를 비교해야 하기 때문이다. 11 라인에서 두 수를 비교한다. 하지만 배열을 선언할 때 문자열 배열로 선언했으므로 배열요소의 첫번째 열의 문자열을 숫자로 바꿀 필요가 있다. Val 함수는 문자열을 숫자로 바꾸어 주는 내장수이며 이것을 사용해 두 수를 비교한다. 만약 조건에 만족하면 또 하나의 For 문을 이용해 2번씩 루프를 돌려 값을 바꾸어 준다. 왜냐면 배열은 두개의 열을 갖고 있기

때문이다. Temp 란 문자열 변수는 왜 사용되었을까?
두 수를 서로 교환할 때는 임시변수의 필요성이 생긴다. 13] 14] 15] 라인은 직접 생각해 보길 바란다. 여기까지 09 라인의 첫번째 루프였다. 두번째, 세번째, ...... 위의 개념설명을 적용해 보면 이해가 갈 것이다.

다음의 예를 보며 이해를 해보도록 하자.

* 이것은 배열과 for- next 문 if - then 문 그리고 sort를 모두 합한 것이다.

Dim test(5) as integer

test(0) = 10 : test(1) = 46 : test(2) = 32 : test(3) = 24 : test(4) = 56

print "정렬전의 자료 상태 출력 -->"

for I = 0 to 4

print test(i)

next I

for I = 0 to 3

for j = i+1 to 4

if test(i) < test(j) then '내림차순일 때는 조건판단 < 를 사용

' 오름차순일 때는 조건판단 >를 사용

'변수 temp는 옮길 자료가 삭제되지 않도록 임시로 저장한다.

temp = test(i)

test(i) = test(j)

test(j) = temp

end if

next j

next I

print "정렬후의 자료 상태 출력 --->"

for I = 0 to 4

print test(i)

next I