VB编程,一元二次方程ax^2+bx+c=0的根

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/11 10:07:21

VB编程,一元二次方程a*x^2+b*x+c=0的根
Dim a As Double
Dim b As Double
Dim c As Double
Dim delta As Double
Dim x1 As Double
Dim x2 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
delta = b * b - a * a * c
If delta > 0 Then
x1 = (-b + Sqr(delta)) / (2 * a)
x2 = (-b - Sqr(delta)) / (2 * a)
MsgBox "x1=" + Str(x1) + vbCrLf + "x2=" + Str(x2)
ElseIf delta = 0 Then
MsgBox "x1=x2=" + Str((-b) / (2 * a))
Else
MsgBox "没有实数解"
End If
这个编程有错没

有错：
1）delta=b*b-4*a*c
2)要判断a是否为0

VB编程,一元二次方程a*x^2+b*x+c=0的根在VB中怎样求一元二次方程 a x * x+bx+c=0的根,并对a、b、c 进行校验求助：vf编程输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0 用MATLAB编程求解一元二次方程ax^2 +bx+c=0的根,其中a、b、c由键盘输入. 谁会C语言,帮小弟做两题,1、编写程序求解一元二次方程a x +bx+c=0的根 2、编程求n! 实数a,b,c,d满足：一元二次方程x²+cx+d=0的两根为a,b,一元二次方程x²+ax+b=0 已知实数a,b,c,d,一元二次方程 X²+cX+d=0的两根为a,b.一元二次方程 X²+aX+b 已知a、b、c是三角形ABC的三边,且一元二次方程x²+2（b-c)X+(c-a)(a-b)=0,有两个实数根一元二次方程:a(x-b)+c=0 一元二次方程a(b-c)x^2+b(c-a)x+c(a-b)=0必有一根为? 已知关于x的一元二次方程a(1+x²)+2bx-c(1-x²)=0有两个相等的实数根,a、b、c分别已知一元二次方程（b-c)的平方+（c-a)x+（a-b）=0,有两个相等实数根,证明2b=a+c