아래 빨간색 부분을 왜 변수저장에 안넣나요? 왜 여기에 넣어야 되나요??ㅡ.ㅜ;;;빨리좀..
낼 셤인데..ㅡㅜ;;;이런거 설명 해주셨었나요?ㅡ.ㅜ;;;
-------------------------
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
   
        ''최대값 초기화
        최대값 = 0
        최소고객번호 = 999999999
       
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''변수 저장
                출발지코드 = Trim(Mid(버퍼, 20, 2))
                승객만족도 = Val(Mid(버퍼, 16, 2))
                월이용횟수 = Val(Mid(버퍼, 32, 2))
                여행거리 = Val(Mid(버퍼, 27, 5))
                고객번호 = Val(Mid(버퍼, 1, 5))
               
                ''최대고객번호의 좌석코드 구하기
                If 출발지코드 = "SU" And 승객만족도 <= 23 Then
                   
                    If 최대값 < 월이용횟수 * 여행거리 Or _
                        (최대값 = 월이용횟수 * 여행거리 And 최소고객번호 > 고객번호) Then
                       
                        최대값 = 월이용횟수 * 여행거리
                        최소고객번호 = 고객번호
                        도착지코드 = 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