求!

解决方案 »

  1.   

    你这个是需要VB计算表达式的值,但你的表达式又是以字符串形式表现的
    可以先引用 Microsoft Script Control 1.0,一般在%windir%\system32\msscript.ocx
        Dim s As New ScriptControl
        s.Language = "vbscript"
        Debug.Print s.Eval("20*2")
        Set s = Nothing也可以不引用该控件,采用后期绑定的方法
        Dim o As Object
        Set o = CreateObject("MSScriptControl.ScriptControl")
        o.Language = "vbscript"
        Debug.Print o.Eval("20*2")
        Set o = Nothing