VB编程,一元二次方程ax^2+bx+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 -

来源：学生作业帮助网编辑：作业帮时间：2024/05/05 22:42:50

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 -
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
这个编程有错没

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 - 在VB中怎样求一元二次方程 a x * x+bx+c=0的根,并对a、b、c 进行校验 vb 一元二次方程输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2 一元二次方程ax^2+bx+c=0的解x VB怎么写? 一元二次方程（步骤）解关于x的一元二次方程ax(a-x)+ab^2=b(bx-x^2)+a^2b(a≠b）. 解一元二次方程：x²-b²=a（3x-2a+b）求助：vf编程输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0 一元二次方程x^2+b/a x+c/a=0怎么算? 解关于x的一元二次方程：(x-a)²=a²+2ab+b² 一元二次方程:a(x-b)+c=0 一元二次方程 x^2-3 用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况：1,a=0,不是一元二次方程2,b^2-4ac=0,有两个相等的实根3,b^2-4ac>0,有两个不相等的实根 x^(2a+b)-2x^(a-b)+3=0是一元二次方程,求a b的值. 一元二次方程ax^2+bx+c=0的解x VB代码及添加的控件一元二次方程x^2+b^2+2ax+a^2=0,求解,谢谢解一元二次方程：x^2-3ax+2a^2-ab-b^2=0 九年级数学一元二次方程x平方-2ax+a平方-b平方=0 解一元二次方程：x²+2ax-b²+a²=0