Sub main()

''필수변수선언
Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심변수선언
Dim 담임코드, 영어점수, 수학점수, 학번(1000), 합계(1000), j, num, temp As Variant

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

''입력파일처리
Open "c:\c_it\data\abc002.txt" For Input As #1

For i = 1 To 인수2
    Line Input #1, 버퍼
        If i >= 인수1 Then
       
     
''변수저장
담임코드 = Trim(Mid(버퍼, 29, 1))
영어점수 = Val(Mid(버퍼, 14, 3))
수학점수 = Val(Mid(버퍼, 17, 3))

''합계구하기

If 담임코드 = "A" And 담임코드 = "C" 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