몇번씩 확인해 봤는데.....틀린데가 안보여요....근데 답은 자꾸 6000씩 초과되서 나오구요...

알려주세요~~~^^


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\ABC0002.TXT" For Input As #1

For K = 1 To 인수2
Line Input #1, 버퍼
If K >= 인수1 Then

''변수저장

예약방법코드 = Trim(Mid(버퍼, 36, 2))
예약일자 = Val(Mid(버퍼, 11, 2))
누적점수 = Val(Mid(버퍼, 40, 5))

''표처리
Select Case 예약방법코드
    Case "LG"
    추가사용점수 = 3910
    Case "TE"
    추가사용점수 = 2970
    Case "FA"
    추가사용점수 = 7930
    Case "HU"
    추가사용점수 = 6360

End Select

''합계

If (예약일자 Mod 2) = 1 Then
합계 = 합계 + 누적점수 + 추가사용점수

End If

End If
Next K

Close #1
''출력파일
Open "C:\C_IT\DATA\ANS4.TXT" For Output As #2

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

End Sub