VB程序设计题库(全)

1VB程序设计练习题第一题、题目：（事件）单击窗体（响应）求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/3—1/4+….+1/99—1/100的值。将结果存入变量J中代码：DimjAsSingle2DimiAsSinglej=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~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中代码：DimlAsLongl=1Fori=10To20Forj=2Toi-1IfiModj=0ThenExitForEndIfNextjIfj=iThenl=l*iEndIfNextiPrintlNextPrints第十五题题目：（事件）单击窗体（响应）求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中。代码：DimsumAsIntegersum=0Fori=200To300IfiMod3=0AndiMod7=0Thensum=sum+iEndIfNextPrintsum第十七题题目：（事件）双击窗体（响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中代码：DimsAsIntegers=0t=1Fori=1To5t=i*tSum=sum+tNext3PrintSum第十八题题目：（事件）双击窗体（响应）求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。将结果存入变量SUM中代码：DimsumAsIntegersum=0Fori=3To300Step3sum=sum+iNextiPrintsum第十九题题目：（事件）单击窗体（响应）求10!的值，并将结果输出在窗体上。将结果存入变量SUM中代码：DimsumAsLongDimiAsIntegersum=1Fori=1To10sum=i*sumNextPrintsum第二十二题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。将结果存入变量S中代码：DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)第二十三题题目：（事件）单击窗体（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…..的前10项，并求其和。代码：Dimi,j,k,mAsIntegers=0i=2j=1Fork=1To10m=jPrint（CStr(i)）&“/”&CStr(j)j=ii=i+ms=s+i/jNext第二十四题题目：（事件）单击窗体（响应）一球从100米高度自由落下，每次落地返回。原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。代码：Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s))第二十七题题目：（事件）单击窗体。（响应）求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。并求出所有这样的数的和存入SUM中。代码：DimiAsIntegerDimjAsIntegerFori=1000To9999j=Val(Mid(Trim(Str(i)),2,2))Ifj^2=iThenPrinti,sum=sum+iEndIfNext第二十八题4题目：（事件）双击窗体（响应）把一元钞票换成一分、二分、和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量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第三十一题题目：（事件）单击窗体。（响应）生成一个一维数组（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)maxThenmax=a(i)EndIfIfa(i)minThenmin=a(i)EndIfs=s+a(i)Nextaver=Int(s/10)Print(CStr(max))Print(CStr(min))Print(CStr(aver))第三十二题题目：（事件）单击窗体。（响应）在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中。代码：Dimi,j,sAsIntegerFori=100To200Forj=2ToSqr(i)If(iModj)=0ThenPrint(CStr(i))sum=sum+iExitForEndIfNextNextPrintsum第三十八题题目：（事件）：单击窗体。（响应）：求1-1/2+1/3-1/4+…+1/99-1/100的值。将结果存入变量J中。代码：DimiAsIntegerFori=1To100NextIfiMod2=1Thenj=j+1/iElseEndIfIfiMod2=0Thenj=j-1/iEndIfPrintj第三十九题题目：（事件）：单击窗体。（响应）：求1+2+3+4+…+100的值，并把结果输出在窗体上。结果存入变量SUM中。代码：DimiAsIntegerFori=1To100Sum=Sum+iNext5PrintSum第四十题题目：（事件）：双击窗体。（响应）：求1+2+3+5+8+13+….的前20项和，并将结果在窗体上输出。将结果存入变量SUM中。代码：DimiAsIntegerDimj(1To20)AsIntegerFori=1To20Ifi3Thenj(i)=1Elsej(i)=j(i-1)+j(i-2)EndIfSum=Sum+j(i)NextPrintSum第四十三题题目：（事件）：双击窗体。（响应）：求1+5+10+15+…+500的和，并将结果输出在窗体上。将结果存入变量SUM中。代码：DimiAsIntegerFori=1To500IfiMod5=0ThenSum=Sum+iEndIfNextPrintSum第四十六题题目：（事件）：单击窗体。（响应）：求数列1+3+3+9+27+…前6项的和，并将结果输出在窗体上。将结果存入变量SUM中。代码：DimiAsIntegerDimj(1To6)AsIntegerFori=1To6Ifi3Thenj(i)=3^(i-1)Elsej(i)=j(i-1)*(i-2)EndIfSum=Sum+j(i)NextPrintSum