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\abc0001.txt" For Input As #1

''''최대값 초기화
    최대값 = 0
   
    
        For i = 1 To 인수2
            Line Input #1, 버퍼
        If i >= 인수1 Then
            ''''변수 저장
            단가 = Val(Mid(버퍼, 12, 3))
            이익포인트 = Val(Mid(버퍼, 20, 3))
            거래포인트 = Val(Mid(버퍼, 27, 3))
                       
            If 단가 >= 50 Then
               
                If 최대값 < 이익포인트 + 거래포인트 Then
                최대값 = 이익포인트 + 거래포인트
                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