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

简易计算器
要求：用VB做类似于windows自带的计算器程序
绪论：Visual Basic （VE）是一种由微软公司开发的包含协助开发环境的事
件驱动编程语言。

从任何标准来说，VB都是世界上使用人数最多的语言
不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。

它源自于BASIC编程语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD系统，可以轻易的使用DAO RDO ADO连接数据库，或者轻松的创建ActiveX控件。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

1•界面设计：
根据WINDOWS计算器界面模型，修改后制作简易计算器界面。

新建一个
窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9, +，-，*，/，=，x A，1/x，清屏，退出）。

当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文
本框中显示计算结果。

具体如下图
计算器界面设计示意图
流程图如下：
简易计算器
退出程序2.程序代码：
Dim A, B As Si ngle
Dim Op As Stri ng
Private Sub Comma nd1_Click()
Textl.Text = Text1.Text + Comma nd1.Capti on
End Sub
Private Sub Comma nd14_Click() '定义减法
If A = 0 The n
A = Textl.Text
Else
B = Textl.Text
End If
Textl.Text =""
Op ="-"
End Sub
Private Sub Comma nd2_Click()
Text1.Text = Text1.Text + Comma nd2.Caption End Sub
Private Sub Comma nd20_Click()
A = Textl.Text
B = A A 2
Textl.Text = B
End Sub
Private Sub Comma nd3_Click()
Textl.Text = Textl.Text + Comma nd3.Caption End Sub
Private Sub Comma nd4_Click()
Textl.Text = Textl.Text + Comma nd4.Capti on End Sub
Private Sub Comma nd13_Click()
If A = 0 The n
A = Textl.Text
Else
B = Textl.Text
End If
Textl.Text =""
Op = "+"
End Sub
Private Sub Comma nd5_Click()
Textl.Text = Textl.Text + Comma nd5.Capti on End Sub
Private Sub Comma nd6_Click()
Textl.Text = Textl.Text + Comma nd6.Caption End Sub
Private Sub Comma nd17_Click()
Textl.Text =""
A = 0:
B = 0
End Sub
Private Sub Comma nd19_Click()
End '定义平方
'定义加法
清屏
End Sub
Private Sub Comma nd16_Click()
If A = 0 The n
A = Text1.Text
Else
B = Text1.Text
End If
Text1.Text =""
Op = "/"
End Sub
Private Sub Comma nd12_Click()
B = Textl.Text
Select Case Op
Case "+"
A = A + B
Case "-"
A = A - B
Case "*"
A = A * B
Case "/"
A = A / B
Case "1/x"
A = 1 / A
End Select
Textl.Text = A
End Sub
Private Sub Comma nd7_Click()
Textl.Text = Textl.Text + Comma nd7.Capti on End Sub
Private Sub Comma nd8_Click()
Textl.Text = Textl.Text + Comma nd8.Caption End Sub
Private Sub Comma nd15_Click()
If A = 0 The n
A = Textl.Text
Else
B = Textl.Text
End If
Textl.Text =""
Op = "*"
End Sub
Private Sub Comma nd9_Click()
Textl.Text = Textl.Text + Comma nd9.Caption End Sub
Private Sub Comma nd1O_Click() '定义除法
'通过四则运算，求出值
'定义乘法
Textl.Text = Textl.Text + Comma ndlO.Caption End Sub
Private Sub Comma nd11_Click()
Textl.Text = Text1.Text + Comma nd11.Caption End Sub
Private Sub Comma nd18_Click() If A = 0 The n
A = Text1.Text
Else
B = Text1.Text
End If
Text1.Text = 1 / A
Op = "1/x"
End sub
3•程序运行
进入计算机运行界面:
输入值:'求倒数值
输入运算符:
输入运算值:
0贅見计算器L 口寤得结果:
清屏:
退出程序;
4.结论:
经过一学期的学习与编制等一系列的过程，完成了如题所示的简易计算器，包括数字0—9, +，-，*，/，=等按键，可实现基本+，-，*，/，平方等的运算，符合计算器的基本要求。

调试过程中不可避免的出现不少错误，经过查阅资料，询问同学，修改后，基本解决加减乘除等的一些问题。

基本完成学习和实践的要求和目的。

课程设计，使我提高了实际操作能力，从以前的理论上升到实践，从感性认识上升到理性认识，真正做到学有所用，懂得先要发现问题，分析问题，解决问题，虽然在设计过程中我也遇到一些困难，但在同学的帮助和自己的努力下，我都认真克服了，但由于时间紧触，我并不能做到尽善尽美，应该说这是一大遗憾吧，我相信这对以后会有别开生会的体验。

5■致谢
在本次课程设计中，我们三人从指导老师身上学到了很多东西。

她认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。

她无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种
巨大的帮助，在此感谢她耐心的辅导。

在撰写报告阶段，提出了许多宝贵意见，没有她的指导，我们就不能较好的完成课题设计的任务。

另外，我还要感谢在这几个月来给予我帮助的同学，他们热心的帮助不但让我学到
了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感
谢。