| | | 제 목 | 코딩 수정 부탁드립니다! | | | 글쓴이 | 문민호 | 작성일 | 2005-07-02 | 조회수 | 514 | | | 글공유 | |
| | | 영진 교재중 모의고사 12회 주식정보관리 3번을 풀다가 해결하지 못해 수정 코딩 부탁드리
다!
<문제> 업종코드에 대한 업종별예측률은 다음과 같다.
업종코드 업종별예측률
A1 +0.02
A2 +0.04
A3 -0.08
A4 -0.01
위 표를 참조하여 거래량이 500,000 이상인 자료에 대하여 종목의 익일예측주가 평균을 출력하되 원 단위에서 버림하여 처리하시오. 단, 익일예측주가는 원 단위에서 버림하여 처리하고 예측률은 소수점 아래 셋째자리에서 버림하여 처리하시오.
.익일예측주가=현재가*(1+예측률)
.예측률=(업종별예측률+종목별예측률)/2
.종목별예측률=전일비/현재가
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
End Select
''합계구하기
If 거래량>=500000 Then
종목별예측률= 전일비/현재가
예측률=(업종별예측률+종목별예측률)/2
예측률=Int(예측률*100)/100
익일예측주가=현재가*(1+예측률)
익일예측주가=Int(익일예측주가/10)*10
Num=Num+1
합계=합계+익일예측주가
End If
''평균구하기
If Num <> 0 Then
평균= Int(합계/Num/10)*10
Else
평균=0
End If
End If
Next k
Close #1
''출력파일처리
Open "c:\c_it\data\ans3.txt" For output As #2
Print #2, 인수1, 인수2, 평균
Close #2
End Sub
| |
|
|
이전글
다음글
