''필수변수선언
Dim 인수1, 인수2, 버퍼, i As Variant

''핵심변수선언
Dim 직업코드, A후보호감도, B후보호감도, 최소값, 최대값 As Variant

''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리
Open "c:\c_it\data\abc0009.txt" For Input As #1
   
    ''최대값,최소값초기화
    최대값 = 0
    최소값 = 999999999
   
For i = 1 To 인수2
Line Input #1, 버퍼
    If i >= 인수1 Then

        ''변수저장
        직업코드 = Trim(Mid(13, 1))
        A후보호감도 = Val(Mid(14, 2))
        B후보호감도 = Val(Mid(16, 2))
           
       
         If 직업코드 = "A" Or 직업코드 = "B" Then
           
            ''최대값
            If 최대값 < A후보호감도 + B후보호감도 Then
                최대값 = A후보호감도 + B후보호감도
                           
            End If
           
            ''최소값
             If 최소값 > A후보호감도 + B후보호감도 Then
                최소값 = A후보호감도 + B후보호감도
                           
            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