用vb编程求 pi=4(1-1 3 1 5-1 7 1 9.....) 求20项-搜答案-智慧作业帮

//#include#include#includeintmain(){longi;intsign=1;doublepi,pi_new;doubleeps=1e-5;pi_new=0;i=1;do{p

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

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

n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta

#include#includemain(void){intn,i;printf("请输入n的值\n");scanf("%d",&n);intsum1=1,sum2=2,sum;for(i=3;i

PrivateSubCommand1_Click()Dimi,sAsIntegerFori=1To100s=s-i*(-1)^iNextiPrintsEndSub这个很简单了你应该看得懂吧!

DimsAsSingleDimiAsIntegerFori=1To50s=s+i/(i+1)NextMsgBox"前50项和为"&s

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

这样的题目主要是利用Mod运算,能被13整除,n就加1,代码如下：PrivateSubCommand1_Click()Fori=1To9999IfiMod13=0Thenn=n+1EndIfNexti

这个程序就可以了,i

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

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

PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)

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()a=1Don=n+1m=2*n-1s=s+a*1/ma=-aLoopUntilAbs(1/m)pi=4*sPrint"pi="&piEndSu

mModn=rr=mModn

wkihh,.>=-===236544458kjim=+3.14-------------:[325544]

#includemain(){doublepi=0,i=1,j=1,x;do{x=j/i;j=-j;i+=2;pi+=x;}while(i

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton