作业帮求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到：1 当a＝0 的 情况2 有复数解的情况
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 00:50:49
求方程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