정보처리 기사 실기 기출문제(2005년 05월 08일 오전)문제를 풀던중

1번 문제의 결과값이

자료실에서 다운 받은 소스에선 100           200           40106  이 출력되고

제가 푼 소스에서 100           200           40104  이 출력됩니다.

무엇이 문제인지 아무리 찾아도 못찾겠습니다.

Option Explicit

Sub MAIN()
    ''''''''필수변수선언
    Dim 인수1, 인수2, 버퍼, K As Variant
    ''''''''핵심변수선언
    Dim 출발지코드, 승객만족도, 월이용횟수, 여행거리, 합계(1000), 고객번호(1000), Temp, Num, P As Variant
    ''''''''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
    ''''''''입력파일처리
    Open "C:\C_IT\DATA\ABC1112.TXT" For Input As #1
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
                ''''''''변수저장
                출발지코드 = Trim(Mid(버퍼, 20, 2))
                승객만족도 = Val(Mid(버퍼, 16, 2))
                월이용횟수 = Val(Mid(버퍼, 32, 2))
                여행거리 = Val(Mid(버퍼, 27, 5))
                ''''''''배열변수저장
                If 출발지코드 = "SU" And 승객만족도 <= 23 Then
                    Num = Num + 1
                    합계(Num) = 월이용횟수 * 여행거리
                    고객번호(Num) = Val(Mid(버퍼, 1, 5))
                End If
            End If
        Next K
        ''''''''합계내림차순 정렬(동일값, 고객번호 오름차순)
        For K = 1 To Num
            For P = K To Num
                If 합계(K) < 합계(P) Or _
                    (합계(K) = 합계(P) And 고객번호(K) > 고객번호(P)) Then
                    Temp = 합계(K)
                    합계(K) = 합계(P)
                    합계(P) = Temp
                   
                    Temp = 고객번호(K)
                    고객번호(K) = 고객번호(K)
                    고객번호(P) = Temp
                End If
            Next P
        Next K
    Close #1
    ''''''''출력파일처리
    Open "C:\C_IT\DATA\ANS1.TXT" For Output As #2
        Print #2, 인수1, 인수2, 고객번호(5)
    Close #2

End Sub
--------------------
교환에서 고객번호(k)=고객번호(p) 여기서 틀린것 같습니다..^^
---------------------
헐 그 단순한걸 틀리다니...

남의 것은 잘 찾는데 ... 당황스럽네요 ㅎㅎ

감사 ^^