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
       

모가 잘 못 되었을까요 ?