作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 16:26:37
vb 计算代数式
text1中输入的是x的值,text2中是一个含x的代数式,怎样把x的值带入text2中代数式并写入text3中去.
dim x ,y
x=text1.text
y=text2.text-----关键是这里怎么改
text3.text=y
'使用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))