특강 1강 2번 중고차 판매관리 4번-자료건수 구하는 문제인데요

답은 58인데

60이 나오네요

소스는 맞는것 같은데...

어디가 틀린건지 가르쳐주세요~

모의고사 신청했는데

문자가 안오면 오늘 못보느 건가요?

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\abc0019.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수저장
                주행거리 = Val(Mid(버퍼, 21, 5))
                제조사 = Trim(Mid(버퍼, 5, 3))
                배기량 = Val(Mid(버퍼, 10, 4))
               
                ''표처리
                Select Case 제조사
                    Case "KIA"
                        할인포인트 = 20000
                    Case "HD"
                        할인포인트 = 10000
                    Case "SS"
                        할인포인트 = 5000
                End Select
               
                ''합계구하기
                If 배기량 >= 2000 And (주행거리 - 할인포인트) >= 15000 Then
                   자료건수 = 자료건수 + 1
                End If
            End If
        Next i
       
    Close #1
   
   
   
    ''출력파일처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, 자료건수
    Close #2
   
   

End Sub