Sub main()

    ''필수변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
           
    ''핵심변수선언
    Dim 통학코드, 영어점수, 수학점수, 학번(1000), 합계(1000), Temp, P, Num As Variant
       
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
       
    ''입력파일처리
    Open "c:\c_it\data\res0105.txt" For Output As #1
       
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수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 K
       
        ''정렬
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수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 K
       
       
    Close #2
   
    ''출력파일처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 학번(5)
    Close #2
End Sub