영진교재는 답이 틀립니다.

Option Explicit

Sub main()

    ''필수인수
    Dim 인수1, 인수2, 버퍼, i As Variant
   
    ''핵심인수
    Dim 업종코드, 업종별예측율, 종목별예측율, 예측율, 익일예측주가, 전일비, 현재가, 거래량, 평균, 합계, Num As Variant
   
    ''인수정의
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일
    Open "c:\c_it\data\abc12.txt" For Input As #1
     
      For i = 1 To 인수2
      Line Input #1, 버퍼
       If i >= 인수1 Then
       
        ''''변수정의
        
         업종코드 = Trim(Mid(버퍼, 35, 2))
         전일비 = Val(Mid(버퍼, 29, 6))
         현재가 = Val(Mid(버퍼, 6, 6))
         거래량 = Val(Mid(버퍼, 43, 7))
          
           ''''표그리기
           Select Case 업종코드
                  Case "A1"
                    업종별예측율 = 0.02
                  Case "A2"
                    업종별예측율 = 0.04
                  Case "A3"
                    업종별예측율 = -0.08
                  Case "A4"
                    업종별예측율 = -0.01
            End Select
           
           If 거래량 >= 500000 Then
            종목별예측율 = 전일비 / 현재가
            예측율 = (업종별예측율 + 종목별예측율) / 2
            예측율 = Fix(예측율 * 100) / 100
            익일예측주가 = 현재가 * (1 + 예측율)
            익일예측주가 = Fix(익일예측주가 / 10) * 10
           
            Num = Num + 1
            합계 = 합계 + 익일예측주가
               
           End If
       
         End If
      
      Next i
            
             ''''평균구하기
             If Num = 0 Then
                평균 = 0
             Else
                평균 = Fix(합계 / Num / 10) * 10
             End If
            
    Close #1
   
   
   
    ''''출력파일
    Open "c:\c_it\data\ans3.txt" For Output As #2
    Print #2, 인수1, 인수2, 평균
        Close #2
End Sub