怎样用VB做出这到题 方程ax2+bx+c=0 要求根据a b c系数的变化求出方程的根Private Sub Command1_Click()Dim pbs As Singlepbs = b * b - 4 * a * cIf pbs > 0 Thenpbs = Sqr(pbs)Text4 = Format((-b + pbs) / 2 / a,"0.00")Text5 = Format((-b
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 23:29:39
xV[SI+<Z*q*_R[e*!$Vܢ4^0$A$B
\Eܨ X=S68Osw۱4C7$_'{J#m
N8-H>Z!$IbNE[4Jn _}?/hvaϬOgq{Gh}ࢃi3