输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实数根x1,x2,界面自行设计.
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/10/02 18:34:11
输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实数根x1,x2,界面自行设计.
Dim a!,b!,c!,x1#,x2#,d#
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If a = 0 Then
Print "这个方程不是一元二次方程"
End
End If
If d < 0 Then
Text4.Text = "这个方程无实数根"
Text5.Text = "这个方程无实数根"
Else
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Text4.Text = Str(x1)
Text5.Text = Str(x2)
End If
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If a = 0 Then
Print "这个方程不是一元二次方程"
End
End If
If d < 0 Then
Text4.Text = "这个方程无实数根"
Text5.Text = "这个方程无实数根"
Else
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Text4.Text = Str(x1)
Text5.Text = Str(x2)
End If
输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实数根x1,x2,界面自行设计.
vb编程题:输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,.
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
已知一元二次方程ax2+bx+c=0的两个实数根X1,X2满足X1+X2=4,和X1×X2=3,
编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.
二次函数的根一元二次方程ax2+bx+c=0的两个实数根x1、x2其中x1=?x2=?X1*X2=?X1+X2=?
阅读材料:若一元二次方程ax2+bx+c=0的两个实数根为x1,x2,则两根与方程系数之间有如下关系:x1+x2=−ba
已知x1,x2是一元二次方程ax2+bx+c=0的两个根,求证:ax2+bx+c=a(x-x1)(x-x2).
x1和x2分别是实系数一元二次方程ax2+bx+c=0和-ax2+bx+c=0的一个根,且x1≠x2,x1≠0,x2≠0
已知x1,x2是一元二次方程ax2+bx+c=0的两个根(b2-4ac≥0)