字符串转化为VB可计算的公式

Question

如何将字符串转化为可以计算的公式 例如 2*b^3.14  b的值可以从数据库中取  （VB环境）

Answer 1

引用  MICROSOFT SCRIPT CONTROLOption ExplicitPrivate Sub Command1_Click()
  Dim s As String, b As Double
  Dim a As New ScriptControl
  s = "2*b^3.14"
  b = 5.6 '这里b你可以自己取数据库中的值 然后赋值给它
  s = Replace(s, "b", cstr(b))
  a.Language = "vbscript"
  Print a.Eval(s)
End Sub

Answer 2

ayalicer 按照你的做法好像不对啊
提示用户类型未定义  Dim   a   As   New   ScriptControl 

Answer 3

你没引用MICROSOFT   SCRIPT   CONTROL 
菜单->工程->引用..

Answer 4

高人！！！！
感谢 感谢！！
 
但是这个公式m=exp(2+3ln(d)) 就不行了啊

Answer 5

Option ExplicitPrivate Sub Command1_Click()
    Dim s As String, b As Double
    Dim a As New ScriptControl
    s = "exp(2+3*log(b))"
    b = 5.6 '这里b你可以自己取数据库中的值   然后赋值给它
    s = Replace(s, "b", CStr(b))
    a.Language = "vbscript"
    Print a.Eval(s)
End Sub
注意自己加"*"号 以及函数名称

Answer 6

嗯嗯 OK了  要注意“（） ” 
ayalicer 再次感谢你！