Sub main()

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

''''핵심변수 선언
Dim 취향, 품목코드, 대여금액, 대여횟수, 연체횟수, 합계,결과값(1000), 손님번호(1000),  p, temp, num 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
    line input #1, 버퍼
    For k = 1 To 인수2
        If k >= 인수1 Then
        ''''변수 저장
            취향 = Trim(Mid(버퍼, 8, 1))
            품목코드 = 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) = 대여금액- (대여횟수* 연체횟수)
                    손님번호(num) = Trim(Mid(버퍼, 1, 6))
                  
                End If
         End  if
   
     Next k
'''' 정렬
    For k = 1 To num
        For p = k To num
            If 결과값(k) > 결과값(p) Or (결과값(k) = 결과값(p) And 손님번호(k) > 손님번호(p)) Then
                temp = 결과값(k)
                결과값(k) = 결과값(p)
                결과값(p) = temp
                
               
                 temp = 손님번호(k)
                손님번호(k) = 손님번호(p)
                손님번호(p) = temp
              
               
            End If
        Next p
    Next k

     합계= 결과값(num-4) + 결과값(num-3) + 결과값(num-2) + 결과값(num-1) + 결과값(num)
Close #1
''''출력파일 처리
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계
Close #2

End Sub