【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：VB课程设计任务书的格式终稿（宝） - 编程语言绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

课程设计论文任务书 国际 学 院 财务管理 专 业 2 班一、课程设计论文题目 股市计算器课程设计二、课程设计论文工作自 11 年 6 月 27 日起至 11 年 7 月 1 日止。

    三、课程设计论文 地点: 15-517四、课程设计论文内容要求：1．本课程设计的目的1. 综合 Visual Basic 相关知识制作简单的可视化应用程序2. 灵活对程序代码进行利用，修改和编写；3. 熟练将 Visual Basic 所学知识和其它知识相结合2．课程设计的任务及要求1）基本要求：1、目的是进一步培养学生综合应用 VB 的各种编程知识和技巧进行程序设计的能力。

    通过课程设计，学生能达到具备设计功能较为复杂的 Windows 应用程序的能力。

    2、至少多窗体界面（3-5 个窗体） ；3、使用菜单、数组、文件操作、图形操作等制试点。

    4、对运算结果的正、误分析原因。

    2）课程设计论文编写要求 （1）要按照书稿的规格打印誊写毕业论文 （2）论文包括目录、绪论、正文、小结、参考文献、谢辞、附录等 （3）毕业论文装订按学校的统一要求完成3）参考文献：1:《Visual Basic 程序设计教程》 作者: 刘炳文、许蔓舒编著。

    清华大学出版社2:《Visual Basic 程序设计教程》（第二版）作者: 刘瑞新等编著，电子工业出版社3:《新编 Visual Basic 程序设计教程》 作者: 梁普选主编 ， 电子工业出版社4）课程设计进度安排 内容 天数 地点 查阅资料 2 图书馆 系统设计 2 15-517 编程与调试 2 15-517 检查程序及提问（考核） 1 15-517 学生签名： 11 年 6 月 24 日 课程设计论文评审意见 ：优（ ）（1）完成分析（20 分） 、良（ ）、中（ ）、一般（ 、差（ ） ） ； ：优（ ）（2）设计过程（40 分） 、良（ ）、中（ ）、一般（ 、差（ ） ） ； ：优（ ）（3）完成调试（20 分） 、良（ ）、中（ ）、一般（ 、差（ ） ） ； ：优（ ）（4）回答问题（20 分） 、良（ ）、中（ ）、一般（ 、差（ ） ） ； 、否（ ）（5）格式规范性及考勤是否降等级：是（√） 评阅人： 周庆忠 职称： 讲师 11 年 7 月 1 日 目录一． 目的和任务.................................................................................................................4二．开发环境..........................................................................................................................4三．窗体的详细设计..............................................................................................................4四．程序的运行结果和代码..................................................................................................6五. 分析和体会实验中碰到的问题及解决方法.................................................................25六．总结................................................................................................................................26七．参考文献........................................................................................................................26一． 目的和任务 目的：随着社会的发展，股市越来越受到人们青睐，股民在进行股票投资和交易时，经常需要对买卖股票作出投资分析；在上市公司进行送股、分红和配股后还需要对股票除权后的价格进行计算。

    若采用手工计算，不仅公式复杂，还易出错。

    股需要设计一个小软件来帮助解决这些问题，因此“股市计算器”就应运而生。

    任务：打开程序，运行并进入主界面。

     （1） 当需要对投资进行评估，并计算相应费用时，单击“投资分析”按钮，进 入“投资分析”窗口，输入数据并计算结果。

     （2） 当需要对上市公司进行送股、分红和配股后的除权价格进行计算时。

    单击 “除权除息”按钮，输入数据并计算结果。

     （3） “参数设置”是根据相应数值设置的默认值，考虑到各种数率的变化情况， 将其设置为可输入文本框。

     （4） “关于”窗体主要就软件的功能及版本信息进行说明。

    让使用者更加了解 该软件的用途.二．开发环境 （宋体五号）包含两部分：正文部分：1． 1． 硬件环境（描述开发所用的机器型号及内存配置）2． 2． 软件环境（详细描述所用操作系统及数据库的软件 ） （MS Access 或者 SQL-Server ）三．窗体的详细设计 程序的主界面如图 2.1. “投资分析”窗体 主要对买卖股票的盈亏进行分析计算，其中所花费的手续费用和“参数设置”窗体中设置的印花税率、佣金比率以及最低费用有关。

     为了用户操作方便，当用户在某文本框输入完毕后，按回车键或 Tab 键，输入焦点应自动跳到下一个文本框中。

    例如当输入完毕“股票代码”后，按回车键或 Tab 键，焦点应自动停在“持股数量”文本框中，以方便用户输入。

     “除权除息”窗体 主要对上市公司进行送股、分红和配股后的除权价格进行计算。

     “参数设置”窗体 主要对印花税、佣金比率及最低佣金设置。

    在程序设计时，给它们赋予如图所示的默认值。

    考虑到国家将来会根据实际情况调节印花税率，而各券商也有可能调整佣金比率，因此将其设置成为可输入的文本框。

     “关于”窗体 主要就软件的功能及版本信息进行说明。

     图 2.1 “股市计算器”主窗口 思想原理： 本题主要涉及多窗体的使用、文本框等基本控件的使用、控件的键盘输入焦点等知识点。

     股市计算器主界面 投资分析： 除权股息： 参数设置： 输入数据 输入数据 打开 输出结果 输出结果 退出 退出 退出 （1） 由一个窗体连接到多个窗体，进入不同的功能板块。

     （2） 运用文本框的各项控件，进行调试。

     四．程序的运行结果和代码 在设计界面的右边属性窗口中把 command1、command2、command3、command4、command5的 caption 属性依次改为 “投资分析”“除权除息” 、 、 “参数设置”“关于” 、 “退出” 点击 form1 、 ；再双击属性窗口中的 Icon 属性，将弹出窗口如图（9.7）所示，选择所要的图片，在打开。

    将 form1 的 caption 属性改为“股市计算器”。

     程序流程如下： Form1 的代码： Begin VB.Form Form1 Caption quot股市计算器quot ClientHeight 6270 ClientLeft 60 ClientTop 450 ClientWidth 6735 LinkTopic quotForm1quot ScaleHeight 6270 ScaleWidth 6735 StartUpPosition 3 窗口缺省 Begin VB.CommandButton Command5 Caption quot退出quot Height 735 Left 1800 TabIndex 4 Top 4080 Width 2895 End Begin VB.CommandButton Command4 Caption quot关于quot Height 615 Left 1800 TabIndex 3 Top 3120 Width 2895 End Begin VB.CommandButton Command3 Caption quot参数设置quot Height 615 Left 1800 TabIndex 2 Top 2160 Width 2895 End Begin VB.CommandButton Command2 Caption quot除权除息quot Height 615 Left 1800 TabIndex 1 Top 1320 Width 2895 End Begin VB.CommandButton Command1 Caption quot投资分析quot Height 615 Left 1800 TabIndex 0 Top 480 Width 2895 EndEndAttribute VB_Name quotForm1quotAttribute VB_GlobalNameSpace FalseAttribute VB_Creatable FalseAttribute VB_PredeclaredId TrueAttribute VB_Exposed FalsePrivate Sub Command1_ClickForm2.ShowEnd SubPrivate Sub Command2_ClickForm4.ShowEnd SubPrivate Sub Command3_ClickForm3.ShowEnd SubPrivate Sub Command4_ClickForm5.ShowEnd SubPrivate Sub Command5_ClickEndEnd SubForm2 的代码：Caption quot股市计算器——投资分析quot ClientHeight 5565 ClientLeft 60 ClientTop 450 ClientWidth 7560 LinkTopic quotForm2quot ScaleHeight 5565 ScaleWidth 7560 StartUpPosition 3 窗口缺省 Begin VB.CommandButton C2 Caption quot清空quot Height 495 Left 2160 TabIndex 24 Top 3720 Width 1215 End Begin VB.Frame Frame2 Caption quot输出结果quot Height 3975 Left 4080 TabIndex 11 Top 360 Width 3375 Begin VB.TextBox T2 Height 495 Index 5 Left 1200 TabIndex 23 Text quot0quot Top 840 Width 1815 End Begin VB.TextBox T2 Height 495 Index 4 Left 1200 TabIndex 22 Text quot0quot Top 1560 Width 1815EndBegin VB.TextBox T2 Height 495 Index 3 Left 1200 TabIndex 21 Text quot0quot Top 2160 Width 1815EndBegin VB.TextBox T2 Height 495 Index 2 Left 1200 TabIndex 20 Text quot0quot Top 2760 Width 1815EndBegin VB.TextBox T2 Height 495 Index 1 Left 1200 TabIndex 19 Text quot0quot Top 3360 Width 1815EndBegin VB.TextBox T2 Height 495 Index 0 Left 1200 TabIndex 18 Text quot0quot Top 240 Width 1815EndBegin VB.Label Label3 Caption quot手续费用quot Height 405 Index 5 Left 120 TabIndex 17 Top 960 Width 975EndBegin VB.Label Label3 Caption quot回收资金quot Height 405 Index 4 Left 120 TabIndex 16 Top 2160 Width 975EndBegin VB.Label Label3 Caption quot投入资金quot Height 405 Index 3 Left 120 TabIndex 15 Top 1560 Width 975EndBegin VB.Label Label3 Caption quot盈亏金额quot Height 405 Index 2 Left 120 TabIndex 14 Top 2760 Width 975EndBegin VB.Label Label3 Caption quot盈亏比率quot Height 405 Index 1 Left 120 TabIndex 13 Top 3360 Width 975EndBegin VB.Label Label3 Caption quot保本价位quot Height 405 Index 0 Left 120 TabIndex 12 Top 360 Width 975 EndEndBegin VB.Frame Frame1 Caption quotFrame1quot Height 2895 Left 480 TabIndex 1 Top 360 Width 3255 Begin VB.TextBox Text4 Height 495 Left 1440 TabIndex 10 Text quot0quot Top 960 Width 1455 End Begin VB.TextBox Text3 Height 495 Left 1440 TabIndex 9 Text quot0quot Top 1560 Width 1455 End Begin VB.TextBox Text2 Height 495 Left 1440 TabIndex 8 Text quot0quot Top 2160 Width 1455 End Begin VB.TextBox Text1 Height 495 Left 1440 TabIndex 3 Text quot0quot Top 360 Width 1455EndBegin VB.Label Label1 Caption quot持股数量quot Height 375 Index 3 Left 240 TabIndex 7 Top 1080 Width 975EndBegin VB.Label Label1 Caption quot买入价位quot Height 375 Index 2 Left 240 TabIndex 6 Top 1680 Width 975EndBegin VB.Label Label1 Caption quot卖出价位quot Height 375 Index 1 Left 240 TabIndex 5 Top 2280 Width 975EndBegin VB.Label Label2 Caption quot股票代号quot Height 375 Left 0 TabIndex 4 Top 0 Width 975EndBegin VB.Label Label1 Caption quot股票代号quot Height 375 Index 0 Left 240 TabIndex 2 Top 480 Width 975 End End Begin VB.CommandButton Command1 Caption quot计算quot Height 495 Left 480 TabIndex 0 Top 3720 Width 1335 EndEndAttribute VB_Name quotForm2quotAttribute VB_GlobalNameSpace FalseAttribute VB_Creatable FalseAttribute VB_PredeclaredId TrueAttribute VB_Exposed FalsePublic num As String Coun BuyP As Single SellP As Single BBJW As Single SXFYAs Single TRZJ As Single HSZJ As Single YKJE As Single YKBL As Single YJE AsSingle YHE As SinglePrivate Sub C2_ClickText1.Text quot0quotText2.Text quot0quotText4.Text quot0quotText3.Text quot0quotFor i 0 To 5T2i.Text quot0quotNext iEnd SubPrivate Sub Command1_ClickYJE BuyP Coun YJLIf YJ lt Min ThenYJE MinEnd IfYHE Coun BuyP YHLTRZJ YJE YHE BuyP CounSXFY YJE YHEYJE SellP Coun YJLIf YJ lt Min ThenYJE MinEnd IfYHE SellP Coun YHLHSZJ SellP Coun - YJE - YHESXFY SXFY jhe YJEYKJE HSZJ - TRZJYKBL YKJE / TRZJ 100BBJW TRZJ Min / Coun - Coun YHLT20.Text StrBBJWT25.Text StrSXFYT24.Text StrTRZJT23.Text StrHSZJT22.Text StrYKJET21.Text StrYKBLEnd SubPrivate Sub Text1_Changenum Text1.TextEnd SubPrivate Sub Text2_ChangeSellP ValText2.TextEnd SubPrivate Sub Text3_ChangeBuyP ValText3.TextEnd SubPrivate Sub Text4_ChangeCoun ValText4.TextEnd SubForm3 的代码： Caption quot股市计算器——参数设置quotClientHeight 3615ClientLeft 60ClientTop 450ClientWidth 5070LinkTopic quotForm3quotScaleHeight 3615ScaleWidth 5070StartUpPosition 3 窗口缺省Begin VB.Frame Frame1 Caption quot手续费用参数quot Height 2535 Left 480 TabIndex 0 Top 360 Width 3855 Begin VB.TextBox Text3 Height 495 Left 1560 TabIndex 6 Text quot0quot Top 1680 Width 1815 End Begin VB.TextBox Text2 Height 495 Left 1560 TabIndex 5 Text quot0quot Top 1080 Width 1815 End Begin VB.TextBox Text1 Height 495 Left 1560 TabIndex 4 Text quot0quot Top 360 Width 1815 End Begin VB.Label .