처음엔 인수만 출력되고 답이 안떴었는데..
아무리 찾아봐두 틀린곳이 없는 것 같아서 복사해서
새창에다가 붙여넣기 한다음 저장을 했는데 그뒤론
아예 출력파일 자체가 생성이되질 않아요.
왜그렇죠?



Option Explicit

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 제조등급, 매출액, 판매량, 제조포인트, 합계(1000), P, Temp, Num 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 K = 1 To 인수2
            Line Input #1, 버퍼
                If K >= 인수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 K
       
    ''정렬(내림차순)
    For K = 1 To Num
        For P = K To Num
            If 합계(K) < 합계(P) Then
                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