VB題庫-程序設(shè)計

程

序

設(shè)

計〖第1題〗『程序設(shè)計』(5分)(題號:148)題目：(事件)單擊窗體。(響應(yīng))求10~20之間所有素數(shù)的乘積并輸出在窗體上。'將結(jié)果存入變量L中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)----------------------〖第2題〗『程序設(shè)計』(5分)(題號:150)題目：(事件)單擊窗體。'(響應(yīng))求1-1/2+1/3-1/4+'將結(jié)果存入變量J中。

+1/99-1/100

的值。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj----------------------〖第3題〗『程序設(shè)計』(5分)(題號:131)【程序設(shè)計】題目：(事件)單擊窗體。'(響應(yīng))已知S=1+1/4+1/9+1/16+1/25++1/100，'結(jié)果輸出在窗體上。將結(jié)果存入變量S中答案：----------------------DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)----------------------〖第4題〗『程序設(shè)計』(5分)(題號:152)【程序設(shè)計】題目：(事件)雙擊窗體。(響應(yīng))求1+2+3+5+8+13+前20項(xiàng)的和，并將結(jié)'果在窗體上輸出。將結(jié)果存入變量SUM中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerDimj(1To20)AsIntegerFori=1To20Ifi<3Thenj(i)=iElsej(i)=j(i-1)+j(i-2)EndIfsum=sum+j(i)NextPrintsum----------------------〖第5題〗『程序設(shè)計』(5分)(題號:157)【程序設(shè)計】題目：(事件)單擊窗體。(響應(yīng))求10!的值，并將結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum----------------------〖第6題〗『程序設(shè)計』(5分)(題號:489)題目：(事件)單擊窗體。(響應(yīng))已知sum=1-1/3!+1/5!-1/7!+1/9!,'請將sum結(jié)果值輸出到窗體上。'使用dowhile...loop語句完成程序注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei<=10p=p*iIfiMod2=1Thenn=n+1sum=sum+(-1)^(n-1)/pEndIfi=i+1LoopPrintsum----------------------〖第7題〗『程序設(shè)計』(5分)(題號:154)【程序設(shè)計】題目：(事件)單擊窗體。(響應(yīng))求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。'將結(jié)果存入變量SUM中注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum----------------------〖第8題〗『程序設(shè)計』(5分)(題號:134)【程序設(shè)計】題目：(事件)雙擊窗體。(響應(yīng))s=20+21+22++263，求s的值，并將結(jié)果'儲藏到變量S中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegeri=20Whilei<=263s=s+ii=i+1WendPrint(CStr(s))----------------------〖第9題〗『程序設(shè)計』(5分)(題號:142)【程序設(shè)計】題目：(事件)單擊窗體。'(響應(yīng))編寫程序求10×11×12+11×12×13++15×16×17的結(jié)果，'并將結(jié)果輸出到窗體上。'將結(jié)果存入變量M中注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint(CStr(m))〖第1題〗『程序設(shè)計』(5分)(題號:149)【程序設(shè)計】題目：(事件)單擊窗體。'(響應(yīng))求1!+2!+3!++10!的值，并在窗體上輸出。'結(jié)果存入變量L中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerDimsAsLongDimjAsIntegers=1Fori=1To10s=s*il=l+sNextPrintStr(l)----------------------〖第2題〗『程序設(shè)計』(5分)(題號:146)【程序設(shè)計】題目：(事件)單擊窗體。(響應(yīng))求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出出來。'將結(jié)果存入變量S中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s))----------------------〖第3題〗『程序設(shè)計』(5分)(題號:140)【程序設(shè)計】題目：(事件)雙擊窗體。'(響應(yīng))編寫代碼功能如(圖1)。'將結(jié)果存入變量S中注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegers=1Fori=1To10s=s*i*iNextPrint(CStr(s))----------------------〖第4題〗『程序設(shè)計』(5分)(題號:484)【程序設(shè)計】題目：(事件)單擊窗體。'(響應(yīng))求從100到1000之間所有是3的倍數(shù)的數(shù)之和，當(dāng)和大于3000時，停止計算并輸出和。請將結(jié)果輸出到窗體上,并存入所給變量SUM中。使用for...next語句完成程序注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegersum=0fori=100to1000ifimod3=0thensum=sum+iifsum>3000thenexitforendifendifi=i+1nextPrintsum----------------------〖第5題〗『程序設(shè)計』(5分)(題號:156)【程序設(shè)計】題目：(事件)雙擊窗體。(響應(yīng))求3+6+9+12+15+18++300的和，并將結(jié)'果輸出到窗體上。將結(jié)果存入變量SUM中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerFori=3To300IfiMod3=0Thensum=sum+iEndIfNextPrintsum----------------------〖第6題〗『程序設(shè)計』(5分)(題號:412)【程序設(shè)計】題目：(事件)單擊窗體。'(響應(yīng))輸出所有的三位數(shù)，它滿足該數(shù)中有某兩位'為相同的數(shù)，且該數(shù)是一個完好平方數(shù)。'求出所有這些數(shù)的和，并將結(jié)果存入變量

SUM中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------dimaasinteger,basintegerdimb3asinteger,b2asinteger,b1asintegerfora=10to31b=a*ab3=b\100b2=(b\10)mod10b1=bmod10ifb1=b2orb1=b3orb2=b3thena,bsum=sum+bendifnextasum----------------------〖第7題〗『程序設(shè)計』(5分)(題號:487)【程序設(shè)計】題目：(事件)單擊窗體。'(響應(yīng))已知s=1+1/3!+1/5!+1/7!+1/9!,請將'輸出到窗體上。使用dowhile...loop

s結(jié)果值語句完成程序注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegeri=1p=1DoWhilei<=9p=p*iIfiMod2=1Thens=s+1/pEndIfi=i+1LoopPrintssum=s〖第8題〗『程序設(shè)計』(5分)(題號:496)【程序設(shè)計】題目：(事件)單擊窗體。(響應(yīng))求1-100中為5或7的倍數(shù)的和。請將結(jié)果'輸出到窗體上,并存入所給變量SUM中。'使用while...wend語句完成程序注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegeri=1Whilei<=100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfi=i+1WendPrintSum----------------------〖第9題〗『程序設(shè)計』(5分)(題號:500)【程序設(shè)計】題目：(事件)單擊窗體。'(響應(yīng))輸出一個以下列圖的由數(shù)字組成的倒三角形'請將結(jié)果存入變量S中(要求利用msgbox函數(shù)'顯示結(jié)果，使用for...next語句完成程序)注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimtmpAsStringDimiAsInteger,jAsIntegertmp=""Fori=10To1Step-1Forj=0Toi-1tmp=tmp&CStr(j)Nexttmp=tmp&vbCrLfNextMsgBoxtmps=tmp〖第1題〗『程序設(shè)計』(1分)(題號:478)【程序設(shè)計】'題目：編寫函數(shù)fun，其功能是:能計算從1開始到n的自然數(shù)中偶數(shù)的平方的和。--------------------------------注意：請在指定的函數(shù)過程內(nèi)編寫代碼。--------------------------------答案：----------------------DimsumAsInteger,iAsIntegersum=0Fori=2TonStep2sum=sum+i*iNextfun=sum----------------------〖第2題〗『程序設(shè)計』(1分)(題號:465)【程序設(shè)計】題目：判斷一個數(shù)是否是素數(shù)。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))IfmModi=0ThenPrime=False:ExitForNexti〖第3題〗『程序設(shè)計』(1分)(題號:473)【程序設(shè)計】'題目：將一張面值為100元的人民幣等值換成100張5元、'1元和0.5元的零鈔，要求每種零鈔很多于1張，'問有哪幾種組合？將組合數(shù)存入變量OUT中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimnAsIntegerDimi%,j%,k%Print"510.5"Fori=1To20Forj=1To100-ik=100-i-jIf5#*i+1#*j+0.5*k=100ThenPrinti,j,kn=n+1EndIfNextjNextiout=n----------------------〖第4題〗『程序設(shè)計』(1分)(題號:469)【程序設(shè)計】'題目：用迭代法求某個數(shù)的平方根。已知求平方根的迭代公式如圖：'算法思想：對于一個問題的求解x，可由給定的一個初值x0，依照某一'迭代公式獲取一個新的值x1，這個新值x1比初值x0更湊近要求的值x；'再以新值作為初值，即：x1→x0,重新按原來的方法求x1,重復(fù)這一過和'直到|x1-x0|<ε(某一給定的精度)。此時可將x1作為問題的解。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------Dimx0AsSingle,x1AsSinglex0=a/2'迭代初值x1=0.5*(x0+a/x0)Dox0=x1'為下一次迭代作準(zhǔn)備x1=0.5*(x0+a/x0)LoopWhileAbs(x1-x0)>0.00001Fsqrt=x1----------------------〖第5題〗『程序設(shè)計』(1分)(題號:472)【程序設(shè)計】題目：統(tǒng)計字符串中的單詞個數(shù)。算法思路:（1）從文本（字符串）的左邊開始，取出一個字符；'設(shè)邏輯量WT表示所取字符是否是單詞內(nèi)的字符，初值設(shè)為False（2）若所取字符不是"空格"，"逗號"，"分號"或"惋惜號"等單詞的分開符，再判斷WT可否為True，若WT不為True則表是新單詞的開始，讓單詞數(shù)Nw=Nw+1，讓W(xué)T=True;（3）若所取字符是"空格"，"逗號"，"分號"或"惋惜號"等單詞的分開符，'則表示字符不是單詞內(nèi)字符，讓W(xué)T=False;'(4)再依次取下一個字符，重得（2）(3)直到文本結(jié)束。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimnwAsInteger,nLAsIntegerDimiAsIntegerDimstrTAsStringDimWtAsBooleannw=0:Wt=FalsenL=Len(RTrim(strI))Fori=1TonLstrT=Mid$(strI,i,1)'取第i個字符SelectCasestrTCase"",",",";","!"Wt=FalseCaseElseIfNotWtThennw=nw+1Wt=TrueEndIfEndSelectNextiCountWord=nw〖第6題〗『程序設(shè)計』(1分)(題號:481)【程序設(shè)計】'題目：編寫函數(shù)fun其功能是：依照整型形參m，計算以下公式的值:y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1)比方：若m=9，則應(yīng)輸出：2.133255注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimyAsDoubleDimiAsIntegery=1Fori=1Tomy=y+1/(2*i+1)Nextfun=y----------------------〖第7題〗『程序設(shè)計』(1分)(題號:479)【程序設(shè)計】'題目：編寫函數(shù)fun其功能是：依照整型形參m，計算以下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m注意：請在指定的函數(shù)過程內(nèi)編寫代碼。答案：----------------------DimyAsDoubleDimiAsIntegerFori=1Tomy=y+1/(2*i)Nextfun=y----------------------〖第8題〗『程序設(shè)計』(1分)(題號:470)【程序設(shè)計】題目：將一個十進(jìn)制整數(shù)m變換成→r(2－16)進(jìn)制字符串。方法：將m不斷除r取余數(shù)，直到商為零，以反序獲取結(jié)果。下面寫出一變換函數(shù)，參數(shù)idec為十進(jìn)制數(shù)，ibase為要轉(zhuǎn)'換成數(shù)的基（如二進(jìn)制的基是2，八進(jìn)制的基是8等），函數(shù)輸出結(jié)果是字符串注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimstrDecR$,iDecR%strDecR=""DoWhileidec<>0iDecR=idecModibaseIfiDecR>=10ThenstrDecR=Chr$(65+iDecR-10)&strDecRElsestrDecR=iDecR&strDecREndIfidec=idec\ibaseLoopTrDec=strDecR----------------------〖第9題〗『程序設(shè)計』(1分)(題號:471)【程序設(shè)計】--------------------------------題目：對字符串進(jìn)行加密辦理。加密過程:'將每個字母C加一序數(shù)K＝5，即c=chr(Asc(c)-5),這時"Z"→"U"，"z"→"u"，"Y"→"T"當(dāng)加序數(shù)后的字母小于"A"或"a"則c=Chr(Asc(c)-k+26)注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerDimstrpAsString,strTAsString,iAAsStringDimnlAsStringi=1:strp=""nl=Len(RTrim(strI))DoWhile(i<=nl)strT=Mid$(strI,i,1)'取第If(strT>="A"AndstrT<="Z")Then

i個字符iA=Asc(strT)+5IfiA>Asc("Z")TheniA=iA-26strp=strp+Chr$(iA)ElseIf(strT>="a"AndstrT<="z")TheniA=Asc(strT)+5IfiA>Asc("z")TheniA=iA-26strp=strp+Chr$(iA)Elsestrp=strp+strTEndIfi=i+1LoopEnyStr=strp----------------------〖第10題〗『程序設(shè)計』(1分)(題號:483)【程序設(shè)計】'題目：編寫函數(shù)fun，函數(shù)的功能是：求1到m之間的偶數(shù)之積。注意：請在指定的函數(shù)過程內(nèi)編寫代碼。答案：----------------------DimyAsDoubley=1DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNextfun=y----------------------〖第11題〗『程序設(shè)計』(1分)(題號:468)【程序設(shè)計】--------------------------------題目：求二維數(shù)組中最大元素及其所在的行和列'并將最大值存入變量Max中，將最大值的行地址存入'row中，列地址存入變量column中.注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsInteger,jAsIntegermax=a(1,1):row=1:column=1Fori=1To2Forj=1To3Ifa(i,j)>a(row,column)Thenmax=a(i,j)row=icolumn=jEndIfNextjNextiPrint"Print"

最大元素是";max在第"&row&"

行,";"

第"&column&"

列"----------------------〖第12題〗『程序設(shè)計』(1分)(題號:475)【程序設(shè)計】'題目：編寫函數(shù)fun，函數(shù)的功能是：計算n門課程的平均值，計算結(jié)果作為函數(shù)值返回。'比方，若有5門課程的成績是：92，76，69，'58，88，則函數(shù)的值為76.6。注意：請在指定的事件內(nèi)編寫代碼。--------------------------------答案：----------------------DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n----------------------〖第13題〗『程序設(shè)計』(1分)(題號:476)【程序設(shè)計】'題目：編寫函數(shù)fun其功能是：依照整型形參'計算以下公式的值：y=1/2!＋1/4!＋...'(m是偶數(shù))

m，＋1/m!注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsInteger,jAsInteger,tAsIntegerfun=0Fori=2TomStep2t=1Forj=1Toit=t*jNextfun=fun+1/tNext----------------------〖第14題〗『程序設(shè)計』(1分)(題號:474)【程序設(shè)計】題目：：編寫函數(shù)fun，函數(shù)的功能是：計算并輸出給定'整數(shù)n的所有因子之和（不包括'n的值不大于1000'比方：n的值為855時，應(yīng)輸出

1與自己）。規(guī)定704。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------Dims,iAsIntegerFori=2Ton-1IfnModi=0Thens=s+iEndIfNextFun=s----------------------〖第15題〗『程序設(shè)計』(1分)(題號:464)【程序設(shè)計】'題目：求兩個數(shù)m,n的最大合約數(shù)p和最小公倍數(shù)q注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------nm=n*mIfm<nThent=m:m=n:n=tr=mModnDoWhile(r<>0)m=nn=rr=mModnLoopp=nq=nm/n----------------------〖第16題〗『程序設(shè)計』(1分)(題號:467)【程序設(shè)計】'題目：應(yīng)用冒泡法對數(shù)組A按升序排列'基本思想：(將相鄰兩個數(shù)比較，小的調(diào)到前頭)'1）有n個數(shù)（存放在數(shù)組a(n)中），第一趟將每相鄰兩個數(shù)比較，小的調(diào)到前頭，經(jīng)n-1次兩兩相鄰比較后，最大的數(shù)已"沉底"，放在最后一個地址，小數(shù)上升"浮起"；2）第二趟對余下的n-1個數(shù)（最大的數(shù)已"沉底"）按上法比較，經(jīng)n-2次兩兩相鄰比較后得次大的數(shù)；'3）依次類推，

n個數(shù)共進(jìn)行

n-1

趟比較，在第

j趟中要進(jìn)行

n-j

次兩兩比較。答案：----------------------Dimi,j,tempAsIntegerFori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Thentemp=a(j):a(j)=a(j+1):a(j+1)=tempEndIfNextjNexti----------------------〖第17題〗『程序設(shè)計』(1分)(題號:477)【程序設(shè)計】'題目：：編寫函數(shù)fun其功能是:判斷一個整數(shù)'數(shù)字平方之和可否被5整除,可以被'回1,否則返回0

w的各位5整除則返注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimkAsInteger,sAsIntegerDos=s+(wMod10)*(wMod10)w=Int(w/10)LoopWhilew<>0IfsMod5=0Thenk=1Elsek=0EndIffun=k----------------------〖第18題〗『程序設(shè)計』(1分)(題號:466)【程序設(shè)計】'題目：應(yīng)用選擇法對數(shù)組A按升序排列基本思想:'1）對有n個數(shù)的序列（存放在數(shù)組a(n)中），從中選出最小的數(shù)，與第1個數(shù)交換地址；'2）除第1個數(shù)外，其余n-1個數(shù)中選最小的數(shù)，與第2個數(shù)交換地址；'3）依次類推，選擇了n-1次后，這個數(shù)列已按升序排列。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------Dimi,j,imin,tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa(imin)>a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti〖第19題〗『程序設(shè)計』(1分)(題號:480)【程序設(shè)計】'題目：編寫函數(shù)fun其功能是：依照整型形參'計算以下公式的值:

m，y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)'比方：若m=9，則應(yīng)輸出：1.168229'要求：函數(shù)中用到的中間變量必定聲明為Single種類。注意：請在指定的函數(shù)過程內(nèi)編寫代碼。答案：----------------------DimyAsDoubleDimiAsIntegerFori=0Tomy=y+1/(i+5)NextFun=y〖第20題〗『程序設(shè)計』(1分)(題號:482)【程序設(shè)計】題目：編寫函數(shù)fun，函數(shù)的功能是：求一個'四位數(shù)的各位數(shù)字的立方和--------------------------------注意：請在指定的事件內(nèi)編寫代碼。--------------------------------答案：----------------------DimdAsInteger,kAsInteger,sAsIntegerWhilen>0d=nMod10s=s+d*d*dn=n/10Wendfun=s〖第1題〗『程序設(shè)計』(5分)(題號:130)【程序設(shè)計】題目：(事件)單擊窗體。(響應(yīng))求200~300之間既能被3整除又能被7整除的數(shù)。'并求出所有數(shù)之和存入變量SUM中注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum〖第2題〗『程序設(shè)計』(5分)(題號:129)【程序設(shè)計】題目：(事件)單擊窗體。(響應(yīng))求出100以內(nèi)所有素數(shù)的和，并將結(jié)果輸出'到窗體上,并存入所給變量SUM中。注意：請在指定的事件內(nèi)編寫代碼。答案：----------------------DimiAsIntegerDi