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
                   자료건수 = 자료건수 + 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