Código VB para resolver ecuaciones lineales multivariadas
Dim x, y, x1, y1, x2, y2, x3, y3 es Doble
Ajustar a, b, c al doble de precisión
Subcomando privado 1_Click() p>
Imprimir; "Ecuación: y = a * x^2 b * x c "
MsgBox "Ingrese las coordenadas de los vértices de x e y"
x1=0< / p>
x2=0
x3=0
y1=0
y2=0
y3=0< / p>
X1=InPutBox("Ingrese el valor de X1", x1).
Y1=InPutBox("Por favor ingrese el valor de Y1", y1).
X2=InPutBox("Ingrese el valor de X2", x2)
Y2=InPutBox("Ingrese el valor de Y2", y2)
X3 =InPutBox("Ingrese el valor de X3", x3)
Y3=InPutBox("Ingrese el valor de Y3", y3)
c = y1-( a*x1^ 2 b * x 1)
b = y2-c-a*x2^2)\x2
a = (y3-b*x3-c)\x3^ 2
x=0
y=0
X=InputBox("Ingrese el valor de x", x)
y=a*x ^2 b*x c
Texto1. Texto = y
Conector final
Subform_Load privado()
Texto1. Texto=0
Conector final