作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/16 03:50:31
vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算
比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算
vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算
'引用 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