会VB 的大哥大姐教下额，作业，谢谢！对了追加加分！

来源：百度知道 编辑：UC知道 时间：2024/05/27 02:28:08
输入一元二次方程A*X^2+B*X+C=0 中的3个系数A、B和C的值,计算并显示出该一元二次方程A*X2+B*X+C=0 的实数根(输入的3个系数应符合B*B-4*A*C>=10)

Private ta As Double
Private tb As Double
Private tc As Double
Private tx1 As Double
Private tx2 As Double

Private Sub Form_Load()
ta = CSng(InputBox("请输入a"))
tb = CSng(InputBox("请输入b"))
tc = CSng(InputBox("请输入c"))
If ta ^ 2 - 4 * ta * tc < 10 Then
MsgBox "您输入的参数不符合B^2-4AC>=0,X 无实根"
Else
'x=(-b+/- 根号下b方-4ac)/2a
tx1 = (-tb + Sqr(tb ^ 2 - 4 * ta * tc)) / (2 * ta)
tx2 = (-tb - Sqr(tb ^ 2 - 4 * ta * tc)) / (2 * ta)
MsgBox "x1=" & tx1 & vbLf & "x2=" & tx2

End If
End Sub

dim A,B,C,x
if B*B-4*A*C>=0 then
x=(-b+/- 根号下b方-4ac)/2a
else x -> 无解

伪代码大致如此