VB股计算器课程设计方案报告书

1、编程语言课程设计报告书所属课程名称:VB程序设计语言题目股市计算器学院经管学院专业经济信息管理（方向）班级工商09-3学号090614310姓名王艳梅指导老师:刘音课程设计报告任务书经济管理 学 院 经济信息管理（方向）专 业 工商09-3班王艳梅 姓 名 090614310 学 号一、课程设计题目：股市计算器二、课程设计时间：2011年6月20日起至2011年6月24日止三、课程设计地点：经管机房908四、课程设计要求： 评分标准基本功能实现（30分）独立工作能力及工作量（30分）问题复杂程度/代码量（25分）代码质量：容错、通用性、可读性。（10分）改进或创新（5分） 提交成果可执行程序（

2、现场验收）。课程设计报告。内容包括：（1）问题描述、任务分工（合作完成）（2）数据库设计（如果有）（3）功能模块描述（4）难点及解决方法（5）体会（6）其它一、参考资料Visual Basic课程设计，王栋，清华大学出版社一、功能描述 .2二、设计思路.2三、具体实现 .3-6四、运行结果及难点解决 .7-8五、设计体会 .9、功能描述股市计算器：随着社会的发展，股市越来越受到人们青睐。股民在进行股票投资和交易时，经常需要对买卖股票作出投资分析：在上市公司进行送股、分红河配股后还需对股票除权后的价格进 行计算。所以“股市计算器”应运而生。打来程序，运行并进入主界面。(1) 当需要对投资进行评估

3、，并计算相应费用时，单击“投资分析”按钮，进入“投资 分析”窗口，输入数据并计算结果。(2) 当需要对上市公司进行送股、分红和配股后的除权价格进行计算时，单击“除权除 息”按钮，输入数据并计算结果。(3) “参数设置”是根据相应数值设置的默认值，考虑到各种数率的变化情况，将其设 置为可输入文本框。(4) “关于”窗体主要软件的功能及版本信息进行说明。让使用者更加了解该软件的用 途。二、设计思路思想原理:本题主要涉及多窗体的使用、 文本框等基本控件的使用、 控件的键盘输入焦点等知识点。(1) 由一个窗体联结到多个窗体，进入不同的功能板块。(2) 运用文本框的各项控件，进行调试。三、具体实现，“参

4、数caption 属在右边的属性窗口中把五个comma nd属性依次改为投资分析”，除权除息设置”，“关于”，“退出”；双击forml属性窗口中的Icon属性，选取图标，再将 性改为“股市计算器”。程序源代码：FormlOpti on ExplicitPrivate Sub Comma nd1_Click()Form2.ShowMe.HideEnd SubPrivate Sub Comma nd2_Click()Form3.ShowMe.HideEnd SubPrivate Sub Comma nd3_Click()Form4.ShowMe.HideEnd SubPrivate Sub Com

5、ma nd4_Click()Form5.ShowMe.HideEnd SubPrivate Sub Comma nd5_Click()EndEnd SubPrivate Sub Form_Resize()Private Sub Form_Resize()Dim objpicbuf As IPictureDispAutoRedraw = TrueSet objpicbuf = LoadPicture(123.jpg)PaintPicture objpicbuf, 0, 0, ScaleWidth, ScaleHeightEnd SubEnd SubForm2Opti on Explicit Pr

6、ivate Sub Comma nd1_Click()Dim b, c, d, e, f, g, h, i, j As Sin gleDim a As LongIf Textl.text = The nMsgBox 股票代码不能为空！”Exit SubEnd Ifa = 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

7、 = 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(Val(h), 0.00)i = h - gText9.text = Format(Val(i), 0.00)j = (i / g) * 100Text10.text = Format(Val(j), 0.00)End SubPrivate Sub Comma nd2_Click()T

8、extl.text =Text2.text =Text3.text =Text4.text =Text5.text =Text6.text =Text7.text =Text8.text =Text9.text =Text10.text =Textl.SetFocusEnd SubPrivate Sub Comma nd3_Click()Forml.ShowForm2.HideEnd SubForm3Private Sub Comma nd1_Click()Forml.ShowForm3.HideEnd SubPrivate Sub Comma nd13_Click()Dim a, b, c,

9、 d, e, f As Sin gleIf Text1.text = The nMsgBox 当前价位不能为空！Exit SubEnd IfIf Text2.text = The nMsgBox 每股送股不能为空！Exit SubEnd IfIf Text3.text = The nMsgBox 每股分红不能为空！Exit SubEnd IfIf Text4.text = The nMsgBox 每股配股不能为空！Exit SubEnd IfIf Text5.text = The nMsgBox 配股价位不能为空！Exit SubEnd Ifa = Val(Text1.text)b = Val

10、(Text2.text)c = Val(Text3.text)d = Val(Text4.text)e = Val(Text5.text)f = (a + d * e - c) / (1 + b + d)Text6.text = Format(Val(f), 0.00) End SubPrivate Sub Comma nd14_Click()Textl.text =Text2.text =Text3.text =Text4.text =Text5.text =Text6.text =Textl.SetFocusEnd SubForm4Dim z As Si ngleOpti on Expli

11、citPrivate Sub Comma nd1_Click()Form1.ShowForm4.HideEnd SubPrivate Sub Comma nd2_Click()Form2.ShowForm4.Hidex = Val(Text1.text)y = Val(Text2.text)z = Val(Text3.text)End SubPrivate Sub Form_Load()x = 0.004y = 0.0035z = 10End SubForm5Private Sub Comma nd1_Click()Form1.ShowForm5.HideEnd Sub模块：Public x,

12、 y As Si ngle程序主界面:投资分析:除权除息:四、运行结果及难点解决二1叵区输出结果除枚除JB价怦心7C计算输入数据当前餡傥F删殳TE毎段送股严元毎股耳誠F每般分红45元酉己股价位怦TE返回 I参数设置:关于:705050403020100股民在:逝行股SE揽细映凰时 底W吞莊对辈 住脚ff柞出捡丹骨 W ?在上in公匐遜丐空S3.分虹 :軒11展.血皿环時風后的 沽祐迸荷 计U.秆輩用手工计博 乔侃笨:式旦杂,旺凰出幡.股旳计與旳油牛小软件可 由朗&吊枠夬SS吓滩颐一逅回问题及解决方案：问题1运行时，text中输出的数据有多位小数点，要求保留两位。 原因：对text输出结果没有做

13、取舍。解决办法：对text 输出结果用 format 函数进行控制，如text1.text=format ( val(textl.text )， “ 0.00 ”)问题2：运行过程中，form4参数设置中的数据改动，但是form2投资分析中的计算依然按照默认值计算。原因：没有将form4中的变量定义为全局变量。解决办法：添加模块，将form4中的变量定义为全局变量，如：Public x ，y as single 问题3:设置全局变量后，计算时仍是按照默认值计算。原因：，计算时form4没被调用。解决办法：在计算控件下，计算代码前调用form4，如form4.hide问题4：给主界面插入背景图片

14、时大小不与窗体相符。原因：没有设置图片大小。解决办法：设置 VB的 form 属性 AutoRedraw=ture ，同时 Set objpicbuf = Picture Pai ntPicture objpicbuf, 0, 0, ScaleWidth, ScaleHeight，图片就能与窗体大小一致。问题5:在运行时，text中的文字不会换行，并且不能阅读到所有内容。 原因：在绘制界面时，没有改动属性窗口里的Mutili ne 的属性。解决办法：将原来 Mutiline 的false改为true 。五、设计体会一、体会小结：经过三天时间，终于完成了本次的课程设计。通过本次的课程设计了解到了文本框等基本控件的使用的多方面知识，特别是关于多窗体的使