这个一元二次方程的代码正确吗？

Question

Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
Dim s As Single
a = InputBox("请输入一元二次方程的系数a:")
b = InputBox("请输入一元二次方程的系数b:")
c = InputBox("请输入一元二次方程的系数c:")
s = b ^ 2 - 4 * a * c
If a = 0 Then
Print "方程只有一个根:"; "x="; -c / b
If s > 0 Then
Print "方程有两个根:"
Print "x1="; (-b + s) / (2 * a)
Print "x2="; (-b + s) / (2 * a)
Else
If s = 0 Then
Print "方程有两个相同的根:"; X1 = X2 = ";-b/(2*a)"
Else
Print "方程没有根"
End If
End If
End If
End Sub
如果 是正确点解会在FORM栏里没有任何显示结果的？