vb用公式=1-1 3 1 5-1 7求近似值

没有具体数据,无法测试,但主体可用如下方法：Dimp1AsDouble‘用于储存Φi-1的值Dimp2AsDouble’用于储存Φi-2的值PrivateSubForm_Click()DimiAsIn

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

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

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

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

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

这意思?ConstaAsLong=1Printa再问：需要加const?那不就变成了用户自定义类型了吗我记得我以前问过,怎么使用直接常量怎么用.他说直接输入常量名,就可以了.后来我试了真的可以,可是现

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

不好意思我好久没用vb了大概如下dimcassingledimxassinglex=inputbox("输入x")c=5*(x-32)/9printc\我以前把vb删了不能试你试试吧

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

条件不够吧?当求T(0,0,1)时,后面要用到：T(0,0,0)+R*(T(1,0,0)+T(-1,0,0)+T(0,1,0)+T(0,-1,0)-4T(0,0,0))下标还有负数,而且5个数,4个不

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

要求已知圆的半径R,内接多边形的边数n,则公式可以如下：ConstPI=3.141593s=n*R^2*Sin(2pi/n)/2

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

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

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

看不见公式