VB多项式化简例如((x+1)^2)*((y-x)^3)结果用x和y 表示.

'自定义计算函数
Function JS(ByVal Expressions As String) As String
Dim Mssc As Object
Set Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
On Error GoTo EvalErr
JS = Mssc.Eval(Expressions)
Exit Function
EvalErr:
Exit Function
End Function
Private Sub Command1_Click()
'引用函数举例:
x = 10
Y = 11
T = "((" & x & "+1)^2)*((" & Y & "-" & x & ")^3)"
MsgBox T & "=" & JS(T)
End Sub
'请采纳!谢谢!