小学期实践报告.docVIP

Visual Basic 程序开发 课程设计报告 题目： 计算器、 拼图游戏 姓名: 李浩增 班级: 方1104-03 学号: 指导教师:张建权 2012年6月21日 题目一计算器 设计目的：通过对计算器编程的学习, 2.主要功能： 1.具有加减乘除运算的功能； 2. 具有开方，取倒数，添加小数点，进行退格等功能。 3.程序设计过程： 3.1.界面设计 设计了 ‘定义一个变量，用以标示是否点过“.” Dim isPressDot As Boolean ‘定义保存第一个运算数和第二个运算数的变量 Dim firstValue As Double,secondValue As Double ‘定义一个保存运算符的变量 Dim SaveSign As String ‘定义一个保存刚刚按过运算符的变量 Dim isPressSign As Boolean ‘定义保存中间结果的变量 Dim ResultValue As Double Private Sub cmdBackspace_Click() If Right(txtDisplay,1)=??And isPressDot=False Then txtDisplay=Mid(txtDisplay,1,Len(txtDisplay)-2) Else If Right(txtDisplay,1)=?? Then isPressDot=False End If txtDisplay=Mid(txtDisplay,1,Len(txtDisplay)-1) End If txtDisplay=formatStr(txtDisplay) ‘格式化文本框 End Sub Private Sub cmdC_Click() txtDisplay = 0. isPressDot = False firstValue = 0 secondValue = 0 saveSign = isPressSign = False End Sub Private Sub cmdCE_Click() txtDisplay = 0. isPressDot = False End Sub Private Sub cmdDot_Click() isPressDot = True End Sub Private Sub cmdEqual_Click() Select Case saveSign Case + txtDisplay = firstValue + secondValue Case - txtDisplay = firstValue - secondValue Case * txtDisplay = firstValue * secondValue Case / txtDisplay = firstValue / secondValue End Select firstValue = Val(txtDisplay) isPressSign = True txtDisplay = formatStr(txtDisplay) 格式化文本框 End Sub Private Sub cmdMAdd_Click() resultValue = resultValue + Val(txtDisplay) End Sub Private Sub cmdMC_Click() txtDisplay = 0. resultValue = 0 lblM.Visible = False isPressDot = False End Sub Private Sub cmdMinus_Click() txtDisplay = -Val(txtDisplay) txtDisplay = formatStr(txtDisplay) 格式化文本框显示 End Sub Private Sub cmdMR_Click() txtDisplay = resultValue txtDisplay = formatStr(txtDisplay) 格式化文本框显示 End Sub Private Sub cmdMS_Click() resultValue = Val(txtDisplay) lblM.Visible = True isPressSign = True isPressDot = False End Sub Private Sub cmdN