VB接一元二次方程问题，要求用三个函数分别求根

--------------------编程问答-------------------- 套公式不行吗？ --------------------编程问答-------------------- Private Sub Command1_Click()
Dim a%, b%, c%, t$
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
t = b ^ 2 - 4 * a * c
dayu a, b, c
dengyu a, b, c
xiaoyu a, b, c

End Sub --------------------编程问答-------------------- Private Sub Command1_Click()
Dim a%, b%, c%, t$
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
t = b1 ^ 2 - 4 * a * c
dayu a1, b1, c1
dengyu a2, b2, c2
xiaoyu a3, b3, c3


a1 a2 a3 b1 b2 b3 c1 c2 c3没有定义和赋值

补充：VB ,  基础类