Problema en Visual Basic (Leer el archivo)

...

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)

MsgBox ("Raiz 1: " & r1)

MsgBox ("Raiz 2: " & r2)

End If

’FinProcesoeImpresión

’InicioRepetición

Resp = MsgBox("Deseas calcular otra ecuación?", vbQuestion + vbYesNo, "Empezar de nuevo")

If Resp = 6 Then GoTo Inicio

’FinRepetición

End Sub