《简易计算器VB课程设计资料报告材料》由会员分享，可在线阅读，更多相关《简易计算器VB课程设计资料报告材料（9页珍藏版）》请在金锄头文库上搜索。
1、word简易计算器要求：用VB做类似于windows自带的计算器程序绪论：Visual BasicVB是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面GUI和快速应用程序开发RAD系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。1.界面设计：根据WINDOWS计算器界面模型，修改后制作简易计算器界面。新建一个窗体，添加一个文本框用于显示运算数字和
2、结果，添加假如干按钮包括数字09，+，-，*，/，=，x ，1/x，清屏，退出。当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=按钮，如此再文本框中显示计算结果。具体如如下图计算器界面设计示意图流程图如下： 简易计算器计算器管理界面计算界面退出程序2.程序代码：Dim A, B As Single Dim Op As StringPrivate Sub mand1_Click() Text1.Text = Text1.Text + mand1.CaptionEnd SubPrivate Sub mand14_Click() 定义减法 If A = 0 Then A = Text1.Te
3、xt Else B = Text1.Text End If Text1.Text = Op = -End SubPrivate Sub mand2_Click() Text1.Text = Text1.Text + mand2.CaptionEnd SubPrivate Sub mand20_Click() 定义平方 A = Text1.Text B = A 2 Text1.Text = BEnd SubPrivate Sub mand3_Click() Text1.Text = Text1.Text + mand3.CaptionEnd SubPrivate Sub mand4_Click(
4、) Text1.Text = Text1.Text + mand4.CaptionEnd SubPrivate Sub mand13_Click() 定义加法 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = Op = +End SubPrivate Sub mand5_Click() Text1.Text = Text1.Text + mand5.CaptionEnd SubPrivate Sub mand6_Click() Text1.Text = Text1.Text + mand6.CaptionE
5、nd SubPrivate Sub mand17_Click() 清屏 Text1.Text = A = 0: B = 0End SubPrivate Sub mand19_Click() EndEnd SubPrivate Sub mand16_Click() 定义除法 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = Op = /End SubPrivate Sub mand12_Click() 通过四如此运算，求出值 B = Text1.Text Select Case Op Case + A = A
6、 + B Case - A = A - B Case * A = A * B Case / A = A / B Case 1/x A = 1 / A End Select Text1.Text = AEnd SubPrivate Sub mand7_Click() Text1.Text = Text1.Text + mand7.CaptionEnd SubPrivate Sub mand8_Click() Text1.Text = Text1.Text + mand8.Caption End Sub Private Sub mand15_Click() 定义乘法 If A = 0 Then A
7、 = Text1.Text Else B = Text1.Text End If Text1.Text = Op = * End Sub Private Sub mand9_Click() Text1.Text = Text1.Text + mand9.CaptionEnd SubPrivate Sub mand10_Click() Text1.Text = Text1.Text + mand10.CaptionEnd SubPrivate Sub mand11_Click() Text1.Text = Text1.Text + mand11.CaptionEnd SubPrivate Sub
8、 mand18_Click() 求倒数值 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = 1 / A Op = 1/xEnd sub3.程序运行进入计算机运行界面：输入值： 输入运算符： 输入运算值：得结果：清屏：退出程序；4. 结论：经过一学期的学习与编制等一系列的过程，完成了如题所示的简易计算器，包括数字09，+，-，*，/，=等按键，可实现根本+，-，*，/，平方等的运算，符合计算器的根本要求。调试过程中不可防止的出现不少错误，经过查阅资料，询问同学，修改后，根本解决加减乘除等的一些问题。根本完成学
9、习和实践的要求和目的。课程设计，使我提高了实际操作能力，从以前的理论上升到实践，从感性认识上升到理性认识，真正做到学有所用，懂得先要发现问题，分析问题，解决问题，虽然在设计过程中我也遇到一些困难，但在同学的帮助和自己的努力下，我都认真克制了，但由于时间紧触，我并不能做到尽善尽美，应该说这是一大遗憾吧，我相信这对以后会有别开生会的体验。5.致在本次课程设计中，我们三人从指导教师身上学到了很多东西。她认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种巨大的帮助，在此感她耐心的辅导。在撰写报告阶段，提出了许多宝贵意见，没有她的指导，我们就不能较好的完成课题设计的任务。另外，我还要感在这几个月来给予我帮助的同学，他们热心的帮助不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感。 /
