5월 4일 오전 기사시험 3번이요...

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\abc0504.txt" For Input As #1
       
                   
        For i = 1 To 인수2
         Line Input #1, 버퍼
         If i >= 인수1 Then
         End If                                                      <<<<<<------ End If 가
         
         ''''변수저장
         배달방법 = Trim(Mid(버퍼, 71, 2))
         배달거리 = Val(Mid(버퍼, 103, 10))
         예약수량 = Val(Mid(버퍼, 18, 5))
        
         ''''표처리
         Select Case Trim(Right(배달방법, 1))
                 
            Case "A"
                배달비용 = 배달거리 * 10000 + 50000
            Case "B"
                배달비용 = 배달거리 * 8000 + 30000
            Case Else
                배달비용 = 배달거리 * 7000 + 20000
               
                   End Select
              ''''합계
              If 예약수량 >= 80 Then
                  합계 = 합계 + 배달비용
                                
              End If
              
            End If                                       <<<<<<<<<<<<<<-----------이리로 와야됩니다.
         
         Next i
       
        
    Close #1
   
    ''''출력
    Open "c:\c_it\data\ans14.txt" For Output As #2
   
        Print #2, 인수1, 인수2, 합계
       
       
    Close #2
   
   
End Sub

if i>=인수 1 then

       ''변수저장

end if