Programa vb para resolver ecuaciones cuadráticas de una variable
Copie el código directamente al formulario para probar Private Sub Form_Load()
Dim a, b, c, x1, x2 As Single
Dim str As String
a = Val(InputBox("Ingrese el coeficiente del término cuadrático de la ecuación cuadrática"))
b = Val(InputBox("Ingrese la ecuación cuadrática" ) El coeficiente del término lineal de la ecuación"))
c = Val(InputBox("Ingrese el término constante de la ecuación cuadrática"))
Si a = 0 Entonces
Si c < 0 Entonces
str = b & "x" & c & "=0"
Si no
str = b & "x+ " & c & "=0"
End If
If MsgBox("La ecuación que ingresaste es " & str & ", ¿quieres resolverla? ?", vbOKCancel) = vbOK Entonces
Si b = 0 Entonces
MsgBox "¡Esta ecuación no tiene solución!"
De lo contrario
x1 = -c / b
p>MsgBox "La ecuación tiene una sola solución, x=" & x1
Finalizar si
Finalizar si
De lo contrario
Si b < 0 Entonces
Si c < 0 Entonces
str = a & "x^2" & b & " x" & c & "=0"
De lo contrario
str = a & "x^2" & b & "x+" & c & "=0"
Finalizar si
Si no
Si c < 0 Entonces
str = a & "x^2+" & b & "x" & c & "=0"
De lo contrario
str = a & "x^2+" & b & "x+" & c & "=0"
End If
End If
If MsgBox("La ecuación que ingresaste es " & str & ", ¿quieres resolverla?", vbOKCancel) = vbOK Then
Si b ^ 2 - 4 * a * c < 0 Entonces
p>
MsgBox "Ecuación" & str & "¡Sin solución!"
De lo contrario
Si b ^ 2 - 4 * a * c = 0 Entonces
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox "Ecuación" & str & "Hay dos soluciones iguales, x1 = " & x1 & ",x2=" & x1
De lo contrario
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a )
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox "Ecuación" & str & "Tiene dos soluciones desiguales, x1=" & x1 & ",x2=" & x2
Finalizar si
Finalizar si
Finalizar si Finalizar si
Fin
Fin Sub