2005년 1회 기출, 4월 30일 오후(중급)문제 풀어보고 있는데요.
3번 합계구하는 문제에서 답이 이상하게 나와요.
선생님이 코딩하신 것과 비교해 봤는데 코딩에서 문제점은 못 찾겠어요~ㅜㅜ
제 답은 2814가 나오고, 자료에는 2924가 답이라고 되어있는데 어디가 문제인지 알려주세요~~~~ㅜㅜ


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\abc1115.txt" For Input As #1
   
    For k = 1 To 인수2
        Line Input #1, 버퍼
        If k >= 인수1 Then
       
            ''변수저장
             성취도 = Trim(Mid(버퍼, 30, 1))
             국어점수 = Val(Mid(버퍼, 11, 3))
             영어점수 = Val(Mid(버퍼, 14, 3))
            
             ''표처리
             Select Case 성취도
                Case "A"
                    점수포인트 = 5
                Case "B"
                    점수포인트 = 15
                Case "c"
                    점수포인트 = 20
             End Select
            
             ''합계
             If 국어점수 + 영어점수 >= 120 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