아무리 찾아봐도 어디서 틀렸는지.. 모르겠어요..

 05년  5월 13일. 오후기출 문제..
 



Option Explicit

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\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))
            지불금액 = Val(Mid(버퍼, 48, 10))
           
           
            If 지불금액 >= 6500000 Then
           
                num = num + 1
                합계(num) = 예약수량 * 예약금액
                일련번호(num) = Val(Mid(버퍼, 1, 7))
               
            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\ans2.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 일련번호(num)
       
    Close #2

End Sub