Private Sub Command1_Click()
Dim MatLab As Object
Dim a As Single, b As Single, c As Single
Set MatLab = CreateObject("MatLab.Application")
MatLab.Execute ("eq1=sym('x^2+2*x+1=0');")
MatLab.Execute ("eq2=sym('x+3*z=4');")
MatLab.Execute ("eq3=sym('y*z=-1');")
MatLab.Execute ("[x,y,z]=solve(eq1,eq2,eq3)") 这里已经算出xyz如何把他们的值赋值给VB里的abc
End Sub