소스 올려보아요~!^^


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) = 합계(k)
                    합계(k) = 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