뭐가 틀린건지...
Option Explicit

Sub main()
Dim 인수1, 인수2, 버퍼, k, p As Variant
Dim 담임코드, 영어점수, 수학점수, 학번(1000), 합계(1000), num, Temp As Variant

인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

Open "c:\vb\기출문제\050710오후\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:\vb\기출문제\050710오후\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 학번(5)
Close #2
End Sub




저는 990169 나오던데요~~