31강 호텔할인요금관리 문제3번입니다

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\abc0001.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''''변수저장하기
                예약일자 = Trim(Mid(버퍼, 13, 2))
                누적점수 = Val(Mid(버퍼, 40, 5))
               
                ''''자료건수구하기
                If 예약일자 >= 16 And (누적점수 Mod 3) = 0 Then
                    num = num + 1
                End If
               
               
               
            End If
           
        Next i
       
    Close #1
   
    ''''출력파일
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, num
    Close #2
   
End Sub