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

简易计算器

要求：用VB做类似于windows自带的计算器程序

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

1.界面设计：

根据WINDOWS计算器界面模型，修改后制作简易计算器界面。新建一个窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，x^ ，1/x，清屏，退出）。

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

计算器界面设计示意图

流程图如下：

简易计算器

↓

计算器管理界面

↓

计算界面

↓

退出程序

2.程序代码：

Dim A, B As Single

Dim Op As String

Private Sub Command1_Click()

Text1.Text = Text1.Text + Command1.Caption

End Sub

Private Sub Command14_Click() ’定义减法

If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = ""

Op = "-"

End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text + Command2.Caption

End Sub

Private Sub Command20_Click() ’定义平方

A = Text1.Text

B = A ^ 2

Text1.Text = B

End Sub

Private Sub Command3_Click()

Text1.Text = Text1.Text + Command3.Caption

End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text + Command4.Caption

End Sub

Private Sub Command13_Click() ’定义加法If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = ""

Op = "+"

End Sub

Private Sub Command5_Click()

Text1.Text = Text1.Text + Command5.Caption

End Sub

Private Sub Command6_Click()

Text1.Text = Text1.Text + Command6.Caption

End Sub

Private Sub Command17_Click() ’清屏Text1.Text = ""

A = 0:

B = 0

End Sub

Private Sub Command19_Click()

End

End Sub

Private Sub Command16_Click() ’定义除法If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = ""

Op = "/"

End Sub

Private Sub Command12_Click() ’通过四则运算，求出值

B = Text1.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

Text1.Text = A

End Sub

Private Sub Command7_Click()

Text1.Text = Text1.Text + Command7.Caption

End Sub

Private Sub Command8_Click()

Text1.Text = Text1.Text + Command8.Caption

End Sub

Private Sub Command15_Click() ’定义乘法If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = ""

Op = "*"

End Sub

Private Sub Command9_Click()

Text1.Text = Text1.Text + Command9.Caption

End Sub

Private Sub Command10_Click()

Text1.Text = Text1.Text + Command10.Caption

End Sub

Private Sub Command11_Click()

Text1.Text = Text1.Text + Command11.Caption

End Sub

Private Sub Command18_Click() ’求倒数值If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = 1 / A

Op = "1/x"

End sub

3.程序运行

进入计算机运行界面：

输入值：

输入运算符：

输入运算值：

得结果：

清屏：

退出程序；

4.结论：

经过一学期的学习与编制等一系列的过程，完成了如题所示的简易计算器，包括数字0—9，+，-，*，/，=等按键，可实现基本+，-，*，/，平方等的运算，符合计算器的基本要求。调试过程中不可避免的出现不少错误，经过查阅资料，询问同学，修改后，基本解决加减乘除等的一些问题。基本完成学习和实践的要求和目的。

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

5.致谢

在本次课程设计中，我们三人从指导老师身上学到了很多东西。她认真负责

的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢她耐心的辅导。在撰写报告阶段，提出了许多宝贵意见，没有她的指导，我们就不能较好的完成课题设计的任务。

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