一个一元二次方程的程序，请求修改，谢谢！！！Private Sub Command1_Click()Clsa = Text1.Textb = Text2.Textc = Text3.Textf = Sqr(b * b - 4 * a * c)If f >= 0 Thend = (-b + Sqr(b * b - 4 * a * c)) / 2 * ae = (-b - Sqr(b * b - 4 * a * c)) / 2 * aElsePrint "该方程没有任何实数根"End IfLabel1.Caption = dLabel2.Caption = eEnd Sub

应为d = (-b + Sqr(b * b - 4 * a * c)) / （2 * a ）e = (-b - Sqr(b * b - 4 * a * c)) / （2 * a ）