Option Explicit

Sub main()

''필수변수선언
Dim 인수1, 인수2, i, 버퍼 As Variant
''핵심변수선언
Dim 거래코드, 추가포인트, 매출액, 제조구분, 합계 As Variant

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

''입력파일 처리
Open "C:\C_it\data\abc05.txt" For Input As #1
   
    For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
           
            ''변수저장
            거래코드 = Trim(Mid(버퍼, 19, 1))
            매출액 = Val(Mid(버퍼, 26, 3))
            제조구분 = Trim(Mid(버퍼, 7, 1))
       
            ''표처리
            Select Case 거래코드
                Case "A": 추가포인트 = 5
                Case "B": 추가포인트 = 10
                Case "C": 추가포인트 = 15
            End Select
           
           
            ''합계구하기
            If 제조구분 = "B" Then
                합계 = 합계 + 매출액 + 추가포인트
            End If
           
        End If
       
    Next i
   

Close #1
''출력파일 처리
Open "c:\c_it\data\ans3.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계
Close #2

End Sub

이상과 같이 소스 입력 했는데요.. 전 소스 입력 하면 한번도 안빠지고 런타임 오류5번에

잘 빠지는데요... 프로그램 속성에서 만들기에서 예로 [100 200]뭐 이렇게 범위 넣어서

하면 또 답은 떠요.. 근데 어김없이 인수처리부분 "인수2"부분에 노란줄이 그어지는데

답만 맞으면 상관 없는 건가요??????