Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 16:12:50

Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根
如果没有根则给出相应的提示信息

Private Sub Command1_Click()
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
Print "无实根"
End If
End If
End If
End Su

Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根编程编写一个程序求一元二次方程的解用C#编写一个求解一元二次方程的程序 vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况, VB程序编程:画出求一元二次方程的流程图用VB编写一个解一元二次方程 AX2+BX+C=0的程序谁会C语言,帮小弟做两题,1、编写程序求解一元二次方程a x +bx+c=0的根 2、编程求n! 用C语言编写一程序求解一元二次方程的根. 编程计算一元二次方程的解 vb C语言编程一元二次方程求根.要求：键盘输入系数a,b,c的值,求解一元二次方程的根 vb程序改错求解一元二次方程（ax^2+bx+c=0）的程序编写一个程序求一元二次方程的解.