算术表达式求值

Question

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

Answer 1

首先引用一个控件“工程/引用/Microsoft Script Control 1.0Dim s As New ScriptControl
    
    s.Language = "vbscript"
    MsgBox s.Eval("(8+10)/2")

Answer 2

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

Answer 3

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