영진모의고사 12번 주식정보과리 3번 문제

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(버퍼, 43, 7))
                현재가 = Val(Mid(버퍼, 6, 6))
               
               
                ''표 구하기
                Select Case 업종코드
                   
                    Case "A1"
                        예측률 = 합계 + 0.02
                    Case "A2"
                        예측률 = 합계 + 0.04
                    Case "A3"
                        예측률 = 합계 - 0.08
                    Case "A4"
                        예측률 = 합계 - 0.01
                       
                End Select
               
                ''합계구하기
                If 거래량 >= 500000 Then
                    Num = Num + 1
                    합계 = 합계 + (현재가 * (1 + 예측률))
                End If
               
               
            End If
           
        Next i
        ''평균구하기
        If Num = 0 Then
           평균 = 0
        Else
           평균 = Fix(합계 / Num)
        End If
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2
   
End Sub