关于VB的题从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根”

来源：学生作业帮编辑：百度作业网作业帮分类：数学作业时间：2024/05/04 16:29:49

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c < 0 Then
Text4.Text = "方程没有实数根"
ElseIf b ^ 2 - 4 * a * c = 0 Then
x = -b / (2 * a)
Text4.Text = "方程有一个根:" & x
Else
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Text4.Text = "方程有两个根：" & X1 & "和" & X2
End If
End Su

关于VB的题从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根” C语言求方程aX^2+bX+c=0解,其中a.b.c由键盘输入.若方程无实根,输出没有实数根,否则输出实根用MATLAB编程求解一元二次方程ax^2 +bx+c=0的根,其中a、b、c由键盘输入. 从键盘输入3个数作为一元二次方程(ax平方+bx+c=0)的三个参数,求方程的根一元二次方程ax方+bx+c(a≠0)有两异号实数根的条件是什么? 已知关于x的一元二次方程ax的平方+bx+c=0 【a不等于0】有两个不等于0的实数根,求一个一元二次方程, 如果非零实数abc满足a+b+c=0,则关于X的一元二次方程ax^2+bx+c=0必有一根为若关于x的一元二次方程ax的方+bx+c=0有一个根为1则a+b+c= 已知关于X的一元二次方程ax方+bx+c=0有两个不相等的实根,求一个一元二次方程,使它的根分别是已知方程根的倒数. 一元二次方程ax方+bx+c=0(a不等于0)的两实根为x1和x2.求x1的三次方加x2的三次方. 以知关于一元二次方程ax+bx+c=0没有实数根已看错了一个符号误求得两根为-1和3 ,求a分之b+c的值用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2

关于VB的题 从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根”

关于VB的题从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根”