Question

VB中如何计算字符串的值

在text中输入含有变量的表达式，（如2+3*x+6-x），在代码中写x=1，接下来如何求出text中的值

Answer 1

Dim x As Integer

Private Sub Command1_Click()
x = 1
MsgBox CalcStr(Replace(Text1.Text, "x", x))
End Sub

Function CalcStr(strNum As String) As Double
Dim MSSC As Object
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
CalcStr = MSSC.Eval(strNum)
Set MSSC = Nothing
End Function