Sub main()

''필수변수선언

Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심변수선언
Dim 취향, 품목코드, 대여금액, 대여횟수, 연체횟수, 결과값, 합계(1000), 손님번호(1000), j, num, temp As Variant

''인수처리

인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일 처리
Open "c:\c_it\data\abc10.txt" For Input As #1

For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
''변수저장
취향 = Trim(Mid(버퍼, 7, 2))
품목코드 = Trim(Mid(버퍼, 31, 2))
대여금액 = Val(Mid(버퍼, 22, 6))
대여횟수 = Val(Mid(버퍼, 10, 4))
연체횟수 = Val(Mid(버퍼, 28, 3))

''배열변수 구하기

If 취향 = "L" Or 품목코드 = "A1" Then
     num = num + 1
     합계(num) = 대여금액 - (대여횟수 * 연체횟수)
   
    End If
  End If
Next i

''정렬구하기(합계 오름차순 or (합계같음and (손님번호 오름차순))
For i = 1 To num
    For j = i To num
   
    If 합계(i) > 합계(j) Or _
       합계(i) = 합계(j) And 손님번호(i) > 손님번호(j) Then
      
       temp = 합계(i)
       합계(j) = 합계(j)
       합계(j) = temp
      
       temp = 손님번호(i)
       손님번호(i) = 손님번호(j)
       손님번호(j) = temp
      
        End If
    Next j
Next i

''합계구하기

For i = (num - 4) To num
결과값 = 결과값 + 합계(i)
    Next i
   
Close #1

''출력파일 처리
Open "c:\c_it\data\ans.01.txt" For Output As #2

Print #2, 인수1, 인수2, 결과값

Close #2

End Sub