作业帮 > 数学 > 作业

求方程ax2+bx+c=0的根 的VB程序

来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/04/29 14:28:59
求方程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
'这是我的答案,希望对你能有所帮助!
求方程ax2+bx+c=0的根 的VB程序 用VB编写一个解一元二次方程 AX2+BX+C=0的程序 vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况, 编程求ax2+bx+c=0方程的根,要求a,b,c从键盘入手,程序中求出方程的所有解 求写一个C语言程序 求一元二次方程ax2+bx+c=0的跟. 怎样用VB做出这到题 方程ax2+bx+c=0 要求根据a b c系数的变化求出方程的根 C语言求方程ax2+bx+c=0的根. 用C语言求方程ax2+bx+c=0的根. 2-14 求方程ax2+bx+c=0的根 C语言作业! 求ax2+bx+c=0方程的根,a,b,c由键盘输入 VB中输入方程ax2+bx+c=0的三个系数a、b、c（设a不等于零）,求方程的根（要求输出时保留小数点两位）. vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,