기출문제 050506 오전 꺼요..

1번문제..틀린거 못찾겠습니다.

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 통학코드, 영어점수, 수학점수, 합계(1000), 학번(1000), j, Temp, Num As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력 파일 처리
    Open "c:\c_it\data\res0105.txt" For Input As #1
   
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                통학코드 = Trim(Mid(버퍼, 16, 1))
                영어점수 = Val(Mid(버퍼, 20, 3))
                수학점수 = Val(Mid(버퍼, 23, 3))
               
                ''배열변수 구하기
                If 통학코드 = "A" Or 통학코드 = "B" Then
                    Num = Num + 1
                    합계(Num) = 영어점수 + 수학점수
                    학번(Num) = Val(Mid(버퍼, 1, 6))
                End If
               
            End If
        Next i
               
        ''정렬(합계 내림차순 or (합계 같음 and 학번 오름차순))
        For i = 1 To Num
            For j = i To Num
           
                If 합계(i) < 합계(j) Or _
                    (합계(i) = 합계(j) And 학번(i) > 학번(j)) Then
                   
                    Temp = 합계(i)
                    합계(i) = 합계(j)
                    합계(j) = Temp
                   
                    Temp = 학번(i)
                    학번(i) = 학번(j)
                    학번(j) = Temp
                   
                End If
               
            Next j
        Next i
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 학번(5)
       
    Close #2
   
End Sub