Programación VB para encontrar las raíces de una ecuación cuadrática de una variable

Aquí se utilizan dos métodos de entrada y salida. El punto clave de esta pregunta es determinar la legalidad de los datos de entrada, especialmente a no puede ser igual a 0.

El primer tipo, los coeficientes a, b, c y las raíces de la ecuación se ingresan y generan usando el control TextBox.

El segundo tipo, los coeficientes a, b, c y las raíces de la ecuación son entrada y salida. Ambos usan entrada y salida del cuadro de diálogo;

El código es el siguiente:

'Método de entrada y salida del cuadro de diálogo

Subcomando privado1_Click()

Atenuar a como único, b como único, c como único

Atenuar delta como único, x1 como único, x2 como único

a = Val(InputBox("Ingrese el coeficiente de ecuación cuadrática unidimensional a"))

Si a = 0 Entonces

a = InputBox("El a=0 que ingresó , vuelva a ingresar el coeficiente a")

Else

b = Val(InputBox("Ingrese el coeficiente de la ecuación cuadrática b"))

c = Val(InputBox("Ingrese el coeficiente de la ecuación cuadrática c"))

delta = b * b - 4 * a * c

Si delta >= 0 Entonces

x1 = (-b + Cuadrado(delta)) / (2 * a)

x2 = (-b - Cuadrado(delta)) / (2 * a)

MsgBox a & " x^2 +" & b & " x Las raíces de + " & c & " son: " & x1 & "? " & x2

Si no

MsgBox "Esta ecuación no tiene raíces reales"

End If

End If

End Sub

'Entrada del cuadro de texto y método de salida

Private Sub Command2_Click()

a = Text1.Text

Si a = 0 Entonces

a = InputBox( "El a=0 que ingresaste, por favor vuelve a ingresar el coeficiente a")

De lo contrario

b = Texto2.Text

c = Texto3.Text

delta = b * b - 4 * a * c

Si delta >= 0 Entonces

x1 = (-b + Sqr(delta)) / ( 2 * a)

x2 = (-b - Sqr(delta)) / (2 * a)

Texto4.Text = x1

Texto5.Text = x2

Else

MsgBox "En el rango real No hay solución dentro"

Fin si

Fin si

Sub final

Sub comando privado3_Click()

Texto1.Text = ""

Texto2.Text = ""

Texto3 .Text = ""

Text4.Text = ""

Text5.Text = ""

Fin Sub

Subcomando privado4_Click ()

Fin

Fin Sub