VB设计求解一元二次方程的程序

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

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

double x1 = 0;//解1double x2 = 0;//解2Console.WriteLine("求 ax^

lf%错了,应该是%lf

查看链接http://wenku.baidu.com/link?url=uNerr_G11gI_WwHcUhl2mSHyhMMkD1AiTDlcuBl7vdk6Kt3u55bgOhFFeyafAp9m

#include#includevoidm(floata,floatb,floatc){\x09doublex1,x2;\x09x1=(-b+sqrt(b*b-4*a*c))/(2*a);\x09x2

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

设根是kk^2+ak+b=0k^2+bk+a=0相减得(a-b)k+b-a=0(a-b)k=a-b若a-b=0,则不论k是何值都成立和仅有一个公共根矛盾所以a-b不等于0所以k=(a-b)/(a-b)

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

ax^2+bx+c=0△=(b^2-4ac)x1=(-b+根号△)/2ax2=(-b-根号△)/2a

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

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=","

楼主没有详细说明用什么语言,什么界面...只说下大体思路通过求根公式x1=(-b+sqrt(b^2-4ac))/2ax2=(-b-sqrt(b^2-4ac))/2a再问：vb6.0

已经修改好了：#include<stdio.h>#include<math.h>main(){inta,b,c;floatn1,m,n2,d,x; scanf(&qu

选C,数学书里貌似有.

C++的代码：#include<iostream.h>#include<math.h>voidmain(void){doublea,b,c,d;charch('y');do{c