3번 답이 안나오네요...
산업기사 05-05-09 오전 기출문제인데요...
아무래도 합계구하기 부분이 틀린것 같은데 어떻게 해야할지
모르겠어요...
좀 도와주세요... 요것땜시 끙끙 앓구있습니다..ㅠㅠ

문제3) 예약일자(YYYYMMDD)에 대해서 9월에 예약한 자료인 (투숙기간*누적점수)의 합계를 출력하시오.

Option Explicit

Sub main()

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

''핵심변수선언
Dim 투숙기간, 누적점수, 예약일자, 합계 As Variant

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

''입력파일처리
Open "c:\c_it\data\s10261.txt" For Input As #1
    For k = 1 To 인수2
    Line Input #1, 버퍼
    If k >= 인수1 Then
   
''변수저장
투숙기간 = Val(Mid(버퍼, 15, 2))
누적점수 = Val(Mid(버퍼, 40, 5))
예약일자 = Trim(Mid(버퍼, 7, 8))

''합계구하기

If 예약일자 = "9월" Then
합계 = 합계 + 투숙기간 * 누적점수

End If
End If
Next k
Close #1

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

Close #2

End Sub