Sub main()

''필수 변수 선언
Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심 변수 선언
Dim 월매출액, 주문량, 합계(1000), j, 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 i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
               
            ''변수 저장
            월매출액 = Val(Mid(버퍼, 26, 5))
            주문량 = Val(Mid(버퍼, 13, 3))
           
            num = num + 1
            합계(num) = 월매출액 - 주문량
           
        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\abc02.txt" For Output As #2
   
    Print #2, 인수1, 인수2, 합계(9)

Close #2

End Sub

자료실의 입력파일을 열어서 수행결과를 보려고 했더니...

''5'' 런타임오류가 발생하였습니다.

프로시저 호출 또는 인수가 잘못되었습니다.

디버그 시켜보니 저 노란줄이 나오더라구요.

이건 무슨이유죠?

선생님 전화는 어디로 해야하나요?