VB程序设计题库

1、程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来将结果存入变量S中。代码：DimIAsIntegerFori=2To50If（iMod2）=0ThenS=s+iEndIfNextPrint（CStr（s）第二题题目：（事件）双击窗体并将结果存入变量S中（响应）求s=1+1*2+1*2*3+?.+1*2*3*?.*10代码：Dimi,jAsIntegerDimkAsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint（CStr（s）第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出

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

3、AsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum第六题题目：（事件）单击窗体+1/100,（响应）已知S=1+1/4+1/9+1/16+1/25+结果输出在窗体上代码：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第八题题目：（事件）单击窗体（响应）求11/2

4、+1/31/4+?.+1/99将结果存入变量J中代码：DimjAsSingleDimiAsSinglej=0Fori=1To100k=（-1F（i+1）/ij=k+jNextiPrintj第九题题目：（事件）双击窗体（响应）s=20+21+22+?+263,求s代码：DimsAsLongs=20Fors=21To263b=s+1Sum=Sum+bNextPrintSum第十题1/100的值的值，并将结果存储到变量S中题目：（事件）单击窗体(响应)求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中代码：DimsumAsIntegerFori=1To100Forj=2Toi-

5、1ExitForNextjNextiIfiModj=0ThenEndIfIfj-iThensum=sum+iEndIfPrintsum第十一题题目：(事件)单击窗体的结果M中。(响应)编写程序求10*11*12+11*12*13+?.+15*16*17并将结果输出到窗体上。将结果存入变量代码：DimmAsLongFori=1To6t=(i+9)*(i+10)*(i+11)m=m+tNextPrintm第十二题题目：（事件）单击窗体（响应）求1020之间所有素数的乘积并输出在窗体上将结果存入变量L中代码：DimIAsLong1=1Fori=10To20Forj=2Toi-1IfiModj=0Th

6、enExitForEndIfNextjIfj=iThenl=l*iEndIfNextiPrintl第十三题题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。代码：DimsAsIntegers=0Fori=2To50Step2s=s+iNextiPrints第十四题题目：(事件)单击窗体(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8?.的前十项，并求其和。代码：DimsAsSingleDima()Dimb()Dimc()a=: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

7、=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第十五题题目：(事件)单击窗体(响应)求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中。代码：DimsumAsIntegersum=0Fori=200To300IfiMod3=0AndiMod7=0Thensum=sum+iEndIfNextPrintsum第十六题题目：(事件)双击窗体(响应)求出100200之间，能被5整除，但不能被3整除的数并求出所有数之和，存入变量SUM中代码：DimsumAsIntegers

8、um=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+iNexti

9、Printsum第一种方法：当step为2的时候：DimsAsIntegerDimiAsIntegerFori=2To50Step2s=s+iNextiPrints第十九题题目：（事件）单击窗体（响应）求10!的值，并将结果输出在窗体上将结果存入变量SUM中代码：DimsumAsLongDimiAsIntegersum=1Fori=1To10sum=i*sumNextPrintsum第二十题题目：(事件)单击窗体(响应)求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中代码：DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBool

10、eanb=FalseFori=2To100b=Falsej=Clnt(Sqr(i)Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum第二-一题题目：(事件)单击窗体(响应)求200300之间既能被3整除又能被7之和存入变量SUM中代码：DimiAsIntegerFori=201To300If(iMod3)=0)And(iMod7)=0)ThenPrint(CStr(i)sum=sum+iEndIfNextPrintsum第二十二题题目：(事件)单击窗体(响应)已知S=1+1/4+1/9+1/1

11、6+1/25+?+1/100将结果存入变量S中整除的数。并求出所有数，结果输出在窗体上代码：DimiAsIntegers=0Fori=1To10s=s+1/(iAi)NextPrint(s)第二十三题题目：(事件)单击窗体，并求(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8?.的前10其和。代码：Dimi,j,k,mAsIntegers=oi=2j=1Fork=1To10m=jPrint(CStr(i)&“/”&CStr(j)j=ii=i+ms=s+i/jNext第二十四题题目：(事件)单击窗体(响应)一球从100米高度自由落下，每次落地返回。原高度的一半，求

12、第10次落地时，共经过多少米？并将结果在窗体上输出。代码：Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s)第二十五题题目：(事件)双击窗体(响应)s=20+21+22+?+263,求s的值，并将结果存储到变量s中代码：DimiAsIntegeri=20whilei<=263s=s+ii=i+1WendPrint(CStr(s)第二十六题精心整理学习帮手题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+?+1*2*3*?*10,并将结果存到变量S中代码：Dimi,jAsIntegerDimk

13、AsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint（CStr（s）第二十七题题目：（事件）单击窗体。（响应）求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。并求出所有这样的数的和存入SUM中。代码：DimiAsIntegerDimjAsIntegerFori=1000To9999j=Val(Mid(Trim(Str(i),2,2)IfjA2=iThenPrinti,sum=sum+iEndIfNext第二十八题题目：(事

14、件)双击窗体(响应)把一元钞票换成一分、二分、和五分的硬币(每种至少有一枚)求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中代码：Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If(i+2*j+k*5)=100)ThenPrint(CStr(i)Print(CStr(j)Print(CStr(k)n=n+1EndIfNextNextNext第二十九题题目：（事件）单击窗体。（响应）编写代码功能如（图DimiAsIntegerFori=1To10s=s+i*iNextPrint（CStr（s）第三十题题目：（事件）双击窗体。（

15、响应）编写代码功能如（图1）。将结果存入变量S中1）。将结果存入变量S中DimiAsIntegers=1Fori=1To10s=si*iNextPrint(CStr(s)第三十题题目：(事件)双击窗体。(响应)求1!+2!+3!+4!+5!Dimi,j,k,sAsInteger并将结果输出到窗体上，结果存入变量S中Fori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s)第三十题题目：(事件)双击窗体。(响应)编写程序求10*11*12+11*12*13+?+15*16*17的结果，并将结果输出到窗体上。并将结果存入变量M中。Dimi,jAsInt

16、egerDimsAslongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint(CStr(s)第三十一题题目：（事件）单击窗体。（响应）生成一个一维数组（10个数组元素依次为：15、23、72、43、96、23、3、65、88、17），写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中。DimaDimi,sAsIntegera=array(15,23,72,43,96,23,3,65,88,17)Max=a(0)Min=a(0)s=0Fori=0to90Ifa(i)>m

17、axThenmax=a(i)EndIfIfa(i)<minThenmin=a(i)EndIfs=s+a(i)Nextaver=lnt(s/10)Print(CStr(max)Print(CStr(min)Print(CStr(aver)第三十二题SUM题目：(事件)单击窗体。(响应)在窗体上输出100200之间的所有合数。求出所有数之和存入中。代码：Dimi,j,sAsIntegerFori=100To200Forj=2ToSqr(i)If(iModj)=0ThenPrint(CStr(i)sum=sum+iExitForEndIfNextNextPrintsum第三十三题题目：(事件)

18、双击窗体。(响应)求出100200之间能被5整除，但不能被3整除的数。并求所有数之和，存入变量SUM中。代码：DimiAsIntegerFori=100To200If(iMod5)=0)And(iMod3)v>0)ThenPrint(CStr(i)Sum=sum+iEndIfNext第三十四题题目：(事件)单击窗体。(响应)求50以内所有偶数之和，并在窗体上输出来。中。代码：DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s)第三十五题题目：(事件)双击窗体。(响应)求出50以内所有奇数的和，将结果存入变量代码

19、：DimiAsInteger将结果存入变量SSUM中。Fori=1To50IfiMod2=1ThenSum=sum+iEndIfNextPrintsum第三十六题题目：（事件）：单击窗体。将结果存入变量（响应）：求1020之间所有素数的乘积并输出在窗体上L中。代码：DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr（l）第三十七题题目：（事件）：单击窗体。（响应）：

20、求1!+2!+3!+?+10!的值，并在窗体上输出。结果存入变量L中。代码：DimiAsIntegerDimsAsLongDimjAsIntegers=1b=FalseFori=1To10s=s*il=l+sNextPrintStr（l）第三十八题题目：（事件）：单击窗体。（响应）：求1-1/2+1/3-1/4+?+1/99-1/100的值。将结果存入变量J中代码：DimiAsIntegerFori=1To100NextIfiMod2=1Thenj=j+1/iElseEndIfIfiMod2=0Thenj=j-1/iEndIfPrintj第三十九题题目：（事件）：单击窗体。（响应）：求1+2+

21、3+4+?+100的值，并把结果输出在窗体上。结果存入变量SUM中。代码：DimiAsIntegerFori=1To100Sum=Sum+iNextPrintSum第四十题题目：（事件）：双击窗体。（响应）：求1+2+3+5+8+13+?.的前20项和，并将结果在窗体上输出。将结果存入变量SUM中。代码：DimiAsIntegerDimj(1To20)AsIntegerFori=1To20Ifi<3Thenj(i)=1Elsej(i)=j(i-1)+j(i-2)EndIfSum=Sum+j(i)NextPrintSum第四十一题题目：(事件)：双击窗体。将结果存入变量(响应)：求100以内奇数的和，并将结果输出在窗体上SUM中。代码：DimiAsIntegerFori=1To100IfiMod2=1ThenSu