VB设计计算器实验报告.docVIP

VB设计计算器 实验报告 姓名： 专业： 学号： 二〇一一年十一月七日 设计功能完整的计算器，实现如下图所示按钮（除“MC”,“MR”,“MS”,“M+”）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数op1、op2，小数点是否真存在的量DecimalFlag，操作数个数NumOps，上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 二、源程序： Option Explicit Dim Op1, Op2 前面输入的操作数 Dim DecimalFlag As Integer 小数点仍然存在吗？ Dim NumOps As Integer 操作数个数 Dim LastInput 指示上一次按键事件的类型 Dim OpFlag 指示未完成的操作 Dim TempReadout 窗体的初始化过程 设置所有变量为其初始值 Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastInput = NONE OpFlag = Text1.Text = Format(0, 0.) Decimal.Caption = Format(0, .) End Sub 退格键 Private Sub Command1_Click() If Len(Text1.Text) = 1 Then Text1.Text = Format(0, 0.) DecimalFlag = False LastInput = NONE Else If Text1.Text = 0. Then Text1.Text = 0. DecimalFlag = False LastInput = NONE Else Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End If End If End Sub Private Sub Command2_Click() CE (取消输入) 按钮的 Click 事件过程 Text1.Text = Format(0, 0.) DecimalFlag = False LastInput = CE End Sub Private Sub Command3_Click() C (取消) 按钮的 Click 事件过程 重新设置显示并初始化变量 Text1.Text = Format(0, 0.) Op1 = 0 Op2 = 0 Form_Load End Sub Private Sub Command8_Click(Index As Integer) 数字键 (0-9) 的 Click 事件过程 向显示中的数追加新数 If LastInput NUMS Then Text1.Text = Format(0, .) DecimalFlag = False End If If DecimalFlag Then Text1.Text