부호가 틀린듯;;;
+가 아니라 *인거 같은데요??

문제 1】출발지 코드가 SU이고 승객만족도가 23 이하인 자료에 대하여 (월이용회수 * 여행거리)에 따라 내림차순

>>

했을 때 5번째 고객번호를 출력하시오. 동일값 발생시 고객번호로 오름차순 정렬하여 처리 하시오.(20점)  




Sub main()

>>

''''필수변수선언
Dim 인수1, 인수2, k, 버퍼 As Variant

>>

''''핵심변수선언
Dim 출발지코드, 승객만족도, 월이용회수, 여행거리, 고객번호(1000), 합계(1000), p, temp, num  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) = 고객번호(p)
                    고객번호(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


숫자들은 다 맞거든요.
기사(050508) 기출인데 답이 다르게 나와요
다운받은 소스코딩이랑 똑같은 거 같은데...ㅠㅠ
어디가 잘못되었는지 좀 봐주세요