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

Question

比如，输入3x+1,然后程序自动识别这个公式，把给定的值代入进行计算

Answer 1

'引用 Microsoft Script Control 1.0 '

应该是你说的,但你说的3x è¿™æ ·çš„公式 è¦å†™æˆ 3*x äº†,如果不行,另找好的代码 ,呵!但怎么用你也可以学一下 ScriptControl

Option Explicit

Private Sub Command1_Click()

On Error GoTo E

Dim ScriptControl1 As New ScriptControl

Dim strVBS     As String

ScriptControl1.Language = "VBScript"

Dim strCode     As String

strCode = "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 With

Exit Sub

E:

 MsgBox "错误:" & Err.Number & vbCrLf & Err.Description, , "错误:" & Err.Number

End Sub

Answer 2

需要海量的公式收集~~~

Answer 3

非常麻烦！

Answer 4

一个答案：正则表达式

不会的话去网上学习一下两天就搞定了。

大概就是一百多行代码