vb系数a,b,c用文本框从键盘上输入,方程的根用标签框输出

IfaIfaIfaIfaIfbIfbIfbIfcIfcIfd

楼上的调用API函数好麻烦!(我的可以计算小数.)试试我的代码：OptionExplicitPrivateSubForm_Load()Text1.Text="1+2*3"EndSubPrivateSu

你这样做太烦琐这样更简洁些：PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimzAsSingleDimx1AsSingl

a>=c

ax2+bx+c=0应该是：a^2+bx+c=0吧?x1=round((-b+sqr(b^2+4*a*c)),2)x2=round((-b-sqr(b^2+4*a*c)),2)

//先取出文本框的value分别乘1作为函数的参数返回afunctioncalculate(b,c,d){if(!b||!c)return'';vara=b*c;if(!d)returna;retur

a的平方除以b再加上c

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

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

创建一个VB工程,在窗体上放置一个文本输入框text1,一个标签Label1,三个按钮,名称分别为Command1“开始”Command2“暂停”Command3“退出”再加入一个定时器timer1,

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

PrivateSubForm_Load()DimxAsInteger,yAsInteger,zAsIntegerDimdiyigeAsIntegerDimdiergeAsString,disangeA

比如：Ifa>corb>cThen.endif如果A大于C,或者,B大于C,就怎么怎么样.如果是要A和B都大于C,就是楼上表达.

以下是核心算法：其中Text1,Text2,Text3是三个文本输入框,接受a,b,c三个系数.x1,x2为根DimaAsSingle,bAsSingle,cAsSingle,dAsSingle,ds

PrivateSubCommand1_Click()Dimi,j,k,l,iABCD,iCDC,iABCAsIntegerDimsi,sj,sk,sl,sItemAsStringFori=0To9Fo

dima%,b%,c%,d%a=val(inputbox("a"))b=val(inputbox("b"))ifa

那你直接用下拉列表框多方便呢,或者你非要这么做的话在text1_Change里面写验证ifNOT(text1="A++"ORtext1="A+"ORtext1="A")THENMSGBOX"请输入A或

PrivateSubCommand1_Click()Dimnum,iAsLongDima,b,cAsIntegerFornum=100To999a=numMod10b=(num\10)Mod10c=n

PrivateSubCommand1_Click()DimaAsDouble,bAsDouble,cAsDouble,yAsDoublea=5b=2.5c=7.8y=a*b*3.1415926/(a+

a=b=c的运算过程是这样的：先运算后面的b=c,这是b=c不是赋值,而是比较,比较c的值和b的值是否相同,如果相同,则返回true,否则返回false.在vb中true的值是-1,false的值为0