编写函数求一元二次方程ax2+bx+c=0的解,要求考虑方程有两相等实根、两不等实根和两个虚根的情况.原程序是这样的,但是只能求出实根情况,求教怎样实现题目的要求.OptionExplicitPrivateSubCommand

　　编写函数求一元二次方程ax2+bx+c=0的解,要求考虑方程有两相等实根、两不等实根和两个虚根的情况.

　　原程序是这样的,但是只能求出实根情况,求教怎样实现题目的要求.

　　OptionExplicit

　　PrivateSubCommand1_Click()

　　Me.Cls

　　DimaAsSingle,bAsSingle,cAsSingle,sAsSingle

　　a=InputBox("请输入a")

　　b=InputBox("请输入b")

　　c=InputBox("请输入c")

　　s=b^2-4*a*c

　　Ifs