怎样用vb求一元两次方程ax^2+bx+c=0的根?

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

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single

Dim d As Single, x1 As Single, x2 As Single

Dim r As Single, p As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If a = 0 Then

Text4.Text = "一元二次方程的系数A不能为0"

Text5.Text = "一元二次方程的系数A不能为0"

Else

d = b ^ 2 - 4 * a * c

r = -b / (2 * a)

If d = 0 Then

Text4.Text = r

Text5.Text = r

ElseIf d > 0 Then

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

Text4.Text = x1

Text5.Text = x2

ElseIf d < 0 Then

p = Sqr(-d) / 2 * a

Text4.Text = r & "+" & p & "i"

Text5.Text = r & "-" & p & "i"

End If

End Sub

怎样用vb求一元两次方程ax^2+bx+c=0的根? 已知一元两次方程ax的平方+bx+c=0的两根之和为-1,两根之积为-6.求一元两次方程cx的平方+bx+a=0的两根之和用VB解一元二次方程ax^2+bx+c=0的流程图一元二次方程ax^2+bx+c=0的解x VB怎么写? 求一元三次方程的解法ax^3+bx^2+cx+d的形式求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急. 求方程ax2+bx+c=0的根的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到：1 当a＝0 的情况2 有复数解的情况如果一元两次方程ax^2+bx+c= 0（a不等于0）有两个正的实数根,那么,a,b,c应满足那些关系一元二次方程ax^2+bx+c=0的解x VB代码及添加的控件 vb 一元二次方程输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2 用VB编程解一个一元四次方程运用牛顿法或二分法方程如下：AX^4-BX^3-C=0ABC是常数重谢高分vb求方程ax^2+bx+c=0存在实根的条件：即a不等于0,且b^2-4ac大于等于0 初二一元两次方程,若t是一元二次方程ax^2+bx+c=0(a≠0)的根,则△=b^2-4ac和完全平方式M=(2at+b)^2的关系是已知一元二次方程ax²+bx+c=0的两根为2,3,求方程cx²-bx+a=0的根用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2 设一元二次方程x^2+Bx+C=0,若B,C是一枚骰子先后掷两次出现的点数,求方程有实数根的概率关于VB的题从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根” 如果一元两次方程ax的平方加bx加c=0,有两个正的实数根,那么a、b、c应满足哪些关系