자료실에 보시면 특강 소스가 있습니다. 확인 부탁드립니다.

.인수처리

=> 주석처리가 안 되었네요. (''인수처리)

Option Explicit

Sub main()

    ''필수 변수 선언
    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
        최소값 = 99999999
       
        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