vb编程求π的公式π 2=

1、循环前面加一条：pi=02、i=-1改为i=-1*i

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

PrivateSubForm_Load()Fori=1To50n=1Forj=2Toin=n*jNexts=s+1/nNextMsgBoxsEndSu

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox("PleaseEnterN:"))sum=

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

for循环修改下fori=1to2n-1step2a=a+inexti

PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction

假设级数表达式为f(i),随i值的变化而减小,则可在循环时利用级数f(i)和f(i-1)的差值来与10^-6比较,当两次计算的结果满足dpp=Abs(dc)b=b*-1n=n+1mv=rad^(2*(

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

DimaAsDoubleDimsAsDoubleDimeAsSingleDimtAsSinglea=1s=1e=1DoWhile1/s>=10^(-0.4)s=s*at=1/se=e+ta=a+1Lo

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

代码如下:OptionExplicitPrivateSubCommand1_Click()MsgBoxP(2,2)EndSubFunctionP(ByValnAsInteger,ByValxAsDou

DimSAsDouble,IAsInteger,TAsIntegerT=1ForI=1To100S=S+T*1/(2*I-1)T=-TNextMsgBoxS*4你的问题应该还有一个条件,就是计算到什么

……t=1s=0Fori=1To10t=t*is=s+tNexti再问：这个要用什么下拉列表呢？再答：Textbox代码是在Botton中完成！

你只需要编程么?PrivateSubCommand1_Click()IfVal(Text1.Text)>0AndVal(Text2.Text)>0ThenLabel1.Caption="长方形的面积为

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

mModn=rr=mModn

这个就和我们平时判断三个数的大小一样,设：A,B,C三个数,按我们平时的大脑判断就是A大于B吗?如是,那么：A也大于C吗?A大于B吗?如不是,那么：B大于C吗?如果是,那么最大就是BA大于B吗?如不是

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

functionjiecheng(iasinteger)asdoubleforj=1toijiecheng*=inextendfunctiondime=0dimi=0doe+=1/jiecheng(i