vb判断一元二次方程求是否有实数根

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

（1）使方程的两根互为相反数也就是说方程的两根和为0所以-4m/[2(1+m)]=0所以m=0此时方程变为2x^2-2=0方程的两个根为1-1（2）使方程的两根互为倒数也就是方程两根之积为1因此（-3

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

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

x^2-1-a^2=0判别式=0-4(-1-a^2)=4(a^2+1)a^2+1>=1>0所以判别式大于0所以有两个不同的跟x^2-1-a^2=0x^2=a^2+1x=±√(a^2+1)实际上有两个互

解题思路：一元两次方程的应用解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com/include/rea

MsgBox"请输入完整的数值,然后点击“开始计算”!"Text1.SetFocusText1.Text=""Text2.Text=""'清空用户名和密码等待重新输入Text3.Text=""Text

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)

ax²＋bx＋c＝0两根x1、x2(1)x1、x2同号,则x1x2＞0∴c/a＞0(2)x1、x2异号,则x1x2＜0∴c/a＜0

1错的可以根据f(x)=ax^2+bx+c的图像判断,当其开口向下且与x轴的两交点都大于1时,f(1)=a+b+c0开口向上,与x轴的两交点x1,x2从图像就可得出此题正确3方程x^2-2bx+x=m

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

解题思路：利用韦达定理计算解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com/include/read

解题思路：本题目主要考查一元二次方程根的判别式，以及方程两个根解题过程：

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

(1)经过整理化简后,符合ax2+bx+c=0(a≠0)的形式方程①从表面上看含有x2的项,但是二次项的系数是m-2,由于不能判断m-2是否为零,所以这个方程不能判定

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