求“一元二次方程”程序代码
发布网友
发布时间：2022-12-10 20:45
共2个回答
热心网友
时间：2024-07-06 05:03
Dim a, b, c, x, y
a = InputBox("a", , 2)
b = InputBox("b", , 4)
c = InputBox("c", , 1)
If b ^ 2 - 4 * a * c < 0 Then
MsgBox "无解"
Else
x = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "解得：" & x & "，" & y
End If
End Sub
热心网友
时间：2024-07-06 05:03
例如,声明三个变量,a, b, c.这是一元二次方程的系数.要求用户输入.
有根的条件是:b*b-4*a*c >=0;
当b*b-4*a*c = 0时,有单根.
当b*b-4*a*c > 0时,有双根.
求根公式是: x = (-b[+|-]spr(b*b-4*a*c))/2a
