由公式π 4=1-1 3 1 5 vb

PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值

公式:π/4=1-1/3+1/5-1/7+...求值n=0sn=0an=1dountilABS(an)

int是取整的意思.rnd()产生（0,1）的一个随机数.所以整句的意思就是对（0,1）随机产生的数加4在取证.但是你给的式子i只会等于4.ran一般要乘一个数,即你要求的随机函数的上限.如：要随机产

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

应该是Pi/4=1-1/3+1/5-1/7+…+（-1）^(n-1)/(2*n-1)吧,PrivateSubForm_Load()DimPiAsSingle,iAsLongForm1.AutoRedr

#include<stdio.h>main(){ longi,a=1,b=3; doublep=1,t=1,t1=0; while(t-t1>=1e-8

DimsAsInteger,nAsintegerDimtAssingle,piAssingles=1:t=1:n=1:pi=0DoWhileAbs(t)>0.0001pi=pi+tn=n+2s=-st

若要出现没有规律的数字,只要把这些数字添加到数组即可实现,参考代码如下：PrivateSubCommand1_Click()'循环变量DimiAsInteger'保存随机数DiminitNumAsIn

DimpiAsDoubleDimSAsDoubleDimiAsDoubleDimViAsDoublei=0S=0DoWhileTrueVi=1/(2*i+1)'第i项的值:1,1/3,1/5,1/7.

我帮你改了一下,你看看把再问：答案是接近3.14么、图上看不出来、貌似是3.19吗？能把程序复制发来么、我运行一下，多谢

不错的问题,在1楼得分析下,程序如下PrivateSubCommand1_Click()IfIsPrime(4321)ThenText1.Text=Text1.Text&"4321IsPrime!"&

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

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

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

主要代码如下：n＝inputbox("请输入数值")fori＝1tons＝i*(i＋1)*(i＋2)nexti望采纳,谢谢!再问：可以完整一点么？再答：dimsasdoubles=0n＝inputbo

PrivateSubCommand1_Click()a=Val(InputBox("a="))x=0:y=aDoWhileAbs(y-x)>=0.00001x=yy=(x+a/x)/2LoopPrin

PrivateSubCommand1_Click()a=1Don=n+1m=2*n-1s=s+a*1/ma=-aLoopUntilAbs(1/m)pi=4*sPrint"pi="&piEndSu

PrivateSubForm_Click()Dimi&,PI#Doi=i+1PI=PI+(-1)^(i-1)/(2*i-1)LoopUntil1/iPI=PI*4Print"π=";PIEndSu

这里有梅尔敦定理：如果一个物体的速度是均匀增加的,那么,该物体在某段时间内的平均速度就等于其初速度和末速度之和的一半,即v=(v0+vt)/2自由落体的初速度是O,所以平均速度=V/2所以h=1/2v

PrivateSubCommand1_Click()DimNAsDouble,PiAsDoublePi=2ForN=1To1000Pi=Pi*(2*N)^2/((2*N-1)*(2*N+1))IfN=