temp = 예약일자(k)
                지불금액(k) = 예약일자(p)
                예약일자(p) = temp
부분에서..지불금액 자리에 예약일자(k)가 들어가야 할거 같은뎅....

            
안녕하세요..기출문제 답은 1998-10-28인데요..전 계속 1998-10-26 이 나오네요..
어디가 틀린걸까요..못찾겠어요.

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\san0105.txt" For Input As #1
    For k = 1 To 인수2
    Line Input #1, 버퍼
       
        If k >= 인수1 Then
            ''''변수저장
            예약수량 = Val(Mid(버퍼, 18, 5))
            예약금액 = Val(Mid(버퍼, 23, 10))
       
            ''''배열변수구하기
            If 예약수량 * 예약금액 >= 7000000 Then
                num = num + 1
                지불금액(num) = Val(Mid(버퍼, 48, 10))
               
                예약일자(num) = Trim(Mid(버퍼, 8, 10))
                일련번호(num) = Trim(Mid(버퍼, 1, 7))
            End If
    End If
    Next k
   
        ''''정렬(오름차순정렬 or(동일값발생and 일련번호오름차순)
        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\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 예약일자(num)
    Close #2

End Sub