아래처럼 코딩하니까 결과가  6311 이 나오던데..
 
답은  1729 라네요..

코딩 어디가 잘 못된건지 도저히 모르겠네요..낼 시험인데..

Option Explicit

Sub main()

    ''''''''''''''''''''''''''''''''변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    ''''''''''''''''''''''''''''''''인수                                                    
    Dim 주유량, 단가, 거래포인트, 합계(1000), P, temp, num As Variant
   
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))

   
    ''''''''''''''''''''''''''''''''입력
    Open "c:\c_it\data\abc0107.txt" For Input As #1
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
            ''''''''''''''''''''''''''''''''변수저장
            주유량 = Val(Mid(버퍼, 11, 3))
            단가 = Val(Mid(버퍼, 14, 4))
            거래포인트 = Val(Mid(버퍼, 23, 4))
            ''''''''''''''''''''''''''''''''합계
            If 주유량 >= 75 Then
            num = num + 1
            합계(num) =   단가 + 거래포인트  
            End If          
            
            End If
           
           
        Next K
       
        ''''''''''''''''''''''''''''''''정렬
        For K = 1 To num
            For P = K To num
                If K >= P Then
                    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, 합계(7)
    Close #2

End Sub