简易计算器vb课程设计报告报告

《简易计算器vb课程设计报告报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、WORD整理版简易计算器要求：用VB做类似于windows自带的计算器程序绪论：VisualBasic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。1.界面设计：根据W

2、INDOWS计算器界面模型，修改后制作简易计算器界面。新建一个窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，x^，1/x，清屏，退出）。当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文本框中显示计算结果。具体如下图专业资料学习参考WORD整理版计算器界面设计示意图流程图如下：简易计算器↓计算器管理界面↓计算界面↓退出程序2.程序代码：DimA,BAsSingleDimOpAsStringPrivateSubCommand1_Click()Text

3、1.Text=Text1.Text+Command1.CaptionEndSubPrivateSubCommand14_Click()’定义减法专业资料学习参考WORD整理版IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="-"EndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text+Command2.CaptionEndSubPrivateSubCommand20_Click()’定义平方A=Te

4、xt1.TextB=A^2Text1.Text=BEndSubPrivateSubCommand3_Click()Text1.Text=Text1.Text+Command3.CaptionEndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text+Command4.CaptionEndSubPrivateSubCommand13_Click()’定义加法IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op

5、="+"EndSubPrivateSubCommand5_Click()Text1.Text=Text1.Text+Command5.CaptionEndSubPrivateSubCommand6_Click()Text1.Text=Text1.Text+Command6.CaptionEndSubPrivateSubCommand17_Click()’清屏Text1.Text=""A=0:B=0EndSubPrivateSubCommand19_Click()EndEndSub专业资料学习参考WORD整理版Pri

6、vateSubCommand16_Click()’定义除法IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="/"EndSubPrivateSubCommand12_Click()’通过四则运算，求出值B=Text1.TextSelectCaseOpCase"+"A=A+BCase"-"A=A-BCase"*"A=A*BCase"/"A=A/BCase"1/x"A=1/AEndSelectText1.Text=AEndSubPrivateSubCom

7、mand7_Click()Text1.Text=Text1.Text+Command7.CaptionEndSubPrivateSubCommand8_Click()Text1.Text=Text1.Text+Command8.CaptionEndSubPrivateSubCommand15_Click()’定义乘法IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="*"EndSubPrivateSubCommand9_Click()Text1.Te

8、xt=Text1.Text+Command9.CaptionEndSubPrivateSubCommand10_Click()专业资料学习参考WORD整理版Text1.Text=Text1.Text+Command10.CaptionEndSubPrivateSubCommand11_Click()Text1.Text=Text1.Text+Command1