02.07.09오전 기출문제 4번입니다

Option Explicit

Sub main()
   
    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 지역코드, 점수포인트, 담임코드, 영어점수, Num As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력 파일 처리
    Open "c:\c_it\data\abc002.txt" For Input As #1
   
        For i = 1 To 인수2
            Line Input #1, 버퍼
                If i >= 인수1 Then
                   
                    ''변수저장
                    지역코드 = Trim(Mid(버퍼, 31, 1))
                    담임코드 = Trim(Mid(버퍼, 29, 1))
                    영어점수 = Val(Mid(버퍼, 14, 3))
                   
                    ''표 구하기
                    Select Case 지역코드
                   
                        Case "A"
                            점수포인트 = 10
                        Case "B"
                            점수포인트 = 15
                        Case "C"
                            점수포인트 = 20
                           
                    End Select
                   
                    ''자료의 건수 구하기
                    If 담임코드 = "A" Or 담임코드 = "B" And (영어점수 + 점수포인트) >= 50 Then
                        Num = Num + 1
                    End If
                   
                End If
        Next i
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, Num
    Close #2
   
End Sub