4번소스코딩한건데요..
아무리 해봐도 틀린게 없는데 결과값이 다르게 나와서요~
어디가 잘못된걸까요??
전 결과값이 1104735가 나옵니다^^;;


 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\abc0002.txt" For Input As #1
               
             
               
                For k = 1 To 인수2
                  Line Input #1, 버퍼
                    If k >= 인수1 Then
                   
             ''변수저장
               예약방법코드 = Trim(Mid(버퍼, 36, 2))
               예약일자 = Val(Mid(버퍼, 11, 2))
               누적점수 = Val(Mid(버퍼, 40, 5))
              
              ''표처리
              Select Case 예약방법코드
                 Case "LG"
                   추가사용점수 = 3910
                 Case "TE"
                   추가사용점수 = 2970
                 Case "FA"
                   추가사용점수 = 7930
                 Case "HU"
                   추가사용점수 = 6360
              
               End Select
              
               ''합계구하기
                 If (예약일자 Mod 2) = 1 Then
                 합계 = 합계 + 누적점수 + 추가사용점수
                 End If
                
                
                
                    End If
                Next k
               
         Close #1
        
      
   
      
       
      
    ''출력파일처리
     Open "c:\c_it\data\ans0004.txt" For Output As #2
      Print #2, 인수1, 인수2, 합계
     Close #2

End Sub