求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到:1 当a=0 的 情况2 有复数解的情况
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/13 23:50:27
![求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到:1 当a=0 的 情况2 有复数解的情况](/uploads/image/z/5496868-28-8.jpg?t=%E6%B1%82%E6%96%B9%E7%A8%8Bax2%2Bbx%2Bc%3D0%E7%9A%84%E6%A0%B9+%E7%9A%84VB%E7%A8%8B%E5%BA%8F%E6%B1%82%E4%B8%80%E5%85%83%E4%BA%8C%E6%AC%A1%E6%96%B9%E7%A8%8Bax2%2Bbx%2Bc%3D0%E7%9A%84%E6%A0%B9%E7%9A%84VB%E7%A8%8B%E5%BA%8F%2C%E8%A6%81%E8%80%83%E8%99%91%E5%88%B0%EF%BC%9A1+%E5%BD%93a%EF%BC%9D0+%E7%9A%84+%E6%83%85%E5%86%B52+%E6%9C%89%E5%A4%8D%E6%95%B0%E8%A7%A3%E7%9A%84%E6%83%85%E5%86%B5)
求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到:1 当a=0 的 情况2 有复数解的情况
求方程ax2+bx+c=0的根 的VB程序
求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到:
1 当a=0 的 情况
2 有复数解的情况
求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到:1 当a=0 的 情况2 有复数解的情况
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
'这是我的答案,希望对你能有所帮助!
a,b,c 为待定变量,x为变量,d为变量
输入a,b,c
If a=0 ,then
if b=0 and c=0 then x=0
if b=0 and c<>0 then print("error")
if b<>0 then x=-c/b
else d=b&2-4ac
if d>0 then x1=(-b+d^0.5)/2a,x2=(-b-d^0.5)/2a
if d=0 then x=-b/2a
if d<0 then x1=(-b+d^0.5i)/2a, x2=(-b-d^0.5i)/2a