vb求一元二次方程ax^2 bx c=0的根,其中a不等于0