Option Explicit

Sub Main()
''''필수변수선언
Dim i, 버퍼, 인수1, 인수2 As Variant
''''핵심변수선언
Dim 성취도, 목표점수, 영어점수, 점수포인트, 합계 As Variant
''''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''''입력파일처리
Open "c:\c_it\data\abc.txt" For Input As #1
    For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
           
            ''''변수저장
            성취도 = Trim(Mid(버퍼, 15, 1))
            목표점수 = Val(Mid(버퍼, 11, 3))
            영어점수 = Val(Mid(버퍼, 20, 3))
           
            ''''표처리
            Select Case 성취도
                    Case "A"
                            점수포인트 = 5
                     Case "B"
                            점수포인트 = 15
                     Case "C"
                        점수포인트 = 20
                       
              End Select
           
            lf 목표점수>=300 then
                   합계 = 영어점수 + 점수포인트 <--요기에 

                  합계=합계+영어점수+점수포인트

         (가 되어야 할것 같은데...)오늘 기사 오전문제 푸셨죠/.?? 저두 그거 풀었거든요...
                   
            
            End If
          End If
       Next i
         
   Close #1
''''출력파일처리
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2
End Sub