递归（分治法）实现计算简单表达式 -

标题: 递归（分治法）实现计算简单表达式 [打印本页]

作者: 51hei小名 时间: 2016-6-20 22:46
标题: 递归（分治法）实现计算简单表达式

Function Ev (Expr)

If InStr(Expr,"+")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"+")-1))+Ev(Mid(Expr,InStr(Expr,"+")+1,Len(Expr)-InStr(Expr,"+"))):Exit FunctionIf InStr(Expr,"-")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"-")-1))-Ev(Mid(Expr,InStr(Expr,"-")+1,Len(Expr)-InStr(Expr,"-"))):Exit FunctionIf InStr(Expr,"*")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"*")-1))*Ev(Mid(Expr,InStr(Expr,"*")+1,Len(Expr)-InStr(Expr,"*"))):Exit FunctionIf InStr(Expr,"/")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"/")-1))/Ev(Mid(Expr,InStr(Expr,"/")+1,Len(Expr)-InStr(Expr,"/"))):Exit Function
If InStr(Expr, "/")= 0 Then Ev=Cdbl(Expr)
End Function
Msgbox Ev(Inputbox("expr"))

（注：VBS内部提供了一个Eval函数，可以计算表达式。但我们因为是实验算法，不使用它。）
程序非常短，（因为采用了递归思想和分治法。）
今天算是又好好应用了一次分治法。。。。实现：加减乘除四则运算，暂不支持括号。
程序基本原理：
将一个表达式依次用加号、减号、乘号、除号拆开，然后递归的计算一个更小的表达式。如果遇到的是一个数字，那就直接返回这个数字。

这个程序就会不断的分开表达式，直到分为一个个数字。

目前我还在思索如何把它放到根号化简程序里面去。

欢迎光临 (http://www.51hei.com/bbs/)