vb考及答案

Forj=2toi-l\rIfimodj=0then\rExitfor\rEndif\rNextj\rIfi=jthen\rS=s+i\rEndif\rNexti\rPrints\rPrintsum\r25.一球从100米高度自由下落,每次落地返回原高度的一半,求10次落地时共经过多少米\rDimj,iAsInteger\rS=0\rJ=100\rFori=2to10\rJ=j/2\rS=s+2*j\rNext\rS=100+s\rPrint(Cstr(s))\r26求1+2+5+8+13+…前20项的和。结果保存到SUM中\rDimIasinteger\rDimj(1to20)asinteger\rFori=lto20\rIfi<3then\rJ(i)=i\rElse\rJ(i)=j(i-l)+j(i-2)\rEndif\rSum=sum+j(i)\rNext\rPrintsum\r27s=20+21+22+…+263.求s的值。结果储存到S中\rDimIasinteger\r1=20\rWhilei<=263\rS=s+i\rI=i+1\rWend\rPrint(cstr(s))\r28求10到50之间的素数\r28.1编写一函数:functionsushu\rDimIasinteger\rFori=2tom-1\rIfmmodi=0thenexitfunction\rNext\rPrint\r28.2.在窗体的:\rDimaasinteger,basinteger\rDimIasinteger\ra=10\rb=50\rforI=atob\rCallSuShu(i)\rNext\r29编写函数sfun,sum=l+l/3+l/5+...l/(2m+l)\rDimIasinteger\rSum=0\rForI=0tom\rSum=sum+1/(2*i+l)\rNexti