기사 05 년 4월 30일 오후 1번문제 질문입니다..
코딩을 다하고 답을 맞춰보니 안 맞는거에요 그래서
선생님이 소스코딩 해논거 일일이 다 맞춰봐도 틀린데가 없는데
답이 다르게 나오네요...어디가 틀렸는지 알려주세요..너무 궁금해요..

Option Explicit

Sub main()

    ''''필수 변수 선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
    ''''핵심 변수 선언
    Dim 담임코드, 영어점수, 수학점수, 합계(1000), 학번(1000), p, temp, 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 담임코드 = "c" 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\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 학번(5)
    Close #2
End Sub