Programación vb (ecuación lineal de dos variables)

Imprimir "Ingrese los coeficientes de las ecuaciones a, byc (a no es 0)"

Hacer mientras a = 0

a = Val(InputBox("Ingrese a"))

Bucle

b = Val(InputBox("Ingrese b"))

c = Val(InputBox("Ingrese c"))

Imprimir "a="; a

Imprimir "b="; = "; c

d = b * b - 4 * a * c

Si d lt; 0 entonces

Imprimir "Sin solución"

Si no

X1 = (-b Cuadrado(d)) / (2 * a)

X2 = (-b - Cuadrado(d)) / (2 * a )

Imprimir "x1="; X1

Imprimir "x2="; p >