책에있는 모의고사 천천히 풀어보고 있는데요..
이것좀 봐주세요...
12 주식정보관리인데요...문제 3번
대충했는데 답이 틀려요....꼭 봐주세요..
Option Explicit

Sub Main()
    ''필수변수선언
    Dim 인수1, 인수2, 버퍼, k 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 k = 1 To 인수2
        Line Input #1, 버퍼
            If k >= 인수1 Then
            ''변수저장
            업종코드 = Trim(Mid(버퍼, 35, 2))
            거래량 = Val(Mid(버퍼, 43, 7))
            현재가 = Val(Mid(버퍼, 6, 6))
            전일비 = Val(Mid(버퍼, 29, 6))
            ''표처리
            Select Case 업종코드
                Case "A1"
                업종별예측률 = 0.02
                Case "A2"
                업종별예측률 = 0.04
                Case "A3"
                업종별예측률 = -0.08
                Case "A4"
                업종별예측률 = -0.01
                Case Else
                업종별예측률 = 0
            End Select
           
            ''합계구하기
            If 거래량 >= 500000 Then
                합계 = 합계 + 익일예측주가
                num = num + 1
                익일예측주가 = Fix((현재가 * (1 + 예측률)) / 10) * 10
                예측률 = Fix(((업종별예측률 + 종목별예측률) / 2) * 100) / 100
                종목별예측률 = 전일비 / 현재가
            End If
           
           
            End If
           
        Next k
        평균 = Fix((합계 / num) / 10) * 10
    Close #1
   
    ''출력파일처리
    Open "c:/c_it/data/ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2
   
End Sub