VB编程,求方程a*x^2 b*x c=0的根
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/30 19:33:41
![VB编程,求方程a*x^2 b*x c=0的根](/uploads/image/f/855498-66-8.jpg?t=VB%E7%BC%96%E7%A8%8B%2C%E6%B1%82%E6%96%B9%E7%A8%8Ba%2Ax%5E2+b%2Ax+c%3D0%E7%9A%84%E6%A0%B9)
'自己理解一下PrivateSubCommand1_Click()Dima,b,c,x,pipi=3.1415926a=3:b=4:x=90c=Sqr(a^2+b^2+2*a*b*Cos(90*pi/
Dimn,x,r,sAsSinglen=2s=0DoWhilen再问:能说一下算法的思路吗?再答:首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例,判断是否能
是没有思路,还是不会编程?至少有一位数字是5用以下的子函数boolIsInclude5(intnum){while(num!=0){if(num%10==5)returntrue;num=num/10
简单就是不会再问:....再答:不是不会是好久没做了差不多都忘了呵呵
privatesubform_click()dima(2,2),b(2,2),c(2,2),i,jrandomizefori=0to2forj=0to2a(i,j)=int(rnd*10)pictur
for循环修改下fori=1to2n-1step2a=a+inexti
代码:Private Sub Command1_Click() Call max100End SubSub&nbs
DimminAsDouble,maxAsDoubleDimtmpAsDoublemin=1max=1.5tmp=0DoWhileTruetmp=((max+min)/2)^3-(max+min)/2-
...书上不是很清楚的写了么x=(-b±√(b²-4ac))/2a
PrivateSubCommand1_Click()Dimi,j,k,l,iABCD,iCDC,iABCAsIntegerDimsi,sj,sk,sl,sItemAsStringFori=0To9Fo
wkihh,.>=-===236544458kjim=+3.14-------------:[325544]
这是高次方程是没有解析解的,但可以用逼近法求解.关于这类题最经典的是二分法:问题\x05二分法解决方程求解问题利用二分法,求方程的实根,精确到两位小数.分析\x05二分法是一种典型的迭代问题,前面已经
很简单的~不过你问错地方了
用Sub过程实现:PrivateSubCommand1_Click()DimtAsLongs=0fac01,ts=s+tfac02,ts=s+tfac03,ts=s+tPrint"s=1!+2!+3!
已经传给你工程了,有问题留言.我们继续讨论.
有错:1)delta=b*b-4*a*c2)要判断a是否为0
PrivateSubCommand2_Click()Dima,b,ca=Text1.Textb=Text2.Textc=Text3.TextIfa-bcAnda+caThenMsgBox"该组数可构成