求一元二次方程阿ax2(方)+bx+c=0的根(包括实根和复根)急.

问题描述:

求一元二次方程阿ax2(方)+bx+c=0的根(包括实根和复根)
急.

以下是核心算法:其中Text1,Text2,Text3是三个文本输入框,接受a,b,c三个系数.x1,x2为根Dim a As Single,b As Single,c As Single,d As Single,ds As SingleDim x1 As String,x2 As Stringa = Val(Text1.Text)b = Val...