Option Explicit

Sub Main()
''필수변수
    Dim 인수1, 인수2, 버퍼, k As Variant
   
''핵심변수
    Dim 열차요금, 열차코드, 승객만족도, 탑승인원, 고객번호(1000), 합계(1000), temp, num, p As Variant
   
''인수처리
    인수 1 = Val(Left(Command, InStr(Command, " ")))
    인수 2 = Val(Mid(Command, InStr(Command, " ")))
   
''입력화일처리
    Open "c:\c_it\data\abc0105.txt" For Input As #1
        For k = 1 To 인수2
            Line Input #1, 버퍼
            If k >= 인수1 Then
               
                ''변수저장
                열차요금 = Val(Mid(버퍼, 6, 2))
                승객만족도 = Val(Mid(버퍼, 16, 2))
                탑승인원 = Val(Mid(버퍼, 24, 3))
                열차코드 = Trim(Mid(버퍼, 6, 2))
               
                ''배열저장
                If 열차요금 >= 27000 Or 열차코드 = "MU" Then
                    num = num + 1
                    합계(num) = 승객만족도 + 탑승인원
                   
                    고객번호(num) = Val(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
    Close #1
''출력화일처리
    Open "c:\c_it\data\abc050709.txt" For Output As #2
        Print #2, 인수1, 인수2, 고객번호(12)
   
    Close #2

End Sub