영진교재에 있는 모의고사는 고급유형까지 완벽하게 소화하신 분만 보세요.

왜냐하면...영진출판사에서 임의로 만든 문제이므로 문제와 답이 적절하지 않는 경우가 많습니다. 잘못하면 기출문제로 어렵게 쌓아놓은 개념들이 흐틀어질 수 있습니다.

이 문제에서는 Int() 와 Fix()의 사용에 있어서...영진교재에는 적절치 못한 방법으로 풀이되었습니다. 혼란이 없었으면 합니다.

아래의 소스를 참고하세요.

인수값 대입에 따른 결과는=>( 469           569           5690 ) 교재와 다름니다.

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