안녕하세요..권우석입니다.

문의하신 내용을 가지고 강의로 제작하여 설명을 해 드리겠습니다.

[2번소스]

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
   
        ''최소값 초기화
        최소값 = 999999999
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                승객만족도 = Val(Mid(버퍼, 16, 2))
                좌석코드 = Trim(Mid(버퍼, 8, 2))
                월이용횟수 = Val(Mid(버퍼, 32, 2))
                열차요금 = Val(Mid(버퍼, 10, 6))
                고객번호 = Val(Mid(버퍼, 1, 5))
               
                ''최대고객번호의 도착지코드 구하기
                If (승객만족도 Mod 2) = 0 And 좌석코드 = "HE" Then
                   
                    If 최소값 > 월이용횟수 + (열차요금 * 0.4) Or _
                        (최소값 = 월이용횟수 + (열차요금 * 0.4) And 최대고객번호 < 고객번호) Then
                       
                        최소값 = 월이용횟수 + (열차요금 * 0.4)
                        최대고객번호 = 고객번호
                        도착지코드 = Trim(Mid(버퍼, 22, 2))
                    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