Помогите пожалуйста составить программу в Qbasic обычного квадратного уравнения...очень нужно...

PRINT "Квадратное уравнение a*x^2 + b*x + c = 0"
PRINT "Введите а"
INPUT a
PRINT "Введите b"
INPUT b
PRINT "Введите с"
INPUT c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "Корней нет"
ELSE
IF d = 0 THEN
x1 = (-b + SQR(d)) / 2 * a
PRINT "1 корень", x1
ELSE
x1 = (-b + SQR(d)) / 2 * a
x2 = (-b - SQR(d)) / 2 * a
PRINT "x1 = ", x1
PRINT "x2 = ", x2
END IF
END IF
END

Private Sub CommandButton1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
a = TextBox1.Value
b = TextBox2.Value
c = TextBox3.Value
If a <> 0 And b * b * 2 - 4 * a * c > 0 Then
x1 = (-b / 2 + (b * b * 2 - 4 * a * c) ^ 1 / 2) / 2 / a
x2 = (-b / 2 - (b ^ 2 - 4 * a * c) ^ 1 / 2) / 2 / a
MsgBox ("корни уравнения" & x1 & " and " & x2)
ElseIf a = 0 And b <> 0 Then
x = -c / b
MsgBox ("уравнение имеет один корень" & x)
Else
MsgBox ("уравнение не имеет корней")
End If
End Sub