资源描述：
《VB-股市计算器课程设计报告书》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、编程语言课程设计报告书所属课程名称：VB程序设计语言题目：股市计算器学院：经管学院专业：经济信息管理（方向）班级：工商09-3学号：090614310姓名：王艳梅指导老师：刘音课程设计报告任务书经济管理学院经济信息管理（方向）专业工商09-3班王艳梅姓名090614310学号一、课程设计题目：股市计算器二、课程设计时间：2011年6月20日起至2011年6月24日止三、课程设计地点：经管机房908四、课程设计要求：l评分标准Ø基本功能实现（30分）Ø独立工作能力及工作量（30分）Ø问题复杂程度/代码量（25分）Ø代码质量：容错、通用性、可读性。（
2、10分）Ø改进或创新（5分）l提交成果Ø可执行程序（现场验收）。Ø课程设计报告。内容包括：（1）问题描述、任务分工（合作完成）（2）数据库设计（如果有）（3）功能模块描述（4）难点及解决方法（5）体会（6）其它一、参考资料VisualBasic课程设计，王栋，清华大学出版社目录一、功能描述……………………………………………………………….2二、设计思路……………………………………………………………….2三、具体实现………………………………………………………………..3-6四、运行结果及难点解决…………………………………………………..7-8五、设
3、计体会………………………………………………………………..9一、功能描述股市计算器：随着社会的发展，股市越来越受到人们青睐。股民在进行股票投资和交易时，经常需要对买卖股票作出投资分析：在上市公司进行送股、分红河配股后还需对股票除权后的价格进行计算。所以“股市计算器”应运而生。打来程序，运行并进入主界面。（1）当需要对投资进行评估，并计算相应费用时，单击“投资分析”按钮，进入“投资分析”窗口，输入数据并计算结果。（2）当需要对上市公司进行送股、分红和配股后的除权价格进行计算时，单击“除权除息”按钮，输入数据并计算结果。（3）“参数设置”是根据相应数
4、值设置的默认值，考虑到各种数率的变化情况，将其设置为可输入文本框。（4）“关于”窗体主要软件的功能及版本信息进行说明。让使用者更加了解该软件的用途。二、设计思路思想原理：本题主要涉及多窗体的使用、文本框等基本控件的使用、控件的键盘输入焦点等知识点。（1）由一个窗体联结到多个窗体，进入不同的功能板块。（2）运用文本框的各项控件，进行调试。三、具体实现在右边的属性窗口中把五个command属性依次改为“投资分析”，“除权除息”，“参数设置”，“关于”，“退出”；双击form1属性窗口中的Icon属性，选取图标，再将caption属性改为“股市计算器”
5、。程序源代码：Form1OptionExplicitPrivateSubCommand1_Click()Form2.ShowMe.HideEndSubPrivateSubCommand2_Click()Form3.ShowMe.HideEndSubPrivateSubCommand3_Click()Form4.ShowMe.HideEndSubPrivateSubCommand4_Click()Form5.ShowMe.HideEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubForm_Resi
6、ze()PrivateSubForm_Resize()DimobjpicbufAsIPictureDispAutoRedraw=TrueSetobjpicbuf=LoadPicture("123.jpg")PaintPictureobjpicbuf,0,0,ScaleWidth,ScaleHeightEndSubEndSubForm2OptionExplicitPrivateSubCommand1_Click()Dimb,c,d,e,f,g,h,i,jAsSingleDimaAsLongIfText1.text=""ThenMsgBox"股票代码
7、不能为空！"ExitSubEndIfa=Val(Text1.text)b=Val(Text2.text)c=Val(Text3.text)d=Val(Text4.text)Form4.Hidee=c+0.003*c+c*x+d*0.003+d*xText5.text=Format(Val(e),"0.00")f=b*c*y+b*d*x*yText6.text=Format(Val(f),"0.00")g=b*c+c*y*bText7.text=Format(Val(g),"0.00")h=b*d-g+b*cText8.text=Format(Va
8、l(h),"0.00")i=h-gText9.text=Format(Val(i),"0.00")j=(i/g)*100Text10.t
