计算器分析和总结.docxVIP

实现计算器的基本功能Option Explicit Dim opflag As Boolean 判断上一个符号是否为等号,用于连续输入计算Dim num1 As Double num1,num2 用于存放输入的数 Dim num2 As Double Dim op As String * 1 op 存放运算符 Dim strnum1 As String strnum1,strnum2 用于存放输入的数字，用于退格操作Dim strnum2 As String txtping 为输出屏幕Private Sub eq() 等号函数 On Error GoTo exception 异常捕捉Select Case op Case + num1 = num1 + num2 Case - num1 = num1 - num2 Case * num1 = num1 * num2 Case / num1 = num1 / num2 Case m num1 = num1 Mod num2 End Select txtprint.Text = Trim(Str(num1)) Exit Sub exception: 异常产生执行 exception Dim e As Integer e = MsgBox(Err.Description Chr(13) 请重新输入, vbExclamation, Er