VB题库程序设计

《VB题库程序设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、'题目：求10~20之间所有素数的乘积并输出在窗体上答案：----------------------DimiAsIntegerDimjAsIntegerDimbAsBooleanS=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThens=s*iEndIfb=FalseNextPrints----------------------'题目：求1-1/2+1/3-1/4+……+1/99-1/100的值。答案：----------------------DimiAsIn

2、tegerFori=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项的和。答案：----------------------Dimi

3、AsIntegerDimj(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!,答案：

4、----------------------DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei<=9p=p*i‘阶乘IfiMod2=1Thenn=n+1sum=sum+(-1)^(n-1)/pEndIfi=i+1LoopPrintsum----------------------或DimIAsIntegerDimnAsIntegerI=1p=1ForI=1To9p=p*IIfIMod2=1Thenn=n+1Sum=Sum+(-1)^(n-1)/pEndIfNextPrintSum----------------------'

5、题目：求100以内偶数的和，并将结果输出在窗体上。'将结果存入变量SUM中'----------------------------------------------答案：----------------------DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum或者DimiAsIntegerFori=2To100Step2sum=sum+iNextPrintsum'----------------------------------------------'题目：s=20+

6、21+22+…+263，求s的值，并将结果存储到变量S中。'----------------------------------------------答案：----------------------DimiAsIntegeri=20DoWhilei<=263s=s+ii=i+1LoopPrints----------------------或者DimiAsIntegerFori=20To263s=s+iNextPrints'----------------------------------------------'题目：求10×11×12+11×1

7、2×13+…+15×16×17的结果，并将结果输出到窗体上。将结果存入变量M中'----------------------------------------------答案：----------------------DimiAsIntegerDimjAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrintm'----------------------------------------------或者是DimiAsIntegerDimjAsIntegerDimsAsLo

8、ngFori=10To15s=s+i*(i+1)*(i+2)NextPrints