网站大量收购独家精品文档,联系QQ:2885784924

VB-股市计算器课程设计报告书.docVIP

  1. 1、本文档共10页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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)

smashing + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档