Option Explicit

Sub main()

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

''핵심변수선언
Dim 열차요금, 열차코드, 승객만족도, 탑승인원, 최소값, 좌석코드, 최대고객번호, 고객번호 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

''최소값 초기화
최소값 = 999999
최대고객번호 = 0

For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
    ''변수저장
    열차요금 = Val(Mid(버퍼, 10, 6))
    열차코드 = Trim(Mid(버퍼, 6, 2))
    승객만족도 = Val(Mid(버퍼, 16, 2))
    탑승인원 = Val(Mid(버퍼, 24, 3))
    고객번호 = Val(Mid(버퍼, 1, 5))
    좌석코드 = Trim(Mid(버퍼, 8, 2))
   

If 열차요금 >= 27000 Or 열차코드 = "MU" Then
    If 최소값 > (승객만족도 * 탑승인원) Or _
       (최소값 = (승객만족도 * 탑승인원) And 최대고객번호 < 고객번호) Then
      
       최소값 = (승객만족도 * 탑승인원)
       최대고객번호 = 고객번호
    End If
   

End If

End If
Next i

   
    Close #1
    ''출력파일처리
    Open "C:\C_it\data\ans2.txt" For Output As #2
        Print #2, 인수1, 인수2, 좌석코드
        Close #2
       
           

End Sub

결과값이 다르게 나오네요...

이런 유형의 문제를 잘 못하겟네요... ㅡ.ㅜ

최대값에 "단" 붙은 문제요...