VB计算一元二次方程ax的平方 bx c=0的代码

设原方程的二个根分别是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

从b=√a-2+√2-a+3我们得到a≥2且a≤2即a=2b=0+0+3=3因为一元二次方程的一个根是1则a+b+c=5+c=0,解得c=-5即方程是y²/4-5=0即y²=20解

在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解privatesubcommand1_click()dimxasdouble,x1asdouble,x2asdouble,a1asd

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

你好,完美の拼图分类讨论：①当a＝0时-40时,原函数为2次函数,开口向上,一定存在大于0的数,不符合题意③当a

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

#include;#include;#include;main(){floata,b,c,d,e,f;scanf("%f%f%f",&a,&b,&c);d=b*b-4*a*c;if(d>=0){e=(

是一元二次方程

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

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

OptionExplicitPrivateSubCommand1_Click()Dima,b,ca=1:b=-5:c=6Printa,b,c&vbNewLine&fc(a,b,c)EndSubFunc

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

dimaasdouble,basdouble,casdoubledimx1asdouble,x2asdoublea=val(inputbox(""))b=val(inputbox(""))c=val(

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

设两根分别为x,y,判别式=(2a)^2-4ac＞0,所以a＞c,即c/a＜1x+y=-(2a/a),xy=c/a(x-y)^2=（x+y)^2-4xy=4-4c/a＞0所以(x-y)^2=m

移项,ax^2+bx=-c,同除以a,x^2+bx/a=-c/a配方,x^2+bx/a+b^2/4a^2=-c/a+b^2/4a^2整理：(x+b/2a)^2=(b^2-4ac)/4a^2当Δ=b^2

1楼的乱说.x^2=1/2x+65/18x^2-1/2x-65/18=0∵A=1,B=-1/2,C=-65/18∴b^2-4ac=(-1/2)^2-4*1*(-65/18)=529/9>0∴-b±√（

应该为ifb²-4ac>=0thenx1=负的2a分之b+根号下b²-4acx2=负的2a分之b-根号下b²-4acelse此二元一次方程无实数根endif如果要说明a不

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