답이 틀리게나오는데요...
머가 잘못됐는지..ㅠㅠ
990169가 답인데 저는요990179로 나오네요..ㅠㅠ

Sub main()
    ''필수변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
    ''핵심변수선언
    Dim 담임코드, 영어점수, 수학점수, 학번(1000), 합계(1000), Temp, P, 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 K = 1 To 인수2
       Line Input #1, 버퍼
       If K >= 인수1 Then
       ''변수저장
       담임코드 = Trim(Mid(버퍼, 29, 1))
       영어점수 = Val(Mid(버퍼, 14, 3))
       수학점수 = Val(Mid(버퍼, 17, 3))
      
       ''합계구하기
       If 담임코드 = "A" Or 담임코드 = "B" Then
        Num = Num + 1
        합계(Num) = 영어점수 + 수학점수
        학번(Num) = Val(Mid(버퍼, 1, 6))
        End If
       
       End If
      Next K
      ''정렬구하기
      For K = 1 To Num
       For P = K To Num
        If 합계(K) < 합계(P) Or (합계(K) = 합계(P) And 학번(K) > 학번(P)) Then
       
         Temp = 합계(K)
         합계(K) = 합계(P)
         합계(P) = Temp
        
         Temp = 학번(K)
         학번(K) = 학번(P)
         학번(P) = Temp
        End If
       Next P
      Next K
   

     Close #1
     ''출력피일
     Open "c:\c_it\data\abcans1.txt" For Output As #2
     Print #2, 인수1, 인수2, 학번(5)
     Close #2
End Sub