제가 보기엔 위 부분이 틀린거 같아요.
합계=합계+국어점수+점수포인트...인데..님은 영어점수라고 쓰셨네요,.,
좋은 하루 되세요~





---------------------------------------
중급 2005년 4월30일 오후 3번 문제에서요
제가 코딩한 결과값이 4723으로 나오던데
답은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