vb科学计算器课程设计

《vb科学计算器课程设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、湖南医药学院VB计算器课程设计题目：VB科学计算器院(系)别临床医学院专业临床医学班级本临一班学号2015101010121姓名夏铭锴指导教师李跃强二○一六年四月1目录一、设计内容及要求二、设计原始资料三、设计完成后提交的文件和图表设计四、进程安排五、主要参考资料 [摘要]用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。 在这个计算器的程序中，我

2、用到了单行选择语句If … Then …Else…, 块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。 在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。。虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。[关键词]Visual Basic；计算器；对象；代码1一、设计内容及要求本程序的目标是建立一套可以计算数的平方，平方根，倒数，正弦，余弦，正切，指数函数，对数函数的计算器系统。 1.2、基本功能

3、 1) 能够完成基本的四则运算。 2) 能够进行如下函数的求值运算，包括sin, cos,tan, exp, log, sqr, 1/x，及和圆周率π。 3) 能够实现角度、弧度、梯度的相互转换。 4) 能够实现的进制的相互转换。 5) 输出时的格式：结果为整数时不显示小数点，结果为1以下小数时要显示前导0。 6) 分门别类采用控件数组，以减少事件处理的复杂程度，使程序简洁高效。 7) 能够实现退格键、清除、清空功能。 8) 出错处理:操作数如果不符合数学上的定义，应该给出错误信息。二、设计原始资料VB计算器四则运算（见附页）12三、设计完成后提交的文件和图表设计(要求2000字

4、以上)1.设计方案实现这个实用计算器，要考虑的主要是以下两个方面的内容：一、设置每个控件按钮的属性。二、每组控件组都有自己的VB代码，由VB语言实现各个控件按钮的功能。于是本设计就是以这两个个部分为核心内容展开。根据设计要求该实用计算器能实现四则运算和部分科学计算法等按钮的控制，根据各组控件按钮源代码的不同，来实现按下不同的按键实现不同的计算过程或结果功能。本设计大体由窗体、CommandButton、Textbox、Timer四个模块构成。其中Commandbutton作为按钮模块，Textbox作为显示模块，Timer作为显示或隐藏部分按键的模块。Commandbutton按

5、钮实现数字键和其他算法按键的功能；Textbox实现计算过程和结果的数字显示；Timerbox实现当计算器只用到四则的简单运算时，窗体只显示四种运算的基本按键，当用到科学计算时，再在窗体中显示科学计算的控件按钮。2．流程图、图纸⑴计算器如图12此计算器可以计算简单的加减乘除计算，还包括三角函数、乘方、阶乘、开方、对数等等的计算。加有退出键，说明按钮等控件。⑵总体设计框架四、进程安排（1）创建应用程序的界面。（2）设置属性。（3）编写代码。（4）调试运行。（5）保存工程及生成可执行文件。12五、主要参考资料 1.《VisualBasic6.0程序设计教程》（第四版）人民邮电出版社附

6、页：设计原始资料PrivateSubCommand1_Click()'删除数字的最后一位IfLabel3.Caption<>""ThenLabel3.Caption=Left(Label3.Caption,Len(Label3.Caption)-1)Elsec=MsgBox("内容已为空！不可删除一位！",49,"注意！")EndIfEndSubPrivateSubCommand10_Click()'输入数字6Label3.Caption=Label3.Caption+Command10.CaptionEndSubPrivateSubCommand11_Click()IfLabe

7、l3.Caption<>""Then'输入符号*Label1.Caption=Label3.CaptionLabel2.Caption=Command11.CaptionLabel3.Caption=""Elsec=MsgBox("请输入数据后输入符号！",49,"注意！")EndIfEndSub12PrivateSubCommand12_Click()'输入数字1Label3.Caption=Label3.Caption+Command12.CaptionEndSubPriva