몇일전에 질문했는데 답변을 안해주시더라구요ㅠㅠ

그래서 다시 올립니다. 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