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\abc1115.txt" For Input As #1
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''''''''변수저장
               수학점수 = Val(Mid(버퍼, 17.3))
               과학점수 = Val(Mid(버퍼, 20, 3))
              
               If 수학점수 + 과학점수 >= 120 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

 산업기사 기출문제 03/10/25 일 오전  3번문제예요..

100 200 32 가 나와야 하는데

저는  100 200 101 이 나와요..

소스코딩 맞는것과 비교해도 틀린걸 못찾겠는데..

어디가 틀렸을까요??

=======

수학점수 = Val(Mid(버퍼, 17.3))   <---이부분이 잘못된게 아닐까요?

수학점수 = Val(Mid(버퍼, 17, 3)) --->이렇게 고치면 될 거 같은데요~