VB编程用π 4=1-1 3 1 5-1 7 .....的公式求π的近似值
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/16 04:23:26
数学计算可以简化过程:因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法):DimsAsInteger=-(100/2)如果
1、循环前面加一条:pi=02、i=-1改为i=-1*i
PrivateSubCommand1_Click()Dimi,sAsIntegerFori=1To100s=s-i*(-1)^iNextiPrintsEndSub这个很简单了你应该看得懂吧!
DimsAsSingleDimiAsIntegerFori=1To50s=s+i/(i+1)NextMsgBox"前50项和为"&s
这样的题目主要是利用Mod运算,能被13整除,n就加1,代码如下:PrivateSubCommand1_Click()Fori=1To9999IfiMod13=0Thenn=n+1EndIfNexti
简单就是不会再问:....再答:不是不会是好久没做了差不多都忘了呵呵
无语第二个len(Text2.Text)=Len(Text2.Text)-1能赋值么?再问:那怎么改让Text1删一个字符text2也删一个再答:用函数(函数自己找,不多说)去掉他们值的最后一个字符,
for循环修改下fori=1to2n-1step2a=a+inexti
PrivateSubForm_Load()DimiAsInteger,nAsLongDimkAsLongi=1:n=1DoWhilei
你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu
privatesubcommand1-click()dimn%,y#,s&n=2:y=0:s=1dos=s*ny=y+1/sn=n+1loopuntil1/s
DimSAsDouble,IAsInteger,TAsIntegerT=1ForI=1To100S=S+T*1/(2*I-1)T=-TNextMsgBoxS*4你的问题应该还有一个条件,就是计算到什么
……t=1s=0Fori=1To10t=t*is=s+tNexti再问:这个要用什么下拉列表呢?再答:Textbox代码是在Botton中完成!
fori=1to98ifimod2thenm=m-1/ielsem=m+1/iendifnextmsgboxm
dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1
wkihh,.>=-===236544458kjim=+3.14-------------:[325544]
PrivateSubCommand1_Click()DimnAsDoublen=Val(InputBox("N="))Fori=1Tons=s+1/(n*(n+1))NextiMsgBox"所求的和为
PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu
Dimi,sAsIntegerFori=2To100step2s=s+iNexti
PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton