Visual Basic编程一元二次方程求解

我需要编此题的方法，谢谢急需

请写上代码哦,简单点的!谢谢

建议将公式定义为一个函数，然后每次运算的时候直接调用这个函数就行。
这就是方法，而且很容易。你要是要代码我在帮你写。、。

是sqr

例题：求一元二次方程的根。 y=ax^2+bx+c 的形式的一元二次方程,输入a,b,c的值,的到方程的根 Private Sub Command1_Click() Dim a，b,c,x1,x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If b * b - 4 * a * c > 0 Then x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a) x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a) Label4.Caption = "方程有两实根，分别为：" + Str(x1) + Str(x2) ElseIf b * b - 4 * a * c = 0 Then x2 = (-b) / (2 * a) Label4.Caption = "方程有一根，为：" + Str(x2) Else Label4.Caption = "方程没有实根" End If End Sub