Option Explicit

Sub main()

 ''필수변수 선언
 Dim 인수1, 인수2, i, 버퍼 As Variant
 
  ''핵심변수 선언
  Dim 단가, 이익포인트, 거래포인트, j, 합계(1000), Temp, Num As Variant
 
 
 
  ''인수처리
 
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

  
   ''입력 파일 처리
   Open "c:\c_it\data\abc0001.txt" For Input As #1
    For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
           ''변수 저장
           단가 = Val(Mid(버퍼, 12, 3))
           이익포인트 = Val(Mid(버퍼, 20, 3))
           거래포인트 = Val(Mid(버퍼, 27, 3))
          
           If 단가 >= 50 Then
             Num = Num + 1
             합계(Num) = 이익포인트 + 거래포인트
             
          
           End If
          
        End If
   Next i
   ''정렬 알고리즘
   For i = 1 To Num
   For j = i To Num
  
     If 합계(i) < 합계(j) Then
       Temp = 합계(i)
       합계(i) = 합계(j)
       합계(j) = Temp
        
   End If
   Next j
   Next i
  
  
  
  
   Close #1
  
   ''출력 파일 처리
  
   Open "c:\c_it\data\ans1.txt" For Output As #2
   Print #2, 인수1, 인수2, 합계(5)
   Close #2
   End Sub
  

입력 처리 오픈있는데서 런타임 오류..75발생이라고 나오구요. 아마 속성-> 만들기에서 인수값이 저장 안되서 그런거 같은 예감이 드는데.;.. 안 열어지네요. 속성부분이 오른쪽 마우스 클릭해도 회색으로 클릭이 안되요..뭐가 문젠지요??? 3시간동안 해맸어요..떨어질듯..