简易计算器VB课程设计报告
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
简易计算器
要求：用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()