vb输入一个一元二次方程ax2 bx c=0的3个系数,求方程的两个根.

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputB

这个我直接用的4个command控件,如果你学过应该能看懂Dim a As Integer, b As Integer, c&nb

SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex

查看链接http://wenku.baidu.com/link?url=uNerr_G11gI_WwHcUhl2mSHyhMMkD1AiTDlcuBl7vdk6Kt3u55bgOhFFeyafAp9m

由ax2+bx+c=0，得a（x2+bax）=-c，a（x+b2a）2-b24a=-c，（x+b2a）2=b2−4ac4a2，所以一个一元二次方程ax2+bx+c=0化为（x-m）2=b2−4ac4a

PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB

以下程序在jdk5.0测试通过importjava.util.Scanner;publicclassTest{//一元二次方程式解法privatestaticXfx(inta,intb,intc)th

SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex

x1+x2=-b/a;x1x2=c/a;∴1/x1+1/x2=(x1+x2)/(x1x2)=-b/c;1/x1×1/x2=1/(x1x2)=a/c;∴方程为cx²+bx+a=0;很高兴为您解

自己看下书,试着写一下就好,太简单了再问：你妹，会了还问你？别把自己膨胀的信心践踏在别人身上再答：别误会，要是说过了我很抱歉，这个代码估计没人给你发，还是自己照着书写就可以实现，很快的再问：好吧，原谅

首先,要限制a0否则,根本就不是一元二次方程,后面的程序也要出错.其次,ifd>=oThen这里,这个d>=o似乎不是零0,你写的是英文字母o.第三,公式法求根的时候,d^1/2改为d^(1/2)

考虑两种情况：（1）f(x)=0只有一根.此时一.若m-2=0,即f(x)为一次函数,此时f(x)=-8x-2有一负根x=-1/4.二.若m-2不为零,方程f(x)=0判别式（4m）^2-4(m-2)

∵一元二次方程ax2+bx+c=0有一个根是零，∴c=0，a≠0，故选A．

#include#includevoidmain(){floata,b,c,x,delt;couta>>b>>c;delt=b*b-4*a*c;if(delt>0)cout

设x方分之一=t,然后两边平方,整理得t方+48t+768=0,这会就用求根公式,或者……能看出来的话也可以十字相乘

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

有一个根为-1所以a-b+c=0.(1)a=根号(c-3)+根号(3-c)-2被开方数大于等于0所以c=3所以a=-2代入(1)得b=1

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a