VB题库—程序设计

《VB题库—程序设计》由会员分享，可在线阅读，更多相关《VB题库—程序设计（14页珍藏版）》请在装配图网上搜索。

1、程序设计第1题程序设计（5分）（题号：148）题目：（事件）单击窗体。（响应）求1020之间所有素数的乘积并输出在窗体上。将结果存入变量L中。注意：请在指定的事件内编写代码。答案：DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr（l）1第2题程序设计（5分）（题号:150）题目：（事件）单击窗体。（响应）求1-1/2+1/3-1/4+1/99-1/100的值。将结

2、果存入变量J中。注意：请在指定的事件内编写代码。答案：DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj1第3题程序设计（5分）（题号:131）【程序设计】将结果存入变量S中答案：题目：11（事件）单击窗体。（响应）已知S=1+1/4+1/9+1/16+1/25+1/100,结果输出在窗体上。DimiAsIntegers=0Fori=1To10s=s+1/(iAi)NextPrint(s)第4题程序设计（5分）（题号：152）【程序设计】题目：（事件）双击窗体。（响应）求1+2+

3、3+5+8+13+前20项的和，并将结果在窗体上输出。将结果存入变量SUM中。注意：请在指定的事件内编写代码。答案：DimiAsIntegerDimj（1To20）AsIntegerFori=1To20Ifi3Thenj（i）=iElsej（i）=j（i-1）+j（i-2）EndIfsum=sum+j（i）NextPrintsum第5题程序设计（5分）（题号:157）【程序设计】题目：（事件）单击窗体。（响应）求10!的值，并将结果输出到窗体上。将结果存入变量SUM中。注意：请在指定的事件内编写代码。答案：DimiAsIntegersum=1Fori=1To10sum=sum*iNextPri

4、ntsum1第6题程序设计（5分）（题号:489）题目：11（事件）单击窗体。（响应）已知sum=1-1/3!+1/5!-1/7!+1,请将sum结果值输出到窗体上。使用dowhile.loop语句完成程序注意：请在指定的事件内编写代码。答案：DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei=10p=p*iIfiMod2=1Thenn=n+1sum=sum+(-1)A(n-1)/pEndIfi=i+1LoopPrintsum第7题程序设计（5分）（题号:154）【程序设计】题目：（事件）单击窗体。（响应）求100以内偶数的和，并将结果输出在窗体上。将结果存入变量

5、SUM中注意：请在指定的事件内编写代码。答案：DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum第8题程序设计（5分）（题号:134）【程序设计】题目：（事件）双击窗体。（响应）s=20+21+22+263，求s的值，并将结果存储到变量S中。注意：请在指定的事件内编写代码。答案：DimiAsIntegeri=20Whilei3000thenexitforendifendifi=i+1nextPrintsum第5题程序设计（5分）（题号：156）【程序设计】题目：11（事件）双击窗体。（响应）求3+6+9+12+15+1

6、8+300的和，并将结杲输出到窗体上。将结杲存入变量SUM中。注意：请在指定的事件内编写代码。答案：DimiAsIntegerFori=3To300IfiMod3=0Thensum=sum+iEndIfNextPrintsum第6题程序设计（5分）（题号:412）【程序设计】题目：（事件）单击窗体。（响应）输出所有的三位数，它满足该数中有某两位为相同的数，且该数是一个完全平方数。求出所有这些数的和，并将结果存入变量SUM中。注意：请在指定的事件内编写代码。答案：dimaasinteger,basintegerdimb3asinteger,b2asinteger,b1asintegerfora=

7、10to31b=a*ab3=b100b2=（b10）mod10b1=bmod10ifb仁b2orb仁b3orb2=b3then?a,bsum=sum+bendifnextasum第7题程序设计（5分）（题号:487）【程序设计】题目：（事件）单击窗体。（响应）已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用dowhile.loop语句完成程序注意：请在指定的事件内编写代码。答案：DimiAsIntegeri=1p=1DoWhilei=9p=p*iIfiMod2=1Thens=s+1/pEndIfi=i+1LoopPrintssum=s第8题程序设计（5分）（题

8、号:496）【程序设计】题目：（事件）单击窗体。（响应）求1-100中为5或7的倍数的和。请将结果输出到窗体上，并存入所给变量SUM中。使用while.wend语句完成程序注意：请在指定的事件内编写代码。答案：DimiAsIntegeri=1Whilei=100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfi=i+1WendPrintSum第9题程序设计（5分）（题号:500）【程序设计】题目：（事件）单击窗体。（响应）输出一个如图所示的由数字组成的倒三角形请将结果存入变量S中（要求利用msgbox函数显示结果，使用for.next语句完成程序）注意：请在指定的事件内

9、编写代码。答案：DimtmpAsStringDimiAsInteger,jAsIntegertmp=Fori=10To1Step-1Forj=0Toi-1tmp=tmp&CStr（j）Nexttmp=tmp&vbCrLfNextMsgBoxtmps=tmp第1题程序设计（1分）（题号:478）【程序设计】题目：编写函数fun，其功能是：能计算从1开始到n的自然数中偶数的平方的和。注意：请在指定的函数过程内编写代码。答案：DimsumAsInteger,iAsIntegersum=0Fori=2TonStep2sum=sum+i*iNextfun=sum第2题程序设计（1分）（题号:465）【程

10、序设计】题目：判断一个数是否是素数。注意：请在指定的事件内编写代码。答案：DimiAsIntegerPrime=TrueFori=2ToInt（Sqr（m）IfmModi=0ThenPrime=False:ExitForNexti第3题程序设计（1分）（题号:473）【程序设计】题目：将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？将组合数存入变量OUT中。注意：请在指定的事件内编写代码。答案：DimnAsIntegerDimi%,j%,k%Print5?1?0.5?Fori=1To20Forj=1To100-ik=100-i-j

11、If5#*i+1#*j+0.5*k=100ThenPrinti,j,kn=n+1EndIfNextjNextiout=n第4题程序设计（1分）（题号:469）【程序设计】题目：用迭代法求某个数的平方根。已知求平方根的迭代公式如图：算法思想：对于一个问题的求解x,可由给定的一个初值x0，根据某一迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x;再以新值作为初值，即：x1Tx0,重新按原来的方法求x1,重复这一过和直到|X1-X0|0.00001Fsqrt=x1第5题程序设计（1分）（题号:472）【程序设计】题目：统计字符串中的单词个数。算法思路：（1）从文本（字符串）的左边开

12、始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False（2）若所取字符不是”空格”，”逗号”，”分号”或感叹号”等单词的分隔符，再判断WT是否为True,若WT不为True则表是新单词的开始,让单词数Nw=Nw+1，让WT=True;(3)若所取字符是”空格”，”逗号,分号”或憾叹号”等单词的分隔符,则表示字符不是单词内字符，让WT=False;(4)再依次取下一个字符，重得(2)(3)直到文本结束。注意：请在指定的事件内编写代码。答案：DimnwAsInteger,nLAsIntegerDimiAsIntegerDimstrTAsStringDimWtAsBoole

13、annw=0:Wt=FalsenL=Len(RTrim(strI)Fori=1TonLstrT=Mid$(strI,i,1)取第i个字符SelectCasestrTCase,”，”,”;”,”!Wt=FalseCaseElseIfNotWtThennw=nw+1Wt=TrueEndIfEndSelectNextiCountWord=nw第6题程序设计（1分）（题号:481）【程序设计】题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1+1/3+1/5+1/7+1/（2m+1）例如：若m=9，则应输出：2.133255注意：请在指定的事件内编写代码。答案：DimyAsDoub

14、leDimiAsIntegery=1Fori=1Tomy=y+1/(2*i+1)Nextfun=y1第7题程序设计（1分）（题号:479）【程序设计】题目：编写函数fun其功能是：根据整型形参m,计算如下公式的值：y=1/2+1/4+1/6+1/2m例如：若m=9，则应输出：1.41448412698413注意：请在指定的函数过程内编写代码。答案：DimyAsDoubleDimiAsIntegerFori=1Tomy=y+1/(2*i)Nextfun=y第8题程序设计（1分）（题号:470）【程序设计】题目：将一个十进制整数m转换成tr（216）进制字符串。方法：将m不断除r取余数，直到商为零

15、，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2,八进制的基是8等），函数输出结果是字符串？注意：请在指定的事件内编写代码。答案：DimstrDecR$,iDecR%strDecR=DoWhileidec0iDecR=idecModibaseIfiDecR=10ThenstrDecR=Chr$（65+iDecR-10）&strDecRElsestrDecR=iDecR&strDecREndIfidec=idecibaseLoopTrDec=strDecR1第9题程序设计（1分）（题号:471）【程序设计】题目：对字符串进行加密处理。加密

16、过程：将每个字母C加一序数K=5,即卩c=chr(Asc(c)-5),这时ZtU,ztu,YtT当加序数后的字母小于”A”或”a”则c=Chr(Asc(c)-k+26)注意：请在指定的事件内编写代码。答案：DimiAsIntegerDimstrpAsString,strTAsString,iAAsStringDimnlAsStringi=1:strp=nl=Len(RTrim(strI)DoWhile(i=AAndstrTAsc(Z)TheniA=iA-26strp=strp+Chr$(iA)ElseIf(strT=aAndstrTAsc(z)TheniA=iA-26strp=strp+Chr

17、$(iA)Elsestrp=strp+strTEndIfi=i+1LoopEnyStr=strp第10题程序设计（1分）（题号:483）【程序设计】题目：编写函数fun,函数的功能是：求1到m之间的偶数之积。注意：请在指定的函数过程内编写代码。答案：DimyAsDoubley=1DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNextfun=y1第11题程序设计(1分)(题号:468)【程序设计】题目：求二维数组中最大元素及其所在的行和列并将最大值存入变量Max中，将最大值的行位置存入row中，列位置存入变量column中.注意：请在指定的事件内编写代

18、码。答案：DimiAsInteger,jAsIntegermax=a(1,1):row=1:column=1Fori=1To2Forj=1To3Ifa(i,j)a(row,column)Thenmax=a(i,j)row=icolumn=jEndIfNextjNextiPrint最大元素是;maxPrint在第&row&行，”;第&column&列第12题程序设计（1分）（题号:475）【程序设计】题目：编写函数fun,函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。例如，若有5门课程的成绩是：92，76，69,58，88，则函数的值为76.6。注意：请在指定的事件内编写代码。答案

19、：DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n1第13题程序设计（1分）（题号:476）【程序设计】题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1+1/4!+.+1/m!（m是偶数）注意：请在指定的事件内编写代码。答案：DimiAsInteger,jAsInteger,tAsIntegerfun=0Fori=2TomStep2t=1Forj=1Toit=t*jNextfun=fun+1/tNext第14题程序设计（1分）（题号:474）【程序设计】题目：编写函数fun，函数的功能是：计算并输出给定整数n的所有

20、因子之和（不包括1与自身）。规定n的值不大于1000?例如：n的值为855时，应输出704。注意：请在指定的事件内编写代码。答案：Dims,iAsIntegerFori=2Ton-1IfnModi=0Thens=s+iEndIfNextFun=s第15题程序设计（1分）（题号:464）【程序设计】题目：求两个数m,n的最大公约数p和最小公倍数q注意：请在指定的事件内编写代码。答案：nm=n*mIfmnThent=m:m=n:n=tr=mModnDoWhile（r0）m=nn=rr=mModnLoopq=nm/n1第16题程序设计（1分）（题号:467）【程序设计】题目：应用冒泡法对数组A按升序

21、排列基本思想：(将相邻两个数比较，小的调到前头)1)有n个数(存放在数组a(n)中)，第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已”沉底”，放在最后一个位置，小数上升”浮起”；2)第二趟对余下的n-1个数(最大的数已”沉底”)按上法比较，经n-2次两两相邻比较后得次大的数；3)依次类推，n个数共进行n-1趟比较，在第j趟中要进行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第

22、17题程序设计(1分)(题号:477)【程序设计】题目：编写函数fun其功能是：判断一个整数w的各位数字平方之和能否被5整除，可以被5整除则返回1,否则返回0注意：请在指定的事件内编写代码。答案：DimkAsInteger,sAsIntegerDos=s+(wMod10)*(wMod10)w=Int(w/10)LoopWhilew0IfsMod5=0Thenk=1Elsek=0EndIffun=k第18题程序设计(1分)(题号:466)【程序设计】题目：应用选择法对数组A按升序排列基本思想：1)对有n个数的序列(存放在数组a(n)中)，从中选出最小的数，与第1个数交换位置；2)除第1个数外，其

23、余n-1个数中选最小的数，与第2个数交换位置；3)依次类推，选择了n-1次后，这个数列已按升序排列。注意：请在指定的事件内编写代码。答案：Dimi,j,imin,tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa(imin)a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti第佃题程序设计(1分)(题号:480)【程序设计】题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5)例如：若m=9，则应输出：1.16822

24、9要求：函数中用到的中间变量必须声明为Single类型。注意：请在指定的函数过程内编写代码。答案：DimyAsDoubleDimiAsIntegerFori=0Tomy=y+1/(i+5)NextFun=y第20题程序设计(1分)(题号:482)【程序设计】题目：编写函数fun,函数的功能是：求一个四位数的各位数字的立方和注意：请在指定的事件内编写代码。答案：DimdAsInteger,kAsInteger,sAsIntegerWhilen0d=nMod10s=s+d*d*dn=n/10Wendfun=s第1题程序设计（5分）（题号:130）【程序设计】题目：（事件）单击窗体。（响应）求200

25、300之间既能被3整除又能被7整除的数并求出所有数之和存入变量SUM中注意：请在指定的事件内编写代码。答案：DimiAsIntegerFori=201To300If（iMod3）=0）And（iMod7）=0）ThenPrint（CStr（i）sum=sum+iEndIfNextPrintsum第2题程序设计（5分）（题号:129）【程序设计】题目：（事件）单击窗体。（响应）求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中。注意：请在指定的事件内编写代码。答案：DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBooleanb=F

26、alseFori=2To100b=Falsej=Clnt(Sqr(i)Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum1第1题程序改错(5分)(题号:132)【程序改错】题目：求s=2!+4!+6!+8!,阶乘的计算用Function过程fact实现注意：不可增加或删除程序行，也不可以更改程序结构PrivateSubForm_Click()dimiasinteger,sasLongI*I*FOUND*Fori=2To8s=s+fact(i)NextiPrintsEndSubI*FOUND*P

27、ublicFunctionfact()dimtasLongdimiasintegert=1Fori=1TonNextIfact=iI*I*FOUND*EndFunction答案：1) .Fori=2To8Step22) .PublicFunctionfact(ByValnAsInteger)或PublicFunctionfact(nAsInteger)或PublicFunctionfact(n%)或PublicFunctionfact(n)或PublicFunctionfact(ByValn%)或PublicFunctionfact(ByValn)3) .fact=t【程序设计】题目：编写函数fun,函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。例如，若有5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。注意：请在指定的事件内编写代码。答案：DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n1第16题程序设计（1分）（题号:464）【程序设计】题目：求两个数m,n的最大公约数p和最小公倍数q注意：请在指定的事件内编写代码。答案：nm=n*mIfmnThent=m:m=n:n=tr=mModnDoWhile(r0)m=nn=rr=mModnLoopp=nq=nm/n