计算一元二次方程的根的VB编程

假设存在,设此根是bb^2+2b+a=02b^2+ab+1=0ab^2+b+2=0相加(a+3)b^2+(a+3)b+(a+3)=0(a+3)(b^2+b+1)=0因为b^2+b+1=0无实数解所以a

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

#include#includeintmain(){doublea,b,c,disc,p,q,x1,x2;scanf("%lf%lf%lf",&a,&b,&c);disc=b*b-4*a*c;if(a

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox("PleaseEnterN:"))sum=

#include//elseif(disc>0){x1=(-b+sqrt(disc))/(2*a);x2=(-b-sqrt(disc))/(2*a);printf("hasdistinctrealro

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

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

自己带些数字进去就可以啦这样还可以练习自己解题的思路

/*结束程序请按“Ctrl+z”*/#include#includeintmain(){floata,b,c;doubled,x1,x2;printf("Enterthecoefficient

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

你只需要编程么?PrivateSubCommand1_Click()IfVal(Text1.Text)>0AndVal(Text2.Text)>0ThenLabel1.Caption="长方形的面积为

第二题：#includevoidmain(){inti,g,s,b;for(i=100;i

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

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

以下是画一元二次方程的图的代码：（假设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=","

Sub aa()'用9行数据做说明,看是不是你要的东西；Dim x As IntegerFor x = 2 To

#include <stdio.h> #include <math.h>void b1 () { floa

有错：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