毕业设计论文：基于VB的计算器的设计与实现

《毕业设计论文：基于VB的计算器的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、摘要我用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。在这个计算器的程序中，我用到了单行选择语句If…Then…Else…,块语句if…then…endif,If语句的嵌套，多条件选择语句SelectCase,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的

2、转换和数字与运算符之间的联系。。虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。-32-目录第一章、程序概述-3-1.1、创作目的-3-1.2、基本功能-3-第二章、总体设计-4-2.1、程序轮廓图-4-第三章、程序代码-6-3.1、计算器界面-6-3.1.1、标准型计算器：-6-3.1.2、科学型计算器：-7-3.2、标准计算器代码-8-3.2.1、变量的定义及初始化-8-3.2.2、简单的运算-8-3.2.3、退格、清除、清空-10-3.2.4、复制、粘贴-11-3.2.5、两窗体的切换-12-3.3、科学型计

3、算器的代码-12-3.3.1、变量的定义及初始化-12-3.3.2、简单的运算-13-3.3.3、正弦、余弦、正切-15-3.3.4、平方、立方、多次方-15-3.3.5、指数函数、对数函数-16-3.3.6、倒数、平方根-16--32-3.3.7、角度、弧度、梯度-17-3.3.8、各进制转换-18-3.3.9、退格、清除、清空-27-3.3.10、复制、粘贴-28-3.3.11、两窗体的切换-29-第四章、总结-30-4.1、对学习者知识的要求：-30-4.2、学习程序设计基本要求：-30-4.3、程序设计方法概述-31-4.4、如何学好VB-31-4.5

4、、不足之处-32-参考文献-33--32-第一章、程序概述1.1、创作目的本程序的目标是建立一套可以计算数的平方，平方根，倒数，正弦，余弦，正切，指数函数，对数函数，角度、弧度、梯度相互转换和数字的进制转换的计算器系统，系统可以帮助我们更快的计算，更好的学习，更好的节省时间。还能避免出现一些不必要的计算错误。1.2、基本功能1)能够完成整型和实型常数的四则运算。2)能够进行如下函数的求值运算，包括sin,cos,tan,exp,log,sqr,1/x，及和园周率π。3)能够实现角度、弧度、梯度的相互转换。4)能够实现的进制的相互转换。5)输出时的格式：结果为整

5、数时不显示小数点，结果为1以下小数时要显示前导0。6)分门别类采用控件数组，以减少事件处理的复杂程度，使程序简洁高效。7)能够实现退格键、清除、清空功能。8)出错处理:操作数如果不符合数学上的定义，应该给出错误信息。例：0做除数，负数或0做真数等情况-32-第二章、总体设计2.1、程序轮廓图输入数字平方根平方余弦立方正弦选择转换的进制转换退格清除说有数据清除当前数据正切倒数指数函数对数函数角度、弧度、梯度的转换简单四则运算结果图一-32-第三章、程序代码3.1、计算器界面3.1.1、标准型计算器：图二-32-3.1.2、科学型计算器：图三-32-3.2、标准计

6、算器代码3.2.1、变量的定义及初始化DimdflagAsIntegerDimiAsIntegerDimopnreAsIntegerDimprevAsDoubleDimoflagAsIntegerDimindAsIntegerDimXAsDoubleDimYAsDoublePrivateSubForm_Load()prev=0oflag=0ind=0opnre=0Clipboard.Clearang=3.14/180EndSub3.2.2、简单的运算PrivateSubCommand1_Click(IndexAsInteger)Ifind=4Thenprev=

7、0Text1.Text=""ind=0EndIf-32-opnre=0Ifoflag=0ThenText1.Text=""EndIfoflag=1IfCommand1(Index).Caption<>"."ThenIfText1.Text<>"0"ThenText1.Text=Text1.Text&Command1(Index).CaptionElseText1.Text=""&Command1(Index).CaptionEndIfElseIfdflag=0ThenText1.Text=Text1.Text&"."dflag=1ElseMsgBox("Err

8、or")EndIfEndIfEndSu