计算器相关代码.docVIP

就是能进行1+3+4-2等连续计算 Dim num As String, num1 As String 存放两个操作数 Dim Op As String 存放运算符 Private Sub CmdBackSpace_Click() 退格删除运算符最右边一个数 If num Then num = Left(num, Len(num) - 1) Disp.Caption = num End Sub Private Sub CmdCE_Click() 删除运算符 num = Disp.Caption = num End Sub Private Sub CmdClear_Click() 删除所有操作符恢复初始状态 num = num1 = Disp.Caption = num End Sub Private Sub CmdNum_Click(Index As Integer) num = num + CmdNum(Index).Caption Disp.Caption = num End Sub Private Sub CmdPoint_Click() 输入小数点 If InStr(num, .) 0 Then 用instr函数查找num中是否有逗号 Exit Sub 已经有小数点退出该时间过程 Else num = num + . 没有小数点把小数点加入到字符串中 End If Disp.Caption = num End Sub Private Sub CmdZF_Click() 正负数取反 If Left(num, 1) - Then num = - num Else num = Mid(num, 2) End If Disp.Caption = num End Sub Private Sub CmdOp_Click(Index As Integer) 记录第一个操作数和运算符 If Disp.Caption Then 如果DISP标签不为空则表示已经输入一个数据 num1 = num 将第一个操作数存入NUM1 Disp.Caption = 清空disp,num,准备输入第二个操作数num num = End If Op = CmdOp(Index).Caption 将选择的加减承储运算符，保存在模块变量OP中 End Sub Private Sub CmdEq_Click() 计算出运算结果 If Disp.Caption Then 如果disp标签为空则输出空 Select Case Op 选择运算符如果运算符为空则不运算并将disp标签输出空 Case + num = CStr(Val(num1) + Val(num)) Case - num = CStr(Val(num1) - Val(num)) Case × num = CStr(Val(num1) * Val(num)) Case ÷ If Val(num) = 0 Then MsgBox (除数不能为零，请重新输入) num = Else num = CStr(Val(num1) / Val(num)) End If Case num = End Select Else num = End If Disp.Caption = num End Sub 2009-11-14 18:57 补充问题 我的邮箱是wybmx@ 我的是在你的基础上改的，不是很严谨，可能有些BUG.还有写得太急了，没注释，包容下。我用的方法有点像下推自动机的方式，把所要进行运算的数和运算符保存到数组里（不过乘除运算比较例外，我先把乘除运算了，再把数放进数组里），到最后再进行统一运算。 Dim num As String, num1 As String 存放两个操作数 Dim Op As String 存放运算符 Dim nums() As Double 存放多个操作数 Dim Sumnum As Integer 操作数的总数 Dim Ops() As String 存放多个运算符 Dim SumOp As Integer 运算符总数 Dim OpFirst As Boolean 优先运算 Dim runend As Boolean 运算完成 Private Sub CmdBackSpace_Click() 退格删除运算符最右边一个数 If num Then num = Left(num, Len(num) - 1) Disp.Caption = num End Sub Priva