求教，求帮助编写一个一元二次方程求根的VB程序，自己弄了好多遍都不对，求教，急，拜托高手们了，谢谢！

Answer 1

初中的数学知识，你按照解方程的步骤，用VB代码实现就是了。
Private Sub Command1_Click()
dim a as single,b as single,c as single
dim d as single
dim x1 as single,x2 as single
a = text1.text
b = text2.text
c = text3.text
d = b*b - 4*a*c
if d>=0 then
x1 = (-b + sqr(d))/2/a

x2 = (-b - sqr(d))/2/a
text4.text=x1
text5.text=x1
else
msgbox "无实数解！"
end if
End Sub

Answer 2

键入根
根的类型为布尔

根单

小根单

功能求根（单，B为单，C如单）作为根型

昏暗的塔单

塔= B ^ 2-4 * A * C

如果太塔<0，则发现根部有根=假：“退出”功能 BR />塔= SQR（太塔）

根求根=（B +塔）/（2 *）

根寻根=（-B-塔）/（2 *）
端功能

Answer 3

键入根
根的类型为布尔

根单

小根单

功能求根（单，B为单，C如单）作为根型

昏暗的塔单

塔= B ^ 2-4 * A * C

如果太塔<0，则发现根部有根=假：“退出”功能 BR />塔= SQR（太塔）

根求根=（B +塔）/（2 *）

根寻根=（-B-塔）/（2 *）
端功能

Answer 4

Private Sub Command1_Click()
Dim a#, b#, c#, d#, x1#, x2#
a = Val(InputBox("a=", "数据输入框", 1))
b = Val(InputBox("b=", "数据输入框", 2))
c = Val(InputBox("c=", "数据输入框", 1))
If a = 0 Then
If b = 0 Then
If c = 0 Then Print "解得:x有无穷解" Else Print "x无解"
Else
Print "解得:x=" & -c / b
End If
Else
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "解得:x1=" & x1,
Print "x2=" & x2
Else
x1 = -b / (2 * a)
If d = 0 Then Print "解得:x=" & x1
If d < 0 Then
Print "无实根"
End If
End If
End If
End Sub