강의내용의 코딩과 똑같이 했는데도

불구하고....

결과가 교재와 다르게 나오네요...

교재답이 잘못된건가요?

표처리가 계속 자주 틀려서 걱정입니다. 내일이 시험인데... 꼭 확인부탁드립니다...

Option Explicit

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\abc05.txt" For Input As #1

For i = 1 To 인수2
    Line Input #1, 버퍼
        If i >= 인수1 Then
       
       
''변수저장
거래코드 = Trim(Mid(버퍼, 19, 1))
매출액 = Val(Mid(버퍼, 26, 3))
제조구분 = Trim(Mid(버퍼, 7, 1))

Select Case 거래코드
Case "A"
    추가포인트 = 5
Case "B"
    추가포인트 = 10
Case "c"
    추가포인트 = 15

End Select

If 제조구분 = "B" Then
    합계 = 합계 + 매출액 + 추가포인트
   
   
   
End If

End If
Next i

Close #1

Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계

Close #2

End Sub