vb6.0编写二次方程ax^2+bx+c=0分别讨论a,b,c取零 取实数 取 复数 求程序