Option Explicit

Sub main()
   
    ''''필수변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    ''''핵심변수선언
    Dim 출발지코드, 승객만족도, 월이용횟수, 합계(1000), 여행거리, 고객번호(1000), P, NUM, TEMP 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
            ''''변수저장
            출발지코드 = Trim(Mid(버퍼, 20, 2))
            승객만족도 = Val(Mid(버퍼, 16, 2)) => val 함수면 배열변수에서 따옴표를 제거.

            월이용횟수 = Val(Mid(버퍼, 32, 2))
            여행거리 = Val(Mid(버퍼, 27, 5))
           
            ''''배열변수구하기
            If 출발지코드 = "SU" And 승객만족도 <= "23" Then
           
            NUM = NUM + 1
            합계(NUM) = 월이용횟수 * 여행거리
            고객번호(NUM) = Val(Mid(버퍼, 1, 5))
            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 #2
   
   
    ''''출력파일처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 고객번호(5)
    Close #2
   
End Sub