文档介绍:答案:----------------------DimiAsIntegerDimjAsIntegerDimbAsBooleanS=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThens=s*iEndIfb=FalseNextPrints----------------------'题目:求1-1/2+1/3-1/4+……+1/99-1/100的值。答案:----------------------DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj----------------------'题目:S=1+1/4+1/9+1/16+1/25+…+1/100答案:----------------------DimiAsIntegers=0Fori=1To10s=s+1/(i^2)NextPrints----------------------'题目:求1+2+3+5+8+13+……前20项的和。答案:----------------------DimiAsIntegerDimj(1To20)AsIntegerFori=1To20Ifi<3Thenj(i)=iElsej(i)=j(i-1)+j(i-2)EndIfsum=sum+j(i)NextPrintsum----------------------'题目:求10!的值,并将结果输出到窗体上。答案:----------------------DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum----------------------'题目:已知sum=1-1/3!+1/5!-1/7!+1/9!,答案:----------------------DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei<=9p=p*i‘阶乘IfiMod2=1Then n=n+1 sum=sum+(-1)^(n-1)/pEndIfi=i+1LoopPrintsum----------------------或DimIAsIntegerDimnAsIntegerI=1p=1ForI=1To9p=p*IIfIMod2=1Thenn=n+1Sum=Sum+(-1)^(n-1)/pEndIfNextPrintSum----------------------'题目:求100以内偶数的和,并将结果输出在窗体上。'将结果存入变量SUM中'----------------------------------------------答案:----------------------DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum或者DimiAsIntegerFori=2To100Step2sum=sum+iNextPrintsum'----------------------------------------------'题目:s=20+21+22+…+263,求s的值,并将结果存储到