VB题库—程序设计

Lastrevisiondate:13December2020.VB题库—程序设计程序设计〖第1题〗『程序设计』(5分)(题号:148)'题目：(事件)单击窗体。'(响应)求10~20之间所有素数的乘积并输出在窗体上。'将结果存入变量L中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)----------------------〖第2题〗『程序设计』(5分)(题号:150)'题目：(事件)单击窗体。'(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。'将结果存入变量J中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj----------------------〖第3题〗『程序设计』(5分)(题号:131)'【程序设计】'题目：(事件)单击窗体。'(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，'结果输出在窗体上。'将结果存入变量S中答案：----------------------DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)----------------------〖第4题〗『程序设计』(5分)(题号:152)'【程序设计】'题目：(事件)双击窗体。'(响应)求1+2+3+5+8+13+……前20项的和，并将结'果在窗体上输出。将结果存入变量SUM中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerDimj(1To20)AsIntegerFori=1To20Ifi<3Thenj(i)=iElsej(i)=j(i-1)+j(i-2)EndIfsum=sum+j(i)NextPrintsum----------------------〖第5题〗『程序设计』(5分)(题号:157)'【程序设计】'题目：(事件)单击窗体。'(响应)求10!的值，并将结果输出到窗体上。'将结果存入变量SUM中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum----------------------〖第6题〗『程序设计』(5分)(题号:489)'题目：(事件)单击窗体。'(响应)已知sum=1-1/3!+1/5!-1/7!+1/9!,'请将sum结果值输出到窗体上。'使用dowhile...loop语句完成程序'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei<=10p=p*iIfiMod2=1Thenn=n+1sum=sum+(-1)^(n-1)/pEndIfi=i+1LoopPrintsum----------------------〖第7题〗『程序设计』(5分)(题号:154)'【程序设计】'题目：(事件)单击窗体。'(响应)求100以内偶数的和，并将结果输出在窗体上。'将结果存入变量SUM中'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum----------------------〖第8题〗『程序设计』(5分)(题号:134)'【程序设计】'题目：(事件)双击窗体。'(响应)s=20+21+22+…+263，求s的值，并将结果'存储到变量S中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegeri=20Whilei<=263s=s+ii=i+1WendPrint(CStr(s))----------------------〖第9题〗『程序设计』(5分)(题号:142)'【程序设计】'题目：(事件)单击窗体。'(响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，'并将结果输出到窗体上。'将结果存入变量M中'注意：请在指定的事件内编写代码。答案：----------------------Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint(CStr(m))〖第1题〗『程序设计』(5分)(题号:149)'【程序设计】'题目：(事件)单击窗体。'(响应)求1!+2!+3!+……+10!的值，并在窗体上输出。'结果存入变量L中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerDimsAsLongDimjAsIntegers=1Fori=1To10s=s*il=l+sNextPrintStr(l)----------------------〖第2题〗『程序设计』(5分)(题号:146)'【程序设计】'题目：(事件)单击窗体。'(响应)求50以内所有偶数的和，并在窗体上输出出来。'将结果存入变量S中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s))----------------------〖第3题〗『程序设计』(5分)(题号:140)'【程序设计】'题目：(事件)双击窗体。'(响应)编写代码功能如(图1)。'将结果存入变量S中'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegers=1Fori=1To10s=s*i*iNextPrint(CStr(s))----------------------〖第4题〗『程序设计』(5分)(题号:484)'【程序设计】'题目：(事件)单击窗体。'(响应)求从100到1000之间所有是3的倍数的数之'和，当和大于3000时，停止计算并输出和。请将结果输出到窗体上,并存入所给变量SUM中。使用for...next语'句完成程序'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegersum=0fori=100to1000ifimod3=0thensum=sum+iifsum>3000thenexitforendifendifi=i+1nextPrintsum----------------------〖第5题〗『程序设计』(5分)(题号:156)'【程序设计】'题目：(事件)双击窗体。'(响应)求3+6+9+12+15+18+……+300的和，并将结'果输出到窗体上。将结果存入变量SUM中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerFori=3To300IfiMod3=0Thensum=sum+iEndIfNextPrintsum----------------------〖第6题〗『程序设计』(5分)(题号:412)'【程序设计】'题目：(事件)单击窗体。'(响应)输出所有的三位数，它满足该数中有某两位'为相同的数，且该数是一个完全平方数。'求出所有这些数的和，并将结果存入变量SUM中。'注意：请在指定的事件内编写代码。答案：----------------------dimaasinteger,basintegerdimb3asinteger,b2asinteger,b1asintegerfora=10to31b=a*ab3=b\100b2=(b\10)mod10b1=bmod10ifb1=b2orb1=b3orb2=b3thena,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分)(题号:496)'【程序设计】'题目：(事件)单击窗体。'(响应)求1-100中为5或7的倍数的和。请将结果'输出到窗体上,并存入所给变量SUM中。'使用while...wend语句完成程序'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegeri=1Whilei<=100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfi=i+1WendPrintSum----------------------〖第9题〗『程序设计』(5分)(题号:500)'【程序设计】'题目：(事件)单击窗体。'(响应)输出一个如图所示的由数字组成的倒三角形'请将结果存入变量S中(要求利用msgbox函数'显示结果，使用for...next语句完成程序)'注意：请在指定的事件内编写代码。答案：----------------------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)'【程序设计】'题目：判断一个数是否是素数。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))IfmModi=0ThenPrime=False:ExitForNexti〖第3题〗『程序设计』(1分)(题号:473)'【程序设计】'题目：将一张面值为100元的人民币等值换成100张5元、'1元和0.5元的零钞，要求每种零钞不少于1张，'问有哪几种组合将组合数存入变量OUT中。'注意：请在指定的事件内编写代码。答案：----------------------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题〗『程序设计』(1分)(题号:469)'【程序设计】'题目：用迭代法求某个数的平方根。已知求平方根的迭代公式如图：'算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一'迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；'再以新值作为初值，即：x1→x0,重新按原来的方法求x1,重复这一过和'直到|x1-x0|<ε(某一给定的精度)。此时可将x1作为问题的解。'注意：请在指定的事件内编写代码。答案：----------------------Dimx0AsSingle,x1AsSinglex0=a/2'迭代初值x1=0.5*(x0+a/x0)Dox0=x1'为下一次迭代作准备x1=0.5*(x0+a/x0)LoopWhileAbs(x1-x0)>0.00001Fsqrt=x1----------------------〖第5题〗『程序设计』(1分)(题号:472)'【程序设计】'题目：统计字符串中的单词个数。'算法思路:'（1）从文本（字符串）的左边开始，取出一个字符；'设逻辑量WT 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示所取字符是否是单词内的字符，初值设为False'（2）若所取字符不是"空格"，"逗号"，"分号"或"感叹号"等单词'的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始，'让单词数Nw=Nw+1，让WT=True;'（3）若所取字符是"空格"，"逗号"，"分号"或"感叹号"等单词的分隔符，'则表示字符不是单词内字符，让WT=False;'(4)再依次取下一个字符，重得（2）(3)直到文本结束。'注意：请在指定的事件内编写代码。答案：----------------------DimnwAsInteger,nLAsIntegerDimiAsIntegerDimstrTAsStringDimWtAsBooleannw=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'注意：请在指定的事件内编写代码。答案：----------------------DimyAsDoubleDimiAsIntegery=1Fori=1Tomy=y+1/(2*i+1)Nextfun=y----------------------〖第7题〗『程序设计』(1分)(题号:479)'【程序设计】'题目：编写函数fun其功能是：根据整型形参m，计算'如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m'注意：请在指定的函数过程内编写代码。答案：----------------------DimyAsDoubleDimiAsIntegerFori=1Tomy=y+1/(2*i)Nextfun=y----------------------〖第8题〗『程序设计』(1分)(题号:470)'【程序设计】'题目：将一个十进制整数m转换成→r(2－16)进制字符串。'方法：将m不断除r取余数，直到商为零，以反序得到结果。'下面写出一转换函数，参数idec为十进制数，ibase为要转'换成数的基（如二进制的基是2，八进制的基是8等），'函数输出结果是字符串?'注意：请在指定的事件内编写代码。答案：----------------------DimstrDecR$,iDecR%strDecR=""DoWhileidec<>0iDecR=idecModibaseIfiDecR>=10ThenstrDecR=Chr$(65+iDecR-10)&strDecRElsestrDecR=iDecR&strDecREndIfidec=idec\ibaseLoopTrDec=strDecR----------------------〖第9题〗『程序设计』(1分)(题号:471)'【程序设计】--------------------------------'题目：对字符串进行加密处理。'加密过程:'将每个字母C加一序数K＝5，即c=chr(Asc(c)-5),'这时"Z"→"U"，"z"→"u"，"Y"→"T"…'当加序数后的字母小于"A"或"a"则c=Chr(Asc(c)-k+26)'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerDimstrpAsString,strTAsString,iAAsStringDimnlAsStringi=1:strp=""nl=Len(RTrim(strI))DoWhile(i<=nl)strT=Mid$(strI,i,1)'取第i个字符If(strT>="A"AndstrT<="Z")TheniA=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题〗『程序设计』(1分)(题号:483)'【程序设计】'题目：编写函数fun，函数的功能是：求1到m'之间的偶数之积。'注意：请在指定的函数过程内编写代码。答案：----------------------DimyAsDoubley=1DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNextfun=y----------------------〖第11题〗『程序设计』(1分)(题号:468)'【程序设计】--------------------------------'题目：求二维数组中最大元素及其所在的行和列'并将最大值存入变量Max中，将最大值的行位置存入'row中，列位置存入变量column中.'注意：请在指定的事件内编写代码。答案：----------------------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。'注意：请在指定的事件内编写代码。--------------------------------答案：----------------------DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n----------------------〖第13题〗『程序设计』(1分)(题号:476)'【程序设计】'题目：编写函数fun其功能是：根据整型形参m，'计算如下公式的值：y=1/2!＋1/4!＋...＋1/m!'(m是偶数)'注意：请在指定的事件内编写代码。答案：----------------------DimiAsInteger,jAsInteger,tAsIntegerfun=0Fori=2TomStep2t=1Forj=1Toit=t*jNextfun=fun+1/tNext----------------------〖第14题〗『程序设计』(1分)(题号:474)'【程序设计】'题目：：编写函数fun，函数的功能是：计算并输出给定'整数n的所有因子之和（不包括1与自身）。规定'n的值不大于1000?'例如：n的值为855时，应输出704。'注意：请在指定的事件内编写代码。答案：----------------------Dims,iAsIntegerFori=2Ton-1IfnModi=0Thens=s+iEndIfNextFun=s----------------------〖第15题〗『程序设计』(1分)(题号:464)'【程序设计】'题目：求两个数m,n的最大公约数p和最小公倍数q'注意：请在指定的事件内编写代码。答案：----------------------nm=n*mIfm0)m=nn=rr=mModnLoopp=nq=nm/n----------------------〖第16题〗『程序设计』(1分)(题号:467)'【程序设计】'题目：应用冒泡法对数组A按升序排列'基本思想：(将相邻两个数比较，小的调到前头)'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----------------------〖第17题〗『程序设计』(1分)(题号:477)'【程序设计】'题目：：编写函数fun其功能是:判断一个整数w的各位'数字平方之和能否被5整除,可以被5整除则返'回1,否则返回0'注意：请在指定的事件内编写代码。答案：----------------------DimkAsInteger,sAsIntegerDos=s+(wMod10)*(wMod10)w=Int(w/10)LoopWhilew<>0IfsMod5=0Thenk=1Elsek=0EndIffun=k----------------------〖第18题〗『程序设计』(1分)(题号:466)'【程序设计】'题目：应用选择法对数组A按升序排列'基本思想:'1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置；'2）除第1个数外，其余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〖第19题〗『程序设计』(1分)(题号:480)'【程序设计】'题目：编写函数fun其功能是：根据整型形参m，'计算如下公式的值:'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)'例如：若m=9，则应输出：1.168229'要求：函数中用到的中间变量必须声明为Single类型。'注意：请在指定的函数过程内编写代码。答案：----------------------DimyAsDoubleDimiAsIntegerFori=0Tomy=y+1/(i+5)NextFun=y〖第20题〗『程序设计』(1分)(题号:482)'【程序设计】'题目：编写函数fun，函数的功能是：求一个'四位数的各位数字的立方和--------------------------------'注意：请在指定的事件内编写代码。--------------------------------答案：----------------------DimdAsInteger,kAsInteger,sAsIntegerWhilen>0d=nMod10s=s+d*d*dn=n/10Wendfun=s〖第1题〗『程序设计』(5分)(题号:130)'【程序设计】'题目：(事件)单击窗体。'(响应)求200~300之间既能被3整除又能被7整除的数。'并求出所有数之和存入变量SUM中'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum〖第2题〗『程序设计』(5分)(题号:129)'【程序设计】'题目：(事件)单击窗体。'(响应)求出100以内所有素数的和，并将结果输出'到窗体上,并存入所给变量SUM中。'注意：请在指定的事件内编写代码。答案：----------------------DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBooleanb=FalseFori=2To100b=Falsej=CInt(Sqr(i))Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum〖第1题〗『程序改错』(5分)(题号:132)-------------------------------'【程序改错】'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程'fact实现'注意：不可增加或删除程序行，也不可以更改程序结构-------------------------------PrivateSubForm_Click()dimiasinteger,sasLong'**********FOUND**********Fori=2To8s=s+fact(i)NextiPrintsEndSub'**********FOUND**********PublicFunctionfact()dimtasLongdimiasintegert=1Fori=1Tont=t*iNextI'**********FOUND**********fact=iEndFunction答案：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/n〖第16题〗『程序设计』(1分)(题号:464)--------------------------------'【程序设计】--------------------------------'题目：求两个数m,n的最大公约数p和最小公倍数q'注意：请在指定的事件内编写代码。答案：----------------------nm=n*mIfm0)m=nn=rr=mModnLoopp=nq=nm/n----------------------