2004년 7월 10일 오후 4번 문제에요..

문제 올리려고 하니 오류가 나서요..

번거로우시더라구 부탁드립니다.

Option Explicit

Sub main()

''필수변수
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\san0105.txt" For Input As #1
 
 
 For i = 1 To 인수2
  Line Input #1, 버퍼
   If i >= 인수1 Then
  
   ''변수저장

   예약금액 = Val(Mid(버퍼, 23, 10))
  
   ''표처리
   Select Case 예약금액
    Case Is >= 7001
     사은포인트 = 2500 + (예약금액 * 4)
    Case Is >= 6001
     사은포인트 = 2000 + (예약금액 * 3)
    Case Else
     사은포인트 = 1500 + (예약금액 * 2)
    End Select
   
     If 예약금액 >= 50000 And 예약금액 < 80000 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

End Sub