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

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

答案：↓↓↓

刘广雷的回答：

网友采纳　　OptionExplicitPrivateSubCommand1_Click()Me.ClsDimaAsSingle,bAsSingle,cAsSingle,sAsSinglea=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")s=b^2-4*a*cIfs