2번 문제요..제가 아래와 같이 코딩했더니 답이 맞게 나왔거든요(답:HE)
선생님께서 코딩해주신것과 조금 다른데요..
이렇게 코딩해도 되는건지..아님 우연히 맞은건지..
문제중에,가장 큰 고객번호의 좌석코드를 출력하라고 되어있는데 국어실력이 딸려서요,
최대좌석코드라고 변수선언 했거든요 ㅡㅡ;
그냥 선생님이 해주신대로 외워야겠죠?^^;


Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, K, 버퍼 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
   
        ''최소값 초기화
        최소값 = 99999999
        최대좌석코드 = 0
       
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
               
                ''변수 저장
                열차요금 = Val(Mid(버퍼, 10, 6))
                열차코드 = Trim(Mid(버퍼, 6, 2))
                승객만족도 = Val(Mid(버퍼, 16, 2))
                탑승인원 = Val(Mid(버퍼, 24, 3))
                좌석코드 = Trim(Mid(버퍼, 8, 2))
                고객번호 = Val(Mid(버퍼, 1, 5))
               
                ''최소값 구하기
                If 열차요금 >= 27000 Or 열차코드 = "MU" Then
                   
                    If 최소값 > 승객만족도 * 탑승인원 Or (최소값 = 승객만족도 * 탑승인원 And 최대좌석코드 < 좌석코드) Then
                       최소값 = 승객만족도 * 탑승인원
                       최대좌석코드 = 좌석코드
                    End If
                   
                End If
               
            End If
        Next K
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
   
        Print #2, 인수1, 인수2, 최대좌석코드
       
    Close #2
       
End Sub