3번문제요..
답이 선생님것과 다르게 나옵니다.
2129630 이 나와야 하는데 전 암만해도 2130610 이 나오네요...

버퍼 위치랑 크기도 확인하고, 입력부분도 다 확인했는데.. 왜이런지 모르겠어요

1시간째 부여잡고 있는데.. 맘이 안편합니다... 시험이 첫날이라..

답변 부탁드릴께요..

소스는..


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\abc02.txt" For Input As #1
   
        For k = 1 To 인수2
            Line Input #1, 버퍼
            If k >= 인수1 Then
           
               
                서적분류코드 = Trim(Mid(버퍼, 5, 2))
                출판년월 = Val(Mid(버퍼, 7, 4))
                월매출액 = Val(Mid(버퍼, 26, 5))
                Select Case 서적분류코드
                    Case "A1"
                    추가금액 = 560
                    Case "A2"
                    추가금액 = 720
                    Case "B1"
                    추가금액 = 620
                    Case "B2"
                    추가금액 = 510
                    Case "C1"
                    추가금액 = 430
                    Case "C2"
                    추가금액 = 790
                    Case "D1"
                    추가금액 = 150
                    Case "D2"
                    추가금액 = 210
                   
                 End Select
                
                 ''합계
                 If 출판년월 <= 2000 Then
                 합계 = 합계 + 월매출액 + 추가금액
                 End If
            End If
        Next k
        
        
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 합계
       
    Close #2
End Sub