2012vb程序设计(附答案)

《2012vb程序设计(附答案)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB程序设计第一题题目：（事件）单击窗体（响应）求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=1NextPr

2、int(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中代码：DimiAsIntegerFori=1To100IfiMod2=0ThenSum=sum+iEndIfNextPrintsum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。代码：Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+

3、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+SumNextPri

4、ntSum第七题题目：（事件）双击窗体（响应）求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第九题题目：（事件）双击窗体（

5、响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。代码：DimsAsLongs=20Fors=21To263b=s+1Sum=Sum+bNextPrintSum第十题题目：（事件）单击窗体（响应）求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中代码：DimsumAsIntegerFori=1To100Forj=2Toi-1ExitForNextjNextiIfiModj=0ThenEndIfIfj-iThensum=sum+iEndIfPrintsum第十一题题

6、目：（事件）单击窗体（响应）编写程序求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=iThe

7、nl=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)

8、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=0Andi