Option Explicit

Sub main()
    ''필수 변수 선언
        Dim 인수1, 인수2, i, 버퍼 As Variant
       
    ''핵심 변수 선언
        Dim 배달여부, 예약수량, 예약금액, 일련번호(1000), 최대값, 최소값, 합계, Num As Variant
       
    ''인수처리
        인수1 = Val(Left(Command, InStr(Command, " ")))
        인수2 = Val(Mid(Command, InStr(Command, " ")))
       
    ''입력 파일 처리
        Open "C:\C_it\data\Abc.txt" For Input As #1
       
        최대값 = 0
        최소값 = 99999
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
                If i >= 인수1 Then
               
                        배달여부 = Trim(Mid(버퍼, 93, 2))
                    ''변수저장
                        예약수량 = Val(Mid(버퍼, 18, 5))
                        예약금액 = Val(Mid(버퍼, 23, 10))
                   
                    ''배열변수저장
                        If 배달여부 <> "OK" And 배달여부 <> "NO" Then
                             Num = Num + 1
                             ''합계(Num) = 예약수량 * 예약금액
                             일련번호(Num) = Trim(Left(버퍼, 7))
                        End If
                               
                    If 최대값 < 예약수량 * 예약금액 Or (최대값 = 예약수량 * 예약금액 And 최소값 > 일련번호(Num)) Then
                        최대값 = 예약수량 * 예약금액
                       
                        최소값 = 일련번호(Num)
                    End If
                End If
         Next i
       
       
       
    Close #1
   
    ''출력 파일 처리
    Open "C:\C_it\data\Ans23.txt" For Output As #2
        Print #2, 인수1, 인수2, 최대값
    Close #2
   
   
       
       

End Sub

같은 문제 3번이에요^-^