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\abc07.txt" For Input As #1
      
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''''변수저장
                영어점수 = Val(Mid(버퍼, 14, 3))
                과학점수 = Val(Mid(버퍼, 20, 3))
               
                If 영어점수 + 과학점수 < 170 Then
                    Num = Num + 1
                End If
            End If
        Next i
       
     Close #1
           
           
     Open "c:\c_it\data\ans3.txt" For Output As #2
           
        Print #2, 인수1, 인수2, Num
       
     Close #2
      
End Sub