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

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/07/05 16:12:23

Private Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim d As Single, x1 As Single, x2 As SingleDim 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 IfEnd Sub

再问：您好，请您把下面的代码解释一下，特别是这个i代表什么？谢谢。 p = Sqr(-d) / 2 * a Text4.Text = r & "+" & p & "i" Text5.Text = r & "-" & p & "i"

怎样用vb求一元两次方程ax^2+bx+c=0的根? 已知一元两次方程ax的平方+bx+c=0的两根之和为-1,两根之积为-6.求一元两次方程cx的平方+bx+a=0的两根之如果一元两次方程ax^2+bx+c= 0（a不等于0）有两个正的实数根,那么,a,b,c应满足那些用VB解一元二次方程ax^2+bx+c=0的流程图 vb程序改错求解一元二次方程（ax^2+bx+c=0）的程序求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急. 关于VB的题从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根” 用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2 已知一元二次方程ax²+bx+c=0的两根为2,3,求方程cx²-bx+a=0的根一元二次方程ax^2+bx+c=0的解x VB代码及添加的控件一.试用一元两次方程的求根公式探索方程ax²+bx+c=0（a≠0）（1）两根互为相反数的条件（2）两根互为倒从键盘输入3个数作为一元二次方程(ax平方+bx+c=0)的三个参数,求方程的根