[문제3] 예약일자는 YYYYMMDD로 구성되어있다. 월일(MMDD)과 상관없이 2001년에 예약한 자료의 (부대시설이용요금 * 투숙기간)의 합계를 구하여 출력하시오.(30점)

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

       예약일자 = Trim(Mid(버퍼, 7, 4))   
        부대시설이용요금 = Val(Mid(버퍼, 25, 5))
        투숙기간 = Val(Mid(버퍼, 15, 2))
       
        If 예약일자 = "2001" 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