Question

vb 计算代数式text1中输入的是x的值,text2中是一个含x的代数式,怎样把x的值带入text2中代数式并写入te

Answer 1

'使用text1代替x,再将代数式值赋给y

'Microsoft Script调用系统函数实现表达式的运算

Function RESULT(ByVal x As String) As Double

Dim OBJ As Object

Set OBJ = CreateObject("MSScriptControl.ScriptControl")

OBJ.Language = "vbscript"

RESULT = OBJ.Eval(x)

Set OBJ = Nothing

End Function

Text3 = RESULT(Replace(Text2.Text,"x",Text1,,,vbTextCompare))