3문제 답이 9993이라고 하는데 왜 저는 자꾸 9933이 나오네요..
코딩이 아무리 봐도 문제가 없는데..
저 내일이 시험인데 완전 초 긴장이에요..
좀 봐주세요.

Sub main()

''필수 변수 선언
Dim 인수1, 인수2, k, 버퍼 As Variant

''핵심 변수 선언
Dim 성취도, 점수포인트, 영어점수, 수학점수, 총점, 합계 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 k = 1 To 인수2
    Line Input #1, 버퍼
      If k >= 인수1 Then
     
       ''변수 저장
         성취도 = Trim(Mid(버퍼, 30, 1))
         영어점수 = Val(Mid(버퍼, 14, 3))
         수학점수 = Val(Mid(버퍼, 17, 3))
         총점 = Val(Mid(버퍼, 26, 3))
        
         ''표처리
         Select Case 성취도
                Case "A"
                 점수포인트 = 5
                Case "B"
                 점수포인트 = 15
                Case "C"
                 점수포인트 = 20
         End Select
        
         ''합계 구하기
         If 영어점수 + 수학점수 >= 120 Then
        
            합계 = 합계 + 총점 + 점수포인트
          End If
        
     End If
              
  Next k
     
     
Close #1
     
''출력 파일 처리
Open "c:\c_it\data\ans3.txt" For Output As #2

Print #2, 인수1, 인수2, 합계

Close #2

End Sub