Option Explicit

Sub main()

    ''''필수변수선언
        Dim 인수1, 인수2, K, 버퍼 As Variant
       
    ''''핵심변수선언
        Dim 합계(1000), 월매출액, 주문량, Temp, P, Num As Variant
       
    ''''인수처리
        인수1 = Val(Left(Command, InStr(Command, " ")))
        인수2 = Val(Mid(Command, InStr(Command, " ")))
    ''''입력파일처리
        Open "c:\c_it\data\abc02.txt" For Input As #1
       
            For K = 1 To 인수2
                Line Input #1, 버퍼
                    If K >= 인수1 Then
                   
                  ''''변수저장
                    월매출액 = Val(Mid(버퍼, 26, 5))
                    주문량 = Val(Mid(버퍼, 13, 3))
                    ''''합계구하기
                    Num = Num + 1
                    합계(Num) = 월매출액 - 주문량
                   
                    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, 합계(9)
        Close #2
End Sub

 아까는 값이 계속 다르던데

이걸 또 같다 부치니 답이 나오네요

어떻게 이럴수가 있죠..그것도 여러번이나-_-