vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算

'引用 Microsoft Script Control 1。0 '应该是你说的,但你说的3x 这样的公式 要写成 3*x 了,如果不行,另找好的代码 ,呵!但怎么用你也可以学一下 ScriptControlOption ExplicitPrivate Sub Command1_Click()On Error GoTo EDim ScriptControl1 As New ScriptControlDim strVBS     As StringScriptControl1。Language = "VBScript"Dim strCode     As StringstrCode = "function   DivideByZero()" & vbCrLf & _         IIf(Len(Text3。Text), "dim " & Text3。Text & vbCrLf, "") & _          Text1。Text & vbCrLf & _          "DivideByZero=(" & Text2。Text & ")" & vbCrLf & _          "End function"With ScriptControl1          。AddCode strCode          Text4。Text = 。Run("DivideByZero")End WithExit SubE: MsgBox "错误:" & Err。Number & vbCrLf & Err。Description, , "错误:" & Err。NumberEnd Sub