* 강의중에 초급유형특징에 있는 문제2번을 풀고 있는데 자꾸 컴파일 오류라면서 참조가 잘못됐거나 조건이 없다고 하는데 뭐가 잘못된나요??? 아래 제가 만든 코딩도 덧붙입니다.

* 그리구요 초급유형특징에 나와있는 문제3번 핵심변수선언은 어떻게 나열해야 되나요 헤깔려서요...

Sub main()

    ''''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''''핵심변수선언
    Dim 직업코드, A후보호감도, B후보호감도, 최대값, 최소값, j, temp, num As Variant
   
    .인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''입력파일처리
    Open "c:\c_it\data\abc00009.txt" For Input As #1
   
            ''''초기화
            최대값 = 0
            최소값 = 9999999999999
            
            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