코딩 맞게 한것 같은데 답이 나오지 않네요...

정답을 알고 싶습니다...

--------------------------------------------------------------------------

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\abc08.txt" For Input As #1

    For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
    ''변수 저장
   상품분류코드 = Trim(Mid(버퍼, 5, 2))
   월총판매금액 = Val(Mid(버퍼, 26, 5))
   수량 = Val(Mid(버퍼, 13, 3))
  
  
   ''합계구하기
  
   If 상품분류코드 = "D" And 수량 <= 300 Then
    Num = Num + 1
    합계 = 합계 + 월총판매금액
   End If

  End If
Next i

''평균구하기

If Num = 0 Then
    평균 = 0
    Else
    평균 = Int(합계 / Num)
End If

 
Close #1

''출력 파일 처리
Open "C:\C_iT\data\ans3.txt" For Output As #2
    Print #2, 인수1, 인수2, 평균
    Close #2

End Sub

이건 제가 한건데 어디가 틀렸는지.... ㅡ.ㅡ;;