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

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

例题：求一元二次方程的根。
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

这个很简单啊