VB求一元二次方程的根,其中a,b,c通过文本框控件输入,结果显示在标签上

no

设方程的两个根为m,n那么m+n=a-6mn=a所以m+n-mn=-6m+n-mn-1=-7(m-1)(n-1)=7m,n都为整数所以m=8,n=2或m=2,n=8或m=0,n=-6,或m=-6,n=

设原方程的二个根分别是x1,x2,新方程的二个根分别是m,n,那么有m=1/x1,n=1/x2韦达定理得:x1+x2=-b/a,x1x2=c/a所以,m+n=1/x1+1/x2=(x1+x2)/(x1

解一元二次方程的Vb程序：在窗体上画一个命令按钮,输入下列代码,运行后可在窗体打印结果.PrivateSubCommand1_Click()dimaasdouble,basdouble,casdoub

ax^2+bx+c=0.(a≠0,^2表示平方)等式两边都除以a,得,x^2+bx/a+c/a=0,移项,得：x^2+bx/a=－c/a,方程两边都加上一次项系数b/a的一半的平方,即方程两边都加上b

disp('方程形式:a*x^2+b*x+c=0');a=input('a=');b=input('b=');c=input('c=');p=[abc];ans=roots(p)哥们,Mablab输出

PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB

PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,CAsSingleDimR1AsSingle,R2AsSingleA=Val(Text1.Text)B

x1+x2=-mx1*x2=nx1*x2-x1-x2=m+n=28如果是正数解有无穷多个如果是正整数解为230仅此一组

PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifb^2-4*a*cText4.Text="

开方

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

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

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

double类型的不能直接用==0来判断,用fabs(a)

以下是画一元二次方程的图的代码：（假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800）PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2

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

有错：1）delta=b*b-4*a*c2)要判断a是否为0

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