vb 输入一元二次方程ax^2 bx c=0的系数
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/03 01:04:31
在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解privatesubcommand1_click()dimxasdouble,x1asdouble,x2asdouble,a1asd
答案是3/4希望采纳
正负根号-a/
4种1.a=2b=0c=-32.a=2b=-3c=03.a=-3b=0c=24.a=-3b=2c=0
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="
a,b非负,x²+2ax+b²=0有实根--->Δ=(2a)²-4b²≥0--->a≥b (1) 
自己看下书,试着写一下就好,太简单了再问:你妹,会了还问你?别把自己膨胀的信心践踏在别人身上再答:别误会,要是说过了我很抱歉,这个代码估计没人给你发,还是自己照着书写就可以实现,很快的再问:好吧,原谅
cleartext一元二次方程求解ax^2+bx+c=0endtextinput"请输入a的值:"toainput"请输入b的值:"tobinput"请输入c的值:"tocm=b*b-4*a*cifm
vb代码如下:PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea
前一个数表示b的值后一个表示a值000102031011121320212223共12种情况方程有实根△=4a^2-4b^2>=0a^2-b^2>=0a^2>=b^2ab都是不是负数所以a>=b后一个
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)
要求4b^2-4a^2>=0即b^2>=a^2由于此题目ab都大于0,因此变为b>=a(1)5/8(2)面积法3/8
应该为ifb²-4ac>=0thenx1=负的2a分之b+根号下b²-4acx2=负的2a分之b-根号下b²-4acelse此二元一次方程无实数根endif如果要说明a不
原方程可化简为:(x+a)^2=b^2所以x=±b-a
有错: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