정보처리기사 03년 7월 18일 오전 문제의 1번을 풀었는데 답이 안나와서 교수님께서 작성하신 소스로 답을 구해보니 마찬가지로 답이 안나옵니다.
제가 무엇을  잘못했는지~
Option Explicit

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
   
        ''최소값 초기화
        최소값 = 999999999
        최대고객번호 = 0
       
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수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 K
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 도착지코드
       
    Close #2
   
End Sub