vb程序 输入一元二次方程a2 bx c=0的系数

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

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

//Equation.h#ifndef_Equation_h#define_Equation_hclassEquation{private:doublea;doubleb;doublec;voidSh

lf%错了,应该是%lf

PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB

#include"stdio.h"#include"math.h"/*求一元二次方程ax*x+bx+c=0的解*/main(){floata,b,c,x1=0.,x2=0.,d;printf("请输入

请参考

elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V

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

可以编写这样的程序.二元一次方程组的标准形式是：ax+by=ecx+dy=f那么：y=(ec-af)/(bc-ad)x=(e-by)/a程序如下：input{text-align:right}x+y=

解方程当然要化为一般式求解了,Print(-b+Sqr(p))/(2*a)Print(-b-Spr(p))/(2*a)这行要改为负号我一般和你写得一样,不喜欢写成开方Sqr函数,下面那样也是相等的(-

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

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

type根类型有根asboolean大根assingle小根assingleendtypefunction求根(aassingle,bassingle,cassingle)as根类型dim得塔assi

两处错误,第一个,没有赋值过程,应该改为：a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")第二个：x1=(-b-d)/(2*a)应该是x2=(-b-d)

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

(1)输入a=2,b=3,c=-1;(2)dt=b^2-4*a*c;(3)如果dt

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

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I