Problema en Visual Basic (Leer el archivo)

Sub EcuaciónDeSegundoGrado()

'6. Elaborar un algoritmo que solucione una ecuación de segundo grado con una

'incógnita en forma canónica, mediante fórmula. Recuerde usted que esta es la forma

'canónica: ax2 + bx + c = 0 Se trata de encontrar el valor de x y esta es la

'Analice bien esta fórmula y recuerde sus viejas clases de la preparatoria (si no se

'acuerda, vaya a consultar sus los libros de Álgebra ¿Qué le parece el Baldor?).

'Entre otras cosas, al ejecutar esta fórmula notará que x puede tener dos

'resultados. Ejecute en su cuaderno la fórmula con valores que usted decida. Por

'ejemplo: x2 - 4x + 3 = 0. Por otra parte, también debe usted saber, por los 14

'largos años que lleva ya estudiando en una escuela, que las raíces cuadradas

'negativas no producen un resultado real, por lo que en Excel o en una calculadora

'envían un mensaje de error (pruebe usted calculando, en una calculadora, la raíz de

'–9). Por último, aunque no es todo, tome en cuenta que si el coeficiente a de la

'ecuación es igual a 0, el denominador de la fórmula también será igual a 0. Como

'usted sabe, las calculadoras y Excel no saben hacer divisiones entre cero. Resuelva

'usted este problema.

'Autor Angel Felipe Bobadilla Somera 402I

MsgBox "Este programa sirve para resolver un sistema de ecuaciones de segunto grado", vbInformation, "Presentación"

Inicio:

'InicioCaptura

a = InputBox("Ingresa el coeficiente de A", "Coeficiente de A")

a = Val(a)

b = InputBox("Ingresa el coeficiente de B", "Coeficiente de B")

b = Val(b)

C = InputBox("Ingresa el coeficiente de C", "Coeficiente de C")

C = Val(C)

'FinCaptura

'InicioProcesoeImpresión

Disc = b ^ 2 - 4 * a * C

If Disc1 < 0 Then 'si son imaginarias

preal = (-b) / (2 * a)

pimag = Sqr(-Disc) / (2 * a)

MsgBox ("Raiz 1: " & preal & "+" & pimag & "i")

MsgBox ("Raiz 2: " & preal & "-" & pimag & "i")

End If

If Disc1 = 0 Then 'ver si son iguales o distintas

r = (-b) / (2 * a)

MsgBox ("Raiz 1 = Raiz 2: " & r)

End If

If Disc > 0 Then

r1 = ((-b) + Sqr(Disc)) / (2 * a)

r2 = ((-b) - Sqr(Disc)) / (2 * a)

...