编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/05/01 13:50:00

以下是核心算法：其中Text1,Text2,Text3是三个文本输入框,接受a,b,c三个系数.x1,x2为根
Dim a As Single,b As Single,c As Single,d As Single,ds As Single
Dim x1 As String,x2 As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b * b - 4 * a * c
ds = Sqr(Abs(d))
If d > 0 Then
x1 = Str((-b + ds) / 2 * a)
x2 = Str((-b - ds) / 2 * a)
ElseIf d = 0 Then
x1 = Str(-b / 2 * a):x2 = x1
Else
b = Round(-b / (2 * a),7):c = Round(ds / (2 * a),7)
x1 = Str(b) + "+" + Str(c) + "i"
x2 = Str(b) + "-" + Str(c) + "i"
End If
——————————————————————转贴

编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2. 输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2. VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计编写一个函数,求标准的一元二次方程ax2+bx+c=0的根,要求方程的系数都可以以主程序输入来改变? vb编程题：输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,. 输入二次方程ax2＋bx＋c=0的三个系数,计算并输出二次方程的两个实数根x1,x2,界面自行设计. 用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2 x1和x2分别是实系数一元二次方程ax2+bx+c=0和-ax2+bx+c=0的一个根,且x1≠x2,x1≠0,x2≠0 有一个定理：若x1、x2是一元二次方程ax2+bx+c=0（a≠0，a、b、c为系数且为常数）的两个根，则x1+x2=− 若x1、x2是一元二次方程ax2+bx+c=0（a≠0,a、b、c为系数且为常数）的两个根,则x1+x2=− 二次函数的根一元二次方程ax2+bx+c＝0的两个实数根x1、x2其中x1=?x2=?X1*X2=?X1+X2=？ vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,