문제를 붙여넣으니..계속 오류가 나서..할수없이 문제는 못넣었습니다ㅠㅠ

여기 기출문제 봐도...산업기사 10월 31일까지만 있고..11월 1일 자료는 없더라구요...

소스좀 보고싶어요..

오류도 안나고 결과값이 모두 틀리게 나와요...ㅠㅠ 낼이 셤인데..이렇게 헤매고 있으니;;

어디가 틀렸는지 좀 가르쳐주세요...ㅠㅠ

혼자 계속 헤매다 도저히 감을 못잡아서 이렇게 문의드립니다..

문제3>

''''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''''핵심변수선언
   
    Dim 투숙기간, 누적점수, 예약일자, 합계 As Variant
   
    ''''인수처리
     인수1 = Val(Left(Command, InStr(Command, " ")))
     인수2 = Val(Mid(Command, InStr(Command, " ")))
    ''''입력파일처리
     Open "C:\C_it\data\abc0109.txt" For Input As #1
     
        For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
                ''''변수저장
                투숙기간 = Val(Mid(버퍼, 15, 2))
                누적점수 = Val(Mid(버퍼, 41, 5))
                예약일자 = Trim(Mid(버퍼, 12, 1))
               
               
                If 예약일자 = "9" Then
                    합계 = 합계 + (투숙기간 * 누적점수)
                End If
            End If
        Next i
     Close #1
    ''''출력파일처리
    Open "C:\C_it\data\Ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2

문제4>

''''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''''핵심변수선언
   
    Dim 고객구분코드, 추가사용금액, 투숙기간, 예약실구분코드, 할인금액, 합계 As Variant
   
    ''''인수처리
     인수1 = Val(Left(Command, InStr(Command, " ")))
     인수2 = Val(Mid(Command, InStr(Command, " ")))
    ''''입력파일처리
     Open "C:\C_it\data\abc0109.txt" For Input As #1
     
        For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
                ''''변수저장
                투숙기간 = Val(Mid(버퍼, 15, 2))
                고객구분코드 = Trim(Mid(버퍼, 17, 2))
                예약실구분코드 = Trim(Mid(버퍼, 39, 2))
                할인금액 = Val(Mid(버퍼, 30, 4))
               
                ''''표처리
                Select Case 고객구분코드
                    Case "HA"
                    추가사용금액 = 1530
                    Case "VP"
                    추가사용금액 = 2100
                    Case "YE"
                    추가사용금액 = 2340
                    Case "IN"
                    추가사용금액 = 3100
                End Select
               
                ''''합계구하기
                If 투숙기간 >= 12 Or 예약실구분코드 = "AZ" Then
                    합계 = 합계 + 할인금액 + 추가사용금액
                End If
               
               
            End If
        Next i
     Close #1
    ''''출력파일처리
    Open "C:\C_it\data\Ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2

sub main 물론 넣었고요..