资源描述：
《湖南省计算机二级考试vb编程题目汇总》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、L一个数如果刚好与它的因子之和相等，则称完数。求5到100间的完数之和，结果：34Sum=0Forn=5To100s=0Fori=1Ton-1IfnModi=0Thens=s+iNextiIfs=nThenSum=Sum+nNextnPrintSumLijk+kji=1333,其中i,j,k的范围是0到9，求有几组（i,j,k)满足条件，结果：6c=0Fori=0To9Forj=0To9Fork=0To9Ifi*100+j*10+k+k*100+j*10+i=1333Thenc=c+1Nextk,j,iPrintcL宴会上共有1225次握手，每一位参加的人对其他的人都有同样的礼节，
2、那么与会人士有多少，结果：50人数握手数10213346n个人的握手数为：1+2+3+。。。+n-1=1225，解得n=50L司机开车时里程表读数为一回文数12321公里，开了2小时后里程表又是一个最小回文数，求司机的开车速度。结果：50下一个最小回文数肯定是12421，（12421-12321）/2=50n=12321Don=n+1a=n10000b=n1000Mod10c=(nMod100)10d=nMod10LoopWhilea<>dOrb<>cPrint(n-12321)/2L好啊好+真的好-------------------真的好啊如果是数字，求该四位数。结果：1
3、098Forh=1To9Fora=0To9Forz=1To9Ford=0To9Ifh*100+a*10+h+z*100+d*10+h=z*1000+d*100+h*10+aThenPrinth;a;hPrintz;d;hPrintz;d;h;aEndIfNextd,z,a,hL求500以内含500能被5或9整除的所有自然数的倒数之和?按四舍五入的方式精确到小数点后第二位1.48PrivateSubCommand1_Click()s=0Fori=1To500IfiMod5=0OriMod9=0Thens=s+1/iNextiPrintRound(s,2)EndSubL求S=1/2+2
4、/3+3/5+5/8的前30项的和（注：该级数从第二项开始，其分子是前一项的分母，'其分母是前一项的分子与分母的和）要求：按四舍五入的方式精确到小数后第二位结果：18.46PrivateSubCommand1_Click()fz=1:fm=2:s=fz/fmFori=2To30t=fz:fz=fm:fm=t+fz:s=s+fz/fmNextPrintRound(s,2)EndSubL当m的值为50时，计算：t=1-1/(2*2)-1/(3*3)-1/(m*m)四舍五入精确到小数点第四位结果：0.3749PrivateSubCommand1_Click()t=1Forn=2To50t
5、=t-1/(n*n)NextPrintRound(t,4)EndSubL求[1.50]之间所有整数能构成直角三角形的三边的组数。例如；3*3+4*4=5*5.它构成直角三角形，所以{3、4、5}为一组，但视{4、3、5}与{3、4、5}为同一组。结果：20PrivateSubCommand1_Click()n=0Fora=1To50Forb=1To50Forc=1To50Ifa^2+b^2=c^2Andb>aAndc>bThenn=n+1:Printa,b,cNextc,b,aPrintnEndSubL求[100.900]之间相差为12的素数对的对数,(难题)，结果：7Privat
6、eSubCommand1_Click()Dima(800)num=0Fori=100To900Ifisp(i)Thena(num)=i:num=num+1EndIfNextFori=1TonumIfa(i)-a(i-1)=12Thenn=n+1NextPrintnEndSubPublicFunctionisp(n)isp=TrueFori=2ToSqr(n)IfnModi=0Thenisp=FalseNextEndFunctionL求[200,300]之间的有奇数个不同因子的最大整数，（在计算因子个数时，包括1和该数本身）结果：289PrivateSubCommand1_Click
7、()Forn=300To200Step-1c=0Fori=1TonIfnModi=0Thenc=c+1NextiIfcMod2=1ThenPrintnNextnEndSubL求（200,300）有奇数个不同因子的最小整数。（在计算因子个数时，包括1和该数本身），结果：225Forn=200To300c=0Fori=1TonIfnModi=0Thenc=c+1NextiIfcMod2=1ThenPrintnNextnL求[1000,2000]范围内由小到大第100个索数
