VB计算S=1 1 2 1 4 1 7 第i项的值第i-1项的值

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

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

DimsAsDouble,aAsDoubleDimiAsLongs=0i=1DoWhilei再问：那应该怎么改啊？再答：已经给你改好了啊，对照你的代码和我的你没有发现不一样吗，

DimsAsIntegerDimxAsIntegerDimyAsIntegers=0x=1y=1While(x\y>10^-5)s=s+x\yx=x+1y=y+2Wend---------------

PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB

PrivateSubCommand1_Click()DimiAsLongDimaAsDoubleDimsAsDoubleDimstpAsIntegerstp=1i=1DoWhileTrueIf1/ia

s=0:n=5fori=1tons=s+inextiprints;i当退出循环时,i的值一定是6s=1+2+3+4+5=15

一次都运行不起来,编译错误.next后面的变量必须和循环计数器相同也就是next或nexti都可以,nexts不行如果是nexti那么第一次,i=1,s=1步长为3,所以第一次执行到nexti,i=i

    Dim s As Double, x As Single, t As&n

PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'

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

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd

猪要不我们合好吧

dimiasintegerdimsasdoubledimdxasdoubledimxasdoubleinputboxxdx=-xs=dxi=1whiledx>0.00001dx=(-1)^(i+1)*

PrivateSubCommand1_Click()Dimi,j,tDimsumsum=1Fori=2To10t=1Forj=1Toit=t*2Nextjsum=sum+tNextiPrintsumE

PrivateSubCommand1_Click()'10^(-4)=1/10000Fori=1To9999Step3a=1/iSum=Sum+aNextiPrintSumEndSu

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

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,s,result'm为分母变量,n为位置变量,s为数值变量,result为和的变量m=1:n=0: