资源描述:
《课程设计关键代码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、课程设计关键代码:1.贷款'等额本息'享受政策性贷款人数Fori=0To3IfOption1(i)ThenExitForNextCorpus2=i*6'可以进行政策性贷款的数额'计算实际贷款额,Corpus1为商业贷款,Corpus2为政策性贷款IfCorpus1>Corpus2ThenCorpus1=Corpus1-Corpus2ElseCorpus2=Corpus1Corpus1=0EndIfCorpus1=Corpus1*10000Corpus2=Corpus2*10000A1=A(Corpus1,0.05,Year)A2=A(Corpus2,0.04,Year)LoadForm2'
2、加载Form2Form2.Text1=Format(A1+A2,"0.00")Form2.Text2=Format((A1+A2)*Year*12,"0.00")Form2.Text3=(A1+A2)*Year*12/(Corpus1+Corpus2)'等额本金'享受政策性贷款人数Fori=0To3IfOption1(i)ThenExitForNextCorpus2=i*6'可以进行政策性贷款的数额'计算实际贷款额,Corpus1为商业贷款,Corpus2为政策性贷款IfCorpus1>Corpus2ThenCorpus1=Corpus1-Corpus2ElseCorpus2=Corpus
3、1Corpus1=0EndIfCorpus1=Corpus1*10000Corpus2=Corpus2*10000A1=B(Corpus1,0.0504,Year,b1)A2=B(Corpus2,0.0405,Year,b2)LoadForm3'加载Form3Fori=1ToYear*12Form3.List1.AddItemstart_year&"年"&Format(start_month,"00")&"月:"&Format(b1(i)+b2(i),"0.00")&"元"start_month=start_month+1Ifstart_month=13Thenstart_month=1:
4、start_year=start_year+1NextForm3.Text2=A1+A2Form3.Text3=(A1+A2)/(Corpus1+Corpus2)2、股市计算器‘投资分析DimYongJinAsSingle'佣金比率DimYHSAsSingle'印花税率DimCGSLAsInteger'持股数量DimMRJAsSingle'买入价DimMCJAsSingle'卖出价DimZDFYAsSingle'最低费用DimMRYJAsSingle'买入佣金DimMCYJAsSingle'卖出佣金DimBBJAsSingle'保本价IfText14.Text=""OrText15.Tex
5、t=""OrText16.Text=""ThenMsgBox"输入数据不完整,请重新输入",vbCritical,"错误"ExitSubEndIfYongJin=Val(Form4.Text19.Text)YHS=Val(Form4.Text17.Text)CGSL=Val(Text14.Text)MRJ=Val(Text15.Text)MCJ=Val(Text16.Text)ZDFY=Val(Form4.Text20.Text)IfCGSL*MRJ*YongJin>10ThenMRYJ=CGSL*MRJ*YongJinElseMRYJ=10EndIfIfCGSL*MCJ*YongJin>
6、10ThenMCYJ=CGSL*MCJ*YongJinElseMCYJ=10EndIfBBJ=Format((CGSL*MRJ*(1+YHS)+MRYJ+MCYJ)/(CGSL*(1-YHS)),"0.00")Text1.Text=BBJText2.Text=Format((MRYJ+MCYJ+(YHS*MRJ+YHS*MCJ)*CGSL),"0.00")Text3.Text=Format(CGSL*MRJ*(1+0.004)+MRYJ,"0.00")Text4.Text=Format(CGSL*MCJ*(1-0.004)-MCYJ,"0.00")Text5.Text=Format(Val
7、(Text4.Text)-Val(Text3.Text),"0.00")Text6.Text=Format(Val(Text5.Text)/Val(Text3.Text)*100,"0.00")‘除权除息DimdqjAsSingleDimpgjAsSingleDimmgsgAsSingleDimmgfhAsSingleDimmgpgAsSingleDimcqcxjAsSingleIfText8.Text=""ThenMs