아무리 정답소스를 보고 다시확인해도 틀린부분이 없고요...
답이 나오질 않네요....
입력파일도 바꿔서 다시 새로 넣었는데도 똑같고.....왜그런가요??도와주세요...벌써 하루째 이 문제 같고 씨름중입니다...
===========
제조등급이 c이고, 매출액이 80이상인 자료에 대해 (판매량+제조포인트)의 값에 따라 내림차순정렬하여 5번째 자료의 (판매량+제조포인트)의 값을 출력하라는 문제입니다...

입력파일 abc05.txt 이구요...

===============================================================
Sub main()
    Dim 인수1, 인수2, 버퍼, X As Variant
    Dim 제조등급, 매출액, 판매량, 제조포인트, 합계(1000), Num, Temp, Y As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc05.txt" For Input As #1
       
        For X = 1 To 인수2
            Line Input #1, 버퍼
                If X >= 인수1 Then
               
                ''변수저장
                제조등급 = Trim(Mid(버퍼, 29, 1))
                매출액 = Val(Mid(버퍼, 26, 3))
                판매량 = Val(Mid(버퍼, 15, 3))
                제조포인트 = Val(Mid(버퍼, 20, 3))
               
                    If 제조등급 = "c" And 매출액 >= 80 Then
                            Num = Num + 1
                            합계(Num) = 판매량 + 제조포인트
                    End If
                End If
               
        Next X
                ''내림차순정리
                    For X = 1 To Num
                        For Y = X To Num
                            If 합계(X) < 합계(Y) Then
                            Temp = 합계(X)
                            합계(X) = 합계(Y)
                            합계(Y) = Temp
                            End If
                        Next Y
                    Next X
                   
   
    Close #1
    ''출력파일처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계(5)
    Close #2
End Sub