- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
编程语言课程设计报告书
所属课程名称: VB程序设计语言
题 目: 股市计算器
学 院: 经管学院
专 业: 经济信息管理(方向)
班 级: 工商09-3
学 号: 090614310
姓 名: 王艳梅
指导老师: 刘音
课程设计报告任务书
经济管理 学 院 经济信息管理(方向)专 业 工商09-3 班
王艳梅 姓 名 090614310 学 号
课程设计题目:股市计算器
课程设计时间:2011年6月20日起至2011年6月24日止
课程设计地点:经管机房908
课程设计要求:
评分标准
基本功能实现(30分)
独立工作能力及工作量(30分)
问题复杂程度/代码量(25分)
代码质量:容错、通用性、可读性。(10分)
改进或创新(5分)
提交成果
可执行程序(现场验收)。
课程设计报告。内容包括:
(1)问题描述、任务分工(合作完成)
(2)数据库设计(如果有)
(3)功能模块描述
(4)难点及解决方法
(5)体会
(6)其它
参考资料
Visual Basic 课程设计,王栋,清华大学出版社
目 录
功能描述……………………………………………………………….2
二、 设计思路……………………………………………………………….2
三、 具体实现………………………………………………………………..3-6
四、 运行结果及难点解决…………………………………………………..7-8
五、 设计体会………………………………………………………………..9
一、功能描述
股市计算器:
随着社会的发展,股市越来越受到人们青睐。股民在进行股票投资和交易时,经常需要对买卖股票作出投资分析:在上市公司进行送股、分红河配股后还需对股票除权后的价格进行计算。所以“股市计算器”应运而生。
打来程序,运行并进入主界面。
当需要对投资进行评估,并计算相应费用时,单击“投资分析”按钮,进入“投资分析”窗口,输入数据并计算结果。
当需要对上市公司进行送股、分红和配股后的除权价格进行计算时,单击“除权除息”按钮,输入数据并计算结果。
“参数设置”是根据相应数值设置的默认值,考虑到各种数率的变化情况,将其设置为可输入文本框。
“关于”窗体主要软件的功能及版本信息进行说明。让使用者更加了解该软件的用途。
二、设计思路
思想原理:
本题主要涉及多窗体的使用、文本框等基本控件的使用、控件的键盘输入焦点等知识点。
由一个窗体联结到多个窗体,进入不同的功能板块。
运用文本框的各项控件,进行调试。
三、具体实现
在右边的属性窗口中把五个command属性依次改为“投资分析”,“除权除息”,“参数设置”,“关于”,“退出”;双击form1属性窗口中的Icon属性,选取图标,再将caption属性改为“股市计算器”。
程序源代码:
Form1
Option Explicit
Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub
Private Sub Command2_Click()
Form3.Show
Me.Hide
End Sub
Private Sub Command3_Click()
Form4.Show
Me.Hide
End Sub
Private Sub Command4_Click()
Form5.Show
Me.Hide
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Form_Resize()
Private Sub Form_Resize()
Dim objpicbuf As IPictureDisp
AutoRedraw = True
Set objpicbuf = LoadPicture(123.jpg)
PaintPicture objpicbuf, 0, 0, ScaleWidth, ScaleHeight
End Sub
End Sub
Form2
Option Explicit
Private Sub Command1_Click()
Dim b, c, d, e, f, g, h, i, j As Single
Dim a As Long
If Text1.text = Then
MsgBox 股票代码不能为空!
Exit Sub
End If
a = Val(Text1.text)
b = Val(Text2.text)
c = Val(Text3.text)
d = Val(Text4.text)
F
文档评论(0)