2004년 11월6일 기사시험에서 왜 고객번호와 도착지코드를 변수로저장해 주지 않습니까?

그리고 왜 최대값도 최기화 하지 않는지요....

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\abc1112.txt" For Input As #1
   
        ''최소고객번호 초기화
        최소고객번호 = 999999999
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                출발지코드 = Trim(Mid(버퍼, 20, 2))
                승객만족도 = Val(Mid(버퍼, 16, 2))
                월이용회수 = Val(Mid(버퍼, 32, 2))
                여행거리 = Val(Mid(버퍼, 27, 5))
               
                ''배열변수 구하기
                If 출발지코드 = "SU" And 승객만족도 <= 23 Then
                   
                    If 최대값 < (월이용회수 * 여행거리) Or _
                    (최대값 = (월이용회수 * 여행거리) And 최소고객번호 > 고객번호) Then이부분도 잘 이해가 되지 않습니다...설명좀 부탁드립니다....방송을 봐도 잘 모르겠습니다...
                        
                        최대값 = 월이용회수 * 여행거리
                        최소고객번호 = 고객번호
                        도착지코드 = 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