제가 영진 출판산의 2005년 확달라진 정보처리기사 기출문제 중 4번 ''고객관리"의 1번을 풀어봤는데 답이 영 안나오네요
뭐가 틀렸는지 궁금해서....
혹 시간되시면 한번 봐주시겠어요?
Option Explicit

Sub main()

Dim 인수1, 인수2, k, 버퍼 As Variant

''핵심변수 선언
Dim 지불방법, 지불금액(1000), 예약수량, 예약금액, 일련번호(1000), 합계(1000), p, temp, num As Variant

''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일 처리
Open "c:\c_it\data\abc04.txt" For Input As #1
    For k = 1 To 인수2
        If k >= 인수1 Then
        ''변수 저장
            지불방법 = Trim(Mid(버퍼, 58, 2))
            예약수량 = Val(Mid(버퍼, 18, 5))
            예약금액 = Val(Mid(버퍼, 23, 10))
           
         End If
                If 지불방법 = "AA" Or 지불방법 = "BB" Then
                    num = num + 1
                    지불금액(num) = Val(Mid(버퍼, 48, 10))
                    합계(num) = 예약수량 * 예약금액
                    일련번호(num) = Trim(Mid(버퍼, 1, 7))
                  
                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
              
                 temp = 일련번호(k)
                일련번호(k) = 일련번호(p)
                일련번호(p) = temp
              
               
            End If
        Next p
    Next k
Close #1
''출력파일 처리
Open "c:\c_it\data\ans01.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(5)
Close #2

End Sub