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函數，可以計算表達式。但我們因為是實驗算法，不使用它。）
程序非常短，（因為采用了遞歸思想和分治法。）
今天算是又好好應用了一次分治法。。。。實現：加減乘除四則運算，暫不支持括號。
程序基本原理：
將一個表達式依次用加號、減號、乘號、除號拆開，然后遞歸的計算一個更小的表達式。如果遇到的是一個數字，那就直接返回這個數字。
這個程序就會不斷的分開表達式，直到分為一個個數字。
目前我還在思索如何把它放到根號化簡程序里面去。
|
