전 15일에 셤 보는 사람인데요..제가 한 번 봤거든요...
밑에 표시한 것 처럼 인수처리가 빠지셨네요...
넣었더니 바로 답 나옵니다...같이 꼬옥 합격해요..*^^*
------------------------------------------------------

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(버퍼, 27, 6))
                거래포인트 = Val(Mid(버퍼, 23, 4))
                단가 = Val(Mid(버퍼, 14, 4))
               
                ''''합계 구하기
                If 운행거리 >= 40000 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, 합계(4)
   
Close #2

End Sub