4번 문젠데요... 변수 저장부분은 확실히 확인해서 맞거든요..
왜 결과 값이 안뜰까요.... 영진 모의고사 7에서 4번 문제 입니다..

Option Explicit

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\abc07.txt" For Input As #1
   
   
   
        For k = 1 To 인수2
        Line Input #1, 버퍼
       
            If k >= 인수1 Then
           
                ''변수 저장
               
                성취도 = Trim(Mid(버퍼, 30, 1))
                담임코드 = Trim(Mid(버퍼, 29, 1))
                국어점수 = Val(Mid(버퍼, 11, 3))
               
                ''표처리하기
               
                Select Case 성취도
                    Case "A"
                    가산포인트 = 5
                    Case "B"
                    가산포인트 = 15
                    Case "C"
                    가산포인트 = 20
                End Select
               
                ''합계구하기
               
                If 담임코드 = " B" Then
                   
                    합계 = 합계 + 국어점수 + 가산포인트
                   
                End If
               
           
            
               
       
            End If
        Next k
   
  
   
   
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 합계
       
       
   
    Close #2
   
   
End Sub