Solucion De Una Ecuacion De Segundo Grado Mediante Visual Basic

Dim A, B, C As Single
Dim BCuad, T_4AC, X1, X2 As Single
Dim Continuar As String = “SI”
Do While Continuar = “SI” Or Continuar = “Si” Or Continuar = “si”Or Continuar = “S” Or Continuar = “s”
A = InputBox(“Teclea el coeficiente de X “)
B = InputBox(“Teclea el coeficiente de X”)
C = InputBox(“Teclea el númeroindependiente” & (Chr(13) & Chr(10)) & “(es decir el termino sin X)”)
BCuad = B *
T_4AC = 4 *A * C
If (T_4AC< BCuad) Then
X1 = (-B+(BCuad – T_4AC) ^ (1 / 2)) / (2 * A)
X2 = (-B- (BCuad – T_4AC) ^ (1 / 2)) / (2 * A)
If C < = Then
MsgBox(“Las soluciones para la Ecuación: “ & A & “X+ “ & B & “X “ & C & “ = 0 Son: “ & (Chr(13) & Chr(10)) & (Chr(13) & Chr(10)) & “La
primer RAÍZ es X1 = ” & X1& X1 & (Chr(13) & chr(10)) & “La segunda RAÍZ es X2 = “ & X2)
Else
MsgBox(“Las soluciones para la Ecuación: “ & A & “X + “ & B& “X + “ & C& “ = 0 Son: “ & (Chr(13) & Chr(10)) & (Chr(13) & Chr(10)) & “La
primer RAÍZ es X1 = “ & X1 & (Chr(13)& Chr(10)) & “La segunda RAÍZ es X2 = “ & X2)
End If
Else
MsgBox(“La Ecuación” & (Chr(13) & Chr(10)) & A & “ X +” & B &“X + “ & C & “ = 0 “ & (Chr(13) & Chr(10)) & “No tiene Solución Real”)
End If
Continuar = InputBox(“¿DESEAS RESOLVER OTRA ECUACIÓN?” &(Chr(10) & Chr(13)) & (Chr(13) & Chr(10)) & “RESPONDE SI (S) PARA
CONTINUAR,” & (chr(13) & Chr(10)) & “NO (N) PARA TERMINAR”)