算术表达式求值

[wyj770615]

某变量是一个算数表达式，如a="(8+10)/2"。如何能计算出表达式的值，如例所示得值9。（要求不分析字符串，不拆分。如必须拆分，最好有源码）

[WuYunpeng]

算符优先法，数据结构书上有。

[lxcc]

部件添加一个script control
Private Sub Command1_Click()
MsgBox ScriptControl1.Eval(Text1.Text)
End Sub

[onlineboy]

收藏

[射天狼]

首先引用一个控件“工程/引用/Microsoft Script Control 1.0

Dim s As New ScriptControl

s.Language = "vbscript"
MsgBox s.Eval("(8+10)/2")

[wyj770615]

多谢，在各位大虾的启发下，我找到一个更简单的办法，直接调用函数eval（）即可。