서적매출액 관리 1번 문제 소스 코딩하고 입력파일도 제대로 복사해서 붙였는데
값이 저장되어 있지 않네요 문제가 몰까요..

코딩한거 올려봅니다.

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\abc02.txt" For  Input  As  #1
    
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''''변수 저장
                월매출액 = Val(Mid(버퍼, 26, 5))
                주문량 = Val(Mid(버퍼, 13, 3))
               
                ''''합계 구하기
                Num = Num + 1
                합계(Num) = 월매출액 - 주문량
               
            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, 합계(9)
       
     Close #2
    
    

End Sub