VB课程设计报告--简易计算器.docVIP

VB课程设计报告 设计题目：简易计算器 所在院系：高职院 所在专业： 学生学号： 学生姓名： 指导老师： 完成时间：2010-6-3 一、实验目的: 1.培养运用VB6.0界面和代码的能力； 2.活用所学的VB知识制作简单的计算器； 3.发挥各人的想象能力和分析能力，拓展思维空间； 4.掌握应用程序设计的基本方法。 二、需求分析 设计一个简易计算器，能够实现＋－×÷求倒数等基本运算功能，类似于Windows中的计算器。 1、设计思路 先模拟地设计出计算器面板，含各类按钮及结果输出框，其次写出各事件，如数字事件、符号事件、等好事件；再次写出各类运算函数，如加法、减法、乘法、除法；最后于主函数中调用各功能及运算。 这样的设计，主要灵感是来源于生活中的计算器，用程序模拟、抽象地描述出计算器的功能，大有人性化的思维模式：科技以人为本！ 2、界面设计 因为VB是一种可视化的编程工具，其整个用户界面的设计都是基于“可视化操作”的。界面设计在VB程序设计中占有重要地位，一个好的界面，不但要令人感觉良好，还要使程序方便易用。熟练掌握VB界面的设计是进行VB程序设计的前提。VB界面的设计主要包括控件的绘制及各控件属性的设置两种工作。 界面截图如下： 三、概要设计: 四、详细设计: Dim A, B As Single Dim Op As String Private Sub Command1_Click() Text1.Text = Text1.Text + Command1.Caption End Sub Private Sub Command10_Click() If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = Op = - End Sub Private Sub Command11_Click() Text1.Text = Text1.Text + Command11.Caption End Sub Private Sub Command12_Click() Text1.Text = Text1.Text + Command12.Caption End Sub Private Sub Command13_Click() Text1.Text = Text1.Text + Command13.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 Command15_Click() Text1.Text = Text1.Text + Command15.Caption End Sub Private Sub Command16_Click() Text1.Text = Text1.Text + Command16.Caption End Sub Private Sub Command17_Click() Text1.Text = A = 0: B = 0 End Sub Private Sub Command18_Click() End End Sub Private Sub Command2_Click() If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = Op = / End Sub Private Sub Command3_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 Command4_Click() Text1.Text = Text1.Text + Command4.Caption End Sub Private Sub Command5_Click() Text1.Text = Text1.Text + Command5