用vb编程求π的公式为 π 2=2*2 1*3
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/30 11:27:32
1、循环前面加一条:pi=02、i=-1改为i=-1*i
PrivateSubCommand1_Click()Dimn,jc,sumn=25jc=1sum=1Fori=1Tonjc=jc*isum=sum+1/jcNextisum=Format(sum,"0
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
PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"
简单就是不会再问:....再答:不是不会是好久没做了差不多都忘了呵呵
for循环修改下fori=1to2n-1step2a=a+inexti
PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)
PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction
你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu
DimaAsDoubleDimsAsDoubleDimeAsSingleDimtAsSinglea=1s=1e=1DoWhile1/s>=10^(-0.4)s=s*at=1/se=e+ta=a+1Lo
DimminAsDouble,maxAsDoubleDimtmpAsDoublemin=1max=1.5tmp=0DoWhileTruetmp=((max+min)/2)^3-(max+min)/2-
代码如下: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中完成!
mModn=rr=mModn
wkihh,.>=-===236544458kjim=+3.14-------------:[325544]
functionjiecheng(iasinteger)asdoubleforj=1toijiecheng*=inextendfunctiondime=0dimi=0doe+=1/jiecheng(i
DimNAsLongDimiAsLongN=Val(InputBox("请输入数字","输入数字"))Fori=1ToNs=s+i^2NextMsgBoxs再问:请输入数字填写什么啊。。小白不懂求大神
PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton