简易计算器VB课程设计汇本报告

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

2、个文本框用于显示运算数字和结果，添加假设干按钮包括数字0 9， +，-，* ，/，=，x，1/x，清屏，退出。当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=按钮，那么再文本框中显示计算结果。具体如下列图计算器界面设计示意图流程图如下：简易计算器计算器管理界面计算界面退出程序程序代码：Dim A, B As Single Dim Op As StringPrivate Sub mand1_Click()Text1.Text = Text1.Text + mand1.Caption End SubPrivate Sub mand14_Click()定义减法If A = 0 ThenA =

3、 Text1.Text ElseB = Text1.Text End IfText1.Text = Op = -End SubPrivate Sub mand2_Click()Text1.Text = Text1.Text + mand2.Caption End SubPrivate Sub mand20_Click()定义平方A = Text1.Text B = A 2Text1.Text = BEnd SubPrivate Sub mand3_Click()Text1.Text = Text1.Text + mand3.Caption End SubPrivate Sub mand4_Cl

4、ick()Text1.Text = Text1.Text + mand4.Caption End SubPrivate Sub mand13_Click()定义加法If A = 0 ThenA = Text1.Text ElseB = Text1.Text End IfText1.Text = Op = +End SubPrivate Sub mand5_Click()Text1.Text = Text1.Text + mand5.Caption End SubPrivate Sub mand6_Click()Text1.Text = Text1.Text + mand6.Caption En

5、d SubPrivate Sub mand17_Click()清屏Text1.Text = A = 0: B = 0End SubPrivate Sub mand19_Click()EndEnd SubPrivate Sub mand16_Click()定义除法If A = 0 ThenA = Text1.Text ElseB = Text1.TextEnd If Text1.Text = Op = /End SubPrivate Sub mand12_Click()通过四那么运算，求出值B = Text1.Text Select Case OpCase +A = A + BCase -A =

6、 A - BCase *A = A * BCase /A = A / BCase 1/x A = 1 / AEnd Select Text1.Text = AEnd SubPrivate Sub mand7_Click()Text1.Text = Text1.Text + mand7.Caption End SubPrivate Sub mand8_Click()Text1.Text = Text1.Text + mand8.Caption End SubPrivate Sub mand15_Click()定义乘法If A = 0 ThenA = Text1.Text ElseB = Text

7、1.Text End IfText1.Text = Op = *End SubPrivate Sub mand9_Click()Text1.Text = Text1.Text + mand9.Caption End SubPrivate Sub mand10_Click()Text1.Text = Text1.Text + mand10.Caption End SubPrivate Sub mand11_Click()Text1.Text = Text1.Text + mand11.Caption End SubPrivate Sub mand18_Click() If A = 0 ThenA

8、 = Text1.TextElseB = Text1.Text End IfText1.Text = 1 / A Op = 1/xEnd sub3.程序运行进入计算机运行界面：求倒数值输入值：输入运算符：输入运算值：得结果：清屏：退出程序；结论：经过一学期的学习与编制等一系列的过程，完成了如题所示的简易计算器，包 括数字09，+，-，*，/，=等按键，可实现根本 +，-，*，/，平方等的运算， 符合计算器的根本要求。调试过程中不可防止的出现不少错误，经过查阅资料， 询问同学， 修改后， 根本解决加减乘除等的一些问题。根本完成学习和实践的要求和目的。课程设计， 使我提高了实际操作能力， 从以前的理论上升到实践，从感性认识上升到理性认识，真正做到学有所用，懂得先要发现问题，分析问题，解决问题，虽然在设计过程中我也遇到一些困难，但在同学的帮助和自己的努力下，我都认真克制了， 但由于时间紧触， 我并不能做到尽善尽美， 应该说这是一大遗憾吧，我相信这对以后会有别开生会的体验。致在本次课程设计中， 我们三人从指导教师身上学到了很多东西。她认真负责的工作态度， 严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中， 都给与我很大的帮助， 使我得到很大的提高， 这对于我以后的工作和学习