첫번째 풀이해주신 기출문제 인데요.

명령줄 인수 넣는걸 해보면

컴파일 오류입니다 sub 또는 function이 정의되지 않았습니다.

자꾸 이 메세지가 뜨면서 확인 눌러보면 둘째줄 sub main()에 노란색이 쳐지는데

그냥 넘어갔거든요.

그다음 두번째 기출문제를 새로 또 소스코딩 따라해봤는데

이번엔 ''''컴파일 오류입니다. 선택적 인수가 아닙니다'''' 이러면서 역시 sub main()에 노란색이...

뭔가 근본적인 문제가 있을 것 같아서 첫번째 소스코딩만 올려봅니다.

선생님~ 도와주세요. ㅠ.ㅠ 어떻게 된걸까요?

Option Explicit

Sub main()

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

    ''핵심 변수 선언
    Dim 단가, 이익포인트, 거래포인트, 합계(1000), j, Temp, Num As Variant

    ''인수처리
    인수1 = Val(Left(Command, instro(Command, " ")))
    인수2 = Val(Mid(Command, instro(Command, " ")))

    ''입력 파일 처리
    Open "c:\c_it\data\abc001.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