求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到：1 当a＝0 的 情况2 有复数解的情况

Question

求方程ax2+bx+c=0的根 的VB程序
求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到：
1 当a＝0 的 情况
2 有复数解的情况

Answer 1

Private Sub Form_Activate()
Dim a#,b#,c#,d#,x1#,x2#
a = Val(InputBox("a=","数据输入框",1))
b = Val(InputBox("b=","数据输入框",2))
c = Val(InputBox("c=","数据输入框",1))
If a = 0 Then
If b = 0 Then
If c = 0 Then Print "解得:x有无穷解" Else Print "解得:x无解"
Else
Print "解得:x=" & -c / b
End If
Else
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "解得:x1=" & x1,
Print "x2=" & x2
Else
x1 = -b / (2 * a)
If d = 0 Then Print "解得:x=" & x1
If d < 0 Then
x2 = Sqr(-d) / (2 * a)
Print "解得:x1=" & x1 & "+" & x2 & "i"
Print "x2=" & x1 & "-" & x2 & "i"
End If
End If
End If
End Sub
'这是我的答案,希望对你能有所帮助!