- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB-股市计算器程设计报告书,股市手续费计算器,股市补仓计算器,股市计算器,股市复利计算器,股市盈利计算器,股市黄金分割点计算器,vb简易计算器代码,vb计算器代码
编程语言课程设计报告书
所属课程名称: 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 = V
您可能关注的文档
最近下载
- 2025年陕西高中学业水平考试信息技术试卷真题(含答案详解).pdf VIP
- 2024年锅炉操作工(初级)专业技能考试题库附答案(真题版) .pdf VIP
- 英语课程标准研究与教材分析(第2版)课件全套 第1--9章 英语课程标准和英语课程的基本概念 ---英语教材难度分析.pptx
- 《移动通信技术》课件——1主题一 发展历程-----移动通信的前世今生.pptx VIP
- 1000亩四季采摘水果园建设可行性研究报告.pdf VIP
- 河北省工伤职工停工留薪期分类目录.xls VIP
- 做外贸必读:外老们都是如何采购的——厦门区域兰彦晖分享.doc VIP
- (2020版新教材)闽教版五年级上册信息技术全册课件.pptx VIP
- (2025年)科创板试题及答案.docx VIP
- 第113届广交会跨国采购清单概览.pdf VIP
文档评论(0)