소스 올립니다...살펴봐주세요..

급합니다...시간이 없어요...

Option Explicit

Sub main()

''필수 변수 선언
Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심 변수 선언
Dim 월매출액, 주문량, 합계(1000), j, Temp, 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 i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then

''변수 저장
월매출액 = Val(Mid(버퍼, 26, 5))
주문량 = Val(Mid(버퍼, 13, 3))

Num = Num + 1
합계 = 월매출액 - 주문량

End If
Next i

''정렬 (합계 오름차순)
For i = 1 To Num
For j = i To Num
If 합계(i) > 합계(j) Then
Temp = 합계(i)
합계(i) = 합계(j)
합계(j) = Temp
End If

Next j

Next i

Close #1

''출력 파일 처리
Open "c:\c_it\data\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 합계(9)

Close #2

End Sub