程序设计 求50以内所有偶数的和，并在窗体上输出来VIP免费

程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。将结果存入变量S中。代码：DimIAsIntegerFori=2To50If(iMod2)=0ThenS=s+iEndIfNextPrint(CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dimi,jAsIntegerDimkAsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中代码：DimiAsIntegerFori=1To100IfiMod2=0ThenSum=sum+iEndIfNextPrintsum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。代码：Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint(CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中。代码：DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：DimsAsSingleFori=1To10a=i*iSum=1/a+SumNextPrintSum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+….+1*2*3*….*10,并将结果存到变量S中代码：DimsAsLongj=1Fori=1To10j=j*iSum=Sum+jNextPrintSum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。将结果存入变量J中代码：DimjAsSingleDimiAsSinglej=0Fori=1To100k=(-1)^(i+1)/ij=k+jNextiPrintj第九题题目：（事件）双击窗体（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。代码：DimsAsLongs=20Fors=21To263b=s+1Sum=Sum+bNextPrintSum第十题题目：（事件）单击窗体（响应）求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中代码：DimsumAsIntegerFori=1To100Forj=2Toi-1ExitForNextjNextiIfiModj=0ThenEndIfIfj-iThensum=sum+iEndIfPrintsum第十一题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。代码：DimmAsLongFori=1To6t=(i+9)*(i+10)*(i+11)m=m+tNextPrintm第十二题题目：（事件）单击窗体（响应）求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中代码：DimlAsLongl=1Fori=10To20Forj=2Toi-1IfiModj=0ThenExitForEndIfNextjIfj=iThenl=l*iEndIfNextiPrintl第十三题题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。代码：DimsAsIntegers=0Fori=2To50Step2s=s+iNextiPrints第十四题题目：（事件）单击窗体（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…….的前十项，并求其和。代码：DimsAsSingleDima()Dimb()Dimc()a(1)=2b(1)=1c(1)=a(1)/b(1)a(2)=3a(2)=2a(2)=a(2)/b(2)s=s+c(1)+c(2)Fori=3To10a(i)=a(i-1)+a(i-2)b(i)=b(i-1)+b(i-2)c(i)=a(i)/b(i)s=s+c(i)NextPrints第十五题题目：（事件）单击窗体（响应）求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中。代码：DimsumAsIntegersum=0Fori=200To300IfiMod3=0AndiMod7=0Thensum=sum+iEndIfNextPrintsum第十六题题目：（事件）双击窗体（响应）求出100~200之间，能被5整除，但不能被3整除的数。并求出所有数之和，存入变量SUM中代码：DimsumAsIntegersum=0Fori=100To200IfiMod5=0AndiMod3<>0Thensum=sum+iEndIfNextPrintsum第十七题题目：（事件）双击窗体（响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中代码：DimsAsIntegers=0t=1Fori=1To5t=i*tSum=sum+tNextPrintSum第十八题题目：（事件）双击窗体（响应）求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。将结果存入变量SUM中代码：DimsumAsIntegersum=0Fori=3To300Step3sum=sum+iNextiPrintsum第二种方法：当step为2的时候：DimsAsIntegerDimiAsIntegerFori=2To50Step2s=s+iNextiPrints第十九题题目：（事件...