我在重写 一个计算器 ,这个计算器 支持 表达式计算,目前的进度是 四则混各运算,但还不能支持括号.
等支持括号后再发给大家看看吧.
----------------------------------
楼上这个要求,做完一个立即公布吧.
dim yy as long '运算符 ,1-4,0代表无运算
dim x1 ,x2 '两个操作数
dim tmps as string '输入的数,每次输入数,都先给它,
select case key '每次输入一个字符
case "*"
x2=val(tmps)
x1=计算1(x1,x2,yy) '计算1,为一个自定义函数,
x2=""
yy=3
tmps=""
case "\" '与乘处理相同
case "+"
case "-"
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0" '按下数字键
tmps=tmps & key
end select
我刚写的混和运算的 核心过程就是这样的.你参考一下.
Public Function 计算1(cs1 As String, cs2 As String, cs3 As Long) As Double
Select Case cs3
case 0
计算1= val(cs1)
Case 1
计算1 = Val(cs1) + Val(cs2)
Case 2
计算1 = Val(cs1) - Val(cs2)
Case 3
计算1 = Val(cs1) * Val(cs2)
Case 4
计算1 = Val(cs1) / Val(cs2)
End Select
End Function