03년 10월 26일 오전 산업기사 문제 3번이에요.. 확인좀해주세요

그리고 ''''변수저장 다음에 ''''예약일자에서 필요한 년도부분만 추출 이건 안써두 무관하죠?


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\abc0105.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\ans03.txt" For Output As #2

Print #2, 인수1, 인수2, 합계

Close #2

End Sub