03년 10월27일오후문제 2 번 입니다. 이전에 풀었을땐 맞은거 같은데..아무리 봐도 뭐가 틀린지 모르겠어요..자꾸 수정전의 답이 나와요..ㅠ,,,p001195가와요. p001102으로 답이 수정된거 같던데..도와주세요~
3번도 풀어보니 역시 이전에 답 31748290이 나오네요...4번도 그래요..ㅠ ㅠ

2번만 알려주세요~3,4번도 같은 이유에서 틀렸을거 같으니까요/...
감사합니다~

Option Explicit

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
        최소값 = 999999999
               
        For k = 1 To 인수2
            Line Input #1, 버퍼
            If k >= 인수1 Then
               
                ''''''''''''''''변수 저장
                예약일자 = Val(Mid(버퍼, 8, 4))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
                일련번호 = Trim(Mid(버퍼, 1, 7))
               
                ''''''''''''''''최대일련번호 구하기
                If 예약일자 = 1999 Then
                   If 최소값 > 예약수량 * 예약금액 Or (최소값 = 예약수량 * 예약금액 And 최대일련번호 < 일련번호) Then
                        최소값 = 예약수량 * 예약금액
                        최대일련번호 = 일련번호
                       
                   End If
                End If
            End If
        Next k
               
    Close #1
   
    ''''''''''''''''출력 파일 처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 최대일련번호
       
    Close #2
End Sub