05년 5월 4일 오전 문제중에 1번이요..
아무리 봐도 소스코딩이 문제가 없는데 답이 자꾸 틀려요 좀 봐주세요...
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\san0105.txt" For Input As #1

''최대값초기화
최대값 = 0

   For k = 1 To 인수2
     Line Input #1, 버퍼
       If k >= 인수1 Then
      
        ''변수 저장
         예약일자 = Trim(Mid(버퍼, 8, 4))
         예약수량 = Val(Mid(버퍼, 18, 5))
         예약금액 = Val(Mid(버퍼, 23, 10))
        
         ''최대값 구하기
         If 예약일자 = "1999" Then
             If 최대값 < 예약일자 * 예약금액 Then
                 최대값 = 예약일자 * 예약금액
               
              End If
        
        
         End If
        
       End If
  
   Next k
  

Close #1

''출력 파일 처리
Open "c:\c-it\data\ans01.txt" For Output As #2

Print #2, 인수1, 인수2, 최대값

Close #2

End Sub