VB程序設(shè)計(jì)題庫(kù)

1、程序設(shè)計(jì)第一題、題目：（事件）單擊窗體（響應(yīng)）求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出來(lái)將結(jié)果存入變量S中。代碼：DimIAsIntegerFori=2To50If（iMod2）=0ThenS=s+iEndIfNextPrint（CStr（s）第二題題目：（事件）雙擊窗體并將結(jié)果存入變量S中（響應(yīng)）求s=1+1*2+1*2*3+?.+1*2*3*?.*10代碼：Dimi,jAsIntegerDimkAsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint（CStr（s）第三題題目：（事件）單擊窗體（響應(yīng)）求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出

2、在窗體上。將結(jié)果存入變量SUM中代碼：DimiAsIntegerFori=1To100IfiMod2=0ThenSum=sum+iEndIfNextPrintsum第四題題目：（事件）單擊窗體的結(jié)果M中。（響應(yīng)）編寫(xiě)程序求10*11*12+11*12*13+?.+15*16*17并將結(jié)果輸出到窗體上。將結(jié)果存入變量代碼：Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint(CStr(m)第五題題目：(事件)雙擊窗體(響應(yīng))求100以內(nèi)奇數(shù)的和，并將結(jié)果輸出在窗體上將結(jié)果存入變量SUM中。代碼：Dimi

3、AsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum第六題題目：（事件）單擊窗體+1/100,（響應(yīng)）已知S=1+1/4+1/9+1/16+1/25+結(jié)果輸出在窗體上代碼：DimsAsSingleFori=1To10a=i*iSum=1/a+SumNextPrintSum第七題題目：（事件）雙擊窗體（響應(yīng)）求1+1*2+1*2*3+?.+1*2*3*?.*10,并將結(jié)果存到變量S中代碼：DimsAsLongj=1Fori=1To10j=j*iSum=Sum+jNextPrintSum第八題題目：（事件）單擊窗體（響應(yīng)）求11/2

4、+1/31/4+?.+1/99將結(jié)果存入變量J中代碼：DimjAsSingleDimiAsSinglej=0Fori=1To100k=（-1F（i+1）/ij=k+jNextiPrintj第九題題目：（事件）雙擊窗體（響應(yīng)）s=20+21+22+?+263,求s代碼：DimsAsLongs=20Fors=21To263b=s+1Sum=Sum+bNextPrintSum第十題1/100的值的值，并將結(jié)果存儲(chǔ)到變量S中題目：（事件）單擊窗體(響應(yīng))求出100以內(nèi)所有素?cái)?shù)的和，并將結(jié)果輸出到窗體上，并存入所給變量SUM中代碼：DimsumAsIntegerFori=1To100Forj=2Toi-

5、1ExitForNextjNextiIfiModj=0ThenEndIfIfj-iThensum=sum+iEndIfPrintsum第十一題題目：(事件)單擊窗體的結(jié)果M中。(響應(yīng))編寫(xiě)程序求10*11*12+11*12*13+?.+15*16*17并將結(jié)果輸出到窗體上。將結(jié)果存入變量代碼：DimmAsLongFori=1To6t=(i+9)*(i+10)*(i+11)m=m+tNextPrintm第十二題題目：（事件）單擊窗體（響應(yīng)）求1020之間所有素?cái)?shù)的乘積并輸出在窗體上將結(jié)果存入變量L中代碼：DimIAsLong1=1Fori=10To20Forj=2Toi-1IfiModj=0Th

6、enExitForEndIfNextjIfj=iThenl=l*iEndIfNextiPrintl第十三題題目：（事件）單擊窗體（響應(yīng)）求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出來(lái)。代碼：DimsAsIntegers=0Fori=2To50Step2s=s+iNextiPrints第十四題題目：(事件)單擊窗體(響應(yīng))在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8?.的前十項(xiàng)，并求其和。代碼：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第十五題題目：(事件)單擊窗體(響應(yīng))求200300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中。代碼：DimsumAsIntegersum=0Fori=200To300IfiMod3=0AndiMod7=0Thensum=sum+iEndIfNextPrintsum第十六題題目：(事件)雙擊窗體(響應(yīng))求出100200之間，能被5整除，但不能被3整除的數(shù)并求出所有數(shù)之和，存入變量SUM中代碼：DimsumAsIntegers

8、um=0Fori=100To200IfiMod5=0AndiMod3<>0Thensum=sum+iEndIfNextPrintsum第十七題題目：（事件）雙擊窗體并將結(jié)果輸出到窗體上（響應(yīng)）求1!+2!+3!+4!+5!結(jié)果存入變量S中代碼：DimsAsIntegers=0t=1Fori=1To5t=i*tSum=sum+tNextPrintSum第十八題題目：（事件）雙擊窗體（響應(yīng)）求3+6+9+12+15+18+?.+300的和，并將結(jié)果輸出到窗體上將結(jié)果存入變量SUM中代碼：DimsumAsIntegersum=0Fori=3To300Step3sum=sum+iNexti

9、Printsum第一種方法：當(dāng)step為2的時(shí)候：DimsAsIntegerDimiAsIntegerFori=2To50Step2s=s+iNextiPrints第十九題題目：（事件）單擊窗體（響應(yīng)）求10!的值，并將結(jié)果輸出在窗體上將結(jié)果存入變量SUM中代碼：DimsumAsLongDimiAsIntegersum=1Fori=1To10sum=i*sumNextPrintsum第二十題題目：(事件)單擊窗體(響應(yīng))求出100以內(nèi)所有素?cái)?shù)的和，并將結(jié)果輸出到窗體上，并存入所給變量SUM中代碼：DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBool

10、eanb=FalseFori=2To100b=Falsej=Clnt(Sqr(i)Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum第二-一題題目：(事件)單擊窗體(響應(yīng))求200300之間既能被3整除又能被7之和存入變量SUM中代碼：DimiAsIntegerFori=201To300If(iMod3)=0)And(iMod7)=0)ThenPrint(CStr(i)sum=sum+iEndIfNextPrintsum第二十二題題目：(事件)單擊窗體(響應(yīng))已知S=1+1/4+1/9+1/1

11、6+1/25+?+1/100將結(jié)果存入變量S中整除的數(shù)。并求出所有數(shù)，結(jié)果輸出在窗體上代碼：DimiAsIntegers=0Fori=1To10s=s+1/(iAi)NextPrint(s)第二十三題題目：(事件)單擊窗體，并求(響應(yīng))在窗體上打印數(shù)列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第二十四題題目：(事件)單擊窗體(響應(yīng))一球從100米高度自由落下，每次落地返回。原高度的一半，求

12、第10次落地時(shí)，共經(jīng)過(guò)多少米？并將結(jié)果在窗體上輸出。代碼：Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s)第二十五題題目：(事件)雙擊窗體(響應(yīng))s=20+21+22+?+263,求s的值，并將結(jié)果存儲(chǔ)到變量s中代碼：DimiAsIntegeri=20whilei<=263s=s+ii=i+1WendPrint(CStr(s)第二十六題精心整理學(xué)習(xí)幫手題目：（事件）雙擊窗體（響應(yīng)）求s=1+1*2+1*2*3+?+1*2*3*?*10,并將結(jié)果存到變量S中代碼：Dimi,jAsIntegerDimk

13、AsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint（CStr（s）第二十七題題目：（事件）單擊窗體。（響應(yīng)）求出1000-9999之間具有如下特點(diǎn)的四位數(shù)字，它的平方根恰好就是它中間的兩位數(shù)字，例如，2500開(kāi)平方為50，恰為2500的中間兩位，找出所有這樣的四位數(shù)。并求出所有這樣的數(shù)的和存入SUM中。代碼：DimiAsIntegerDimjAsIntegerFori=1000To9999j=Val(Mid(Trim(Str(i),2,2)IfjA2=iThenPrinti,sum=sum+iEndIfNext第二十八題題目：(事

14、件)雙擊窗體(響應(yīng))把一元鈔票換成一分、二分、和五分的硬幣(每種至少有一枚)求出其所有的換法，把結(jié)果輸出在窗體上。將所有的換法的數(shù)目存入變量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第二十九題題目：（事件）單擊窗體。（響應(yīng)）編寫(xiě)代碼功能如（圖DimiAsIntegerFori=1To10s=s+i*iNextPrint（CStr（s）第三十題題目：（事件）雙擊窗體。（

15、響應(yīng)）編寫(xiě)代碼功能如（圖1）。將結(jié)果存入變量S中1）。將結(jié)果存入變量S中DimiAsIntegers=1Fori=1To10s=si*iNextPrint(CStr(s)第三十題題目：(事件)雙擊窗體。(響應(yīng))求1!+2!+3!+4!+5!Dimi,j,k,sAsInteger并將結(jié)果輸出到窗體上，結(jié)果存入變量S中Fori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s)第三十題題目：(事件)雙擊窗體。(響應(yīng))編寫(xiě)程序求10*11*12+11*12*13+?+15*16*17的結(jié)果，并將結(jié)果輸出到窗體上。并將結(jié)果存入變量M中。Dimi,jAsInt

16、egerDimsAslongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint(CStr(s)第三十一題題目：（事件）單擊窗體。（響應(yīng)）生成一個(gè)一維數(shù)組（10個(gè)數(shù)組元素依次為：15、23、72、43、96、23、3、65、88、17），寫(xiě)程序求出這個(gè)數(shù)組中的最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量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題目：(事件)單擊窗體。(響應(yīng))在窗體上輸出100200之間的所有合數(shù)。求出所有數(shù)之和存入中。代碼：Dimi,j,sAsIntegerFori=100To200Forj=2ToSqr(i)If(iModj)=0ThenPrint(CStr(i)sum=sum+iExitForEndIfNextNextPrintsum第三十三題題目：(事件)

18、雙擊窗體。(響應(yīng))求出100200之間能被5整除，但不能被3整除的數(shù)。并求所有數(shù)之和，存入變量SUM中。代碼：DimiAsIntegerFori=100To200If(iMod5)=0)And(iMod3)v>0)ThenPrint(CStr(i)Sum=sum+iEndIfNext第三十四題題目：(事件)單擊窗體。(響應(yīng))求50以內(nèi)所有偶數(shù)之和，并在窗體上輸出來(lái)。中。代碼：DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s)第三十五題題目：(事件)雙擊窗體。(響應(yīng))求出50以內(nèi)所有奇數(shù)的和，將結(jié)果存入變量代碼

19、：DimiAsInteger將結(jié)果存入變量SSUM中。Fori=1To50IfiMod2=1ThenSum=sum+iEndIfNextPrintsum第三十六題題目：（事件）：?jiǎn)螕舸绑w。將結(jié)果存入變量（響應(yīng)）：求1020之間所有素?cái)?shù)的乘積并輸出在窗體上L中。代碼：DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr（l）第三十七題題目：（事件）：?jiǎn)螕舸绑w。（響應(yīng)）：

20、求1!+2!+3!+?+10!的值，并在窗體上輸出。結(jié)果存入變量L中。代碼：DimiAsIntegerDimsAsLongDimjAsIntegers=1b=FalseFori=1To10s=s*il=l+sNextPrintStr（l）第三十八題題目：（事件）：?jiǎn)螕舸绑w。（響應(yīng)）：求1-1/2+1/3-1/4+?+1/99-1/100的值。將結(jié)果存入變量J中代碼：DimiAsIntegerFori=1To100NextIfiMod2=1Thenj=j+1/iElseEndIfIfiMod2=0Thenj=j-1/iEndIfPrintj第三十九題題目：（事件）：?jiǎn)螕舸绑w。（響應(yīng)）：求1+2+

21、3+4+?+100的值，并把結(jié)果輸出在窗體上。結(jié)果存入變量SUM中。代碼：DimiAsIntegerFori=1To100Sum=Sum+iNextPrintSum第四十題題目：（事件）：雙擊窗體。（響應(yīng)）：求1+2+3+5+8+13+?.的前20項(xiàng)和，并將結(jié)果在窗體上輸出。將結(jié)果存入變量SUM中。代碼：DimiAsIntegerDimj(1To20)AsIntegerFori=1To20Ifi<3Thenj(i)=1Elsej(i)=j(i-1)+j(i-2)EndIfSum=Sum+j(i)NextPrintSum第四十一題題目：(事件)：雙擊窗體。將結(jié)果存入變量(響應(yīng))：求100以內(nèi)奇數(shù)的和，并將結(jié)果輸出在窗體上SUM中。代碼：DimiAsIntegerFori=1To100IfiMod2=1ThenSu