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

Question

本帖最后由 bcrun 于 2010-10-31 08:59:46 编辑

Answer 1

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, cEnd Sub

Answer 2

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没有定义和赋值