简易计算器
要求:用VB做类似于windows自带的计算器程序
绪论:Visual Basic(VB)是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
来说,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.致谢
在本次课程设计中,我们三人从指导老师身上学到了很多东西。她认真负责
的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中,都给与我很大的帮助,使我得到很大的提高,这对于我以后的工作和学习都有一种巨大的帮助,在此感谢她耐心的辅导。在撰写
报告
软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载
阶段,提出了许多宝贵意见,没有她的指导,我们就不能较好的完成课题设计的任务。
另外,我还要感谢在这几个月来给予我帮助的同学,他们热心的帮助不但让我学到了很多知识,而且让我掌握了学习的方法,更教会了我做人处事的道理,在此
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
示感谢。