一元二次方程求解函数（VB6.0代码）