근데 자료건수 구하는 문제는 이미 나왔으니까 안 나오지 않을까요 ??

>> >> >>

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\abc06.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''''''''''''''''''''''''''''''''변수저장
                지역코드 = Trim(Mid(버퍼, 31, 1))
                성취도 = Trim(Mid(버퍼, 30, 1))
                국어점수 = Val(Mid(버퍼, 11, 3))
               
               
                If (국어점수 + 점수포인트) >= 50 Then   ---> 이 부분이
                   Select Case 지역코드
                        Case "A"
                        점수포인트 = 5
                        Case "B"
                        점수포인트 = 10
                        Case "C"
                        점수포인트 = 15
                   End Select

       If 성취도="A" and 성취도= "B" and 국어점수+점수포인트>=50 then
                   자료건수 = 자료건수 + 1
                End If
            End If
        Next i
    Close #1
   
    ''''''''''''''''''''''''''''''''출력파일
    Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 자료건수
    Close #2
End Sub

이렇게 했는데요 답이 55가 나오네요 모가 틀렸는지좀 봐주세요~ 죄송하구 합사합니다.ㅡ..ㅡ