결과값이 251 549 40

            132 355 31

이라고 하셨는데, 둘째는 맞게 나왔는데 첫째꺼가 저는 39가 나오거든요.

제 소스코딩 어디 잘못된거 있나요?

** 항상 답변 주셔서 감사합니다. 저도 스스로 해결하고 싶은데,제눈에는 잘못된게 안보여서요^^;;

Option Explicit

Sub main()
    ''필수변수입력
    Dim 인수1, 인수2, 버퍼, i As Variant
   
    ''핵심변수입력
    Dim 광고건수, 사이트타입, 회원수, 광고단가, num As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "C:\C_IT\data\abc0015.txt" For Input As #1
   
        For i = 1 To 인수2
        Line Input #1, 버퍼
            If i > 인수1 Then
                ''변수저장
                회원수 = Val(Mid(버퍼, 21, 6))
                광고건수 = Val(Mid(버퍼, 6, 4))
                사이트타입 = Trim(Mid(버퍼, 11, 1))
               
                ''표처리
                    Select Case 회원수
                        Case Is >= 10000
                            광고단가 = 500000
                        Case Is >= 5000
                            광고단가 = 100000
                        Case Is >= 1000
                            광고단가 = 50000
                        Case Else
                            광고단가 = 10000
                    End Select
                ''합계
                If 사이트타입 = "M" And 광고건수 * 광고단가 > 20000000 Then
                    num = num + 1
                   
                   
                End If
            End If
           
        Next i
      
      
    Close #1
    ''출력파일처리
    Open "C:\C_IT\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, num
    Close #2
End Sub