编写函数求一元二次方程ax2+bx+c=0的解,要求考虑方程有两相等实根、两不等实根和两个虚根的情况.原程序是这样的,但是只能求出实根情况,求教怎样实现题目的要求.OptionExplicitPrivateSubCommand
<p>问题：编写函数求一元二次方程ax2+bx+c=0的解,要求考虑方程有两相等实根、两不等实根和两个虚根的情况.原程序是这样的,但是只能求出实根情况,求教怎样实现题目的要求.OptionExplicitPrivateSubCommand<p>答案：↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">刘广雷的回答：<div class="content-b">网友采纳 OptionExplicitPrivateSubCommand1_Click()Me.ClsDimaAsSingle,bAsSingle,cAsSingle,sAsSinglea=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")s=b^2-4*a*cIfs
页:
[1]