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

''''''''''''''''최소값초기화
최소값 = 999999999
최대일련번호 = 0
   
    For I = 1 To 인수2
        Line Input #1, 버퍼
        If I >= 인수1 Then
       
        ''''''''''''''''변수선언
        예약일자 = Val(Mid(버퍼, 8, 4))  <<< 그리고 예약일자는 문제상에서 문자로처리되어있는데 그러면 이부분에서 트림으로 추출해야되나요? 4자리만...아니면 숫자로 해야되나요? 실전에서 어떻게 해야하죠..
        예약수량 = Val(Mid(버퍼, 18, 5))
        예약금액 = Val(Mid(버퍼, 23, 10))
       
       
        If 예약일자 = 1999 Then
            If 최소값 > 예약수량 * 예약금액 Or _
                (최소값 = 예약수량 * 예약금액 And 최대일련번호 < 일련번호) Then
           
            최소값 = 예약수량 * 예약금액
            최대일련번호 = 일련번호
            일련번호 = Trim(Mid(버퍼, 1, 7))  <<<이부분 코딩할때 이거를 if문 밖에하는거랑

안에다 하는거랑 때문에 답이 틀려지는 것 같은데요...안에다 해도되나요? 안되겠죠 --;;

            
            End If
           
           
           
        End If
       
       
        End If
       
    Next I
   
Close #1

''''''''''''''''출력파일처리
Open "C:\C_IT\DATA\ANS2.TXT" For Output As #2
    Print #2, 인수1, 인수2, 일련번호
Close #2

End Sub