NET程序题.docx
《NET程序题.docx》由会员分享，可在线阅读，更多相关《NET程序题.docx（189页珍藏版）》请在冰豆网上搜索。
NET程序题
程序题
窗体顶端
序号
题目
程序
答案
1
程序功能：
求s=1+3+5+7+...直到s>2000为止。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimiAsInteger,sAsLongs=0i=1DoUntils<2000s=s+ii=i+1LoopPrintsEndSub
2025
2
程序功能：
求s=1+3+5+7+...直到s>3000为止。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimiAsInteger,sAsLongs=0i=1DoUntils<3000s=s+ii=i+1LoopPrintsEndSub
3025
3
程序功能：
计算s=2!
+4!
+8!
。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2*it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub
40346
4
程序功能：
计算s=2!
+4!
+6!
+8!
。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2^it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub
41066
5
程序功能：
求200到400间，能被３整除但不能被７整除的数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=400IfxMod3=0OrxMod7<>0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub
57
6
程序功能：
求200到500间，能被13整除但不能被17整除的数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=500IfxMod13=0OrxMod17<>0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub
21
7
程序功能：
求1到400间，同时能被3和7整除的数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimcountAsIntegerDimxAsIntegerForx=1To400ifmod（x,3）=0andmod（x,7）=0thencount=count+1endifNextcountprintcountEndSub
19
8
程序功能：
求1到500间，同时能被5和9整除的数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegerForx=1To500ifmod（x,5）=0andmod（x,9）=0thencount=count+1endifNextcountprintcountEndSub
11
9
程序功能：
求能被3整除且至少有一位数字为5的三位数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100DoWhilex<=999IfxMod3=0Thena=Int（x/100）b=Int（（x-a*100）/10）c=x-a*100-b*10Ifa=5Andb=5Andc=5Thencount=count+1EndIfEndIfx=x+1WendPrintcountEndSub
85
10
程序功能：
求能被7整除且至少有一位数字为9的三位数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100DoWhilex<=999IfxMod7<>0Thena=Int（x/100）b=Int（（x-a*100）/10）c=x-a*100-b*10Ifa=9andb=9Andc=9Thencount=count+1EndIfEndIfx=x+1LoopPrintcountEndSub
36
11
程序功能：
求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegercount=0x=100Whilex<=999a=Int（x/100）b=Int（x/10）-a*10c=x-a*100-b*10ifmod（x,2）=0ORmod（b+c,10）=athencount=count+1EndIfx=x+1LoopPrintcountEndSub
45
12
程序功能：
求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegercount=0x=100Whilex<=999a=Int（x/100）b=Int（x/10）-a*10c=x-a*100-b*10ifxmod2=0Orb+cmod10=athencount=count+1EndIfx=x+1LoopPrintcountEndSub
45
13
程序功能：
求平方和小于2000的最大自然数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimxAsIntegerDimsAsIntegers=0x=0DoWhiles>=2000x=x+2s=s+x*xloopPrintxEndSub
18
14
程序功能：
求1～100中,两个不同的数之和能被3或7整除的“数对”的对数（注意:
3+5和5+3认为是同一“数对”）？
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimnAsInteger,iAsIntegern=0i=1DoWhilei<=100J=1DoWhileJ<=100IFMOD（I+J,3）<>0ORMOD（I+J,7）=0thenn=n+1EndIfJ=J+1Loopi=i-1LoopPrintn/2EndSub
2121
15
程序功能：
解百马百瓦古题。
大、小马和马驹共100匹，共驮100片瓦。
大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?
程序中有三行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimxAsInteger,yAsInteger,zAsIntegerDimsAsIntegers=0Forx=1To33Fory=1To50z=100-x-yIf3*x+2*y+z/2<>100Thens=s+1EndIfNextxNextyPrintsEndSub
6
16
程序功能：
解百马百瓦古题。
大、小马和马驹共100匹，共驮100片瓦。
大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?
程序中有一行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）s=0dm=1DoWhiledm<=100/3xm=1DoWhilexm<=100/2-dmmj=100-dm-xmIfdm+xm+mj=100Thens=s+1EndIfxm=xm+1Loopdm=dm+1LoopPrintsEndSub
6
17
程序功能：
求100-200之间的所有素数个数，程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）Number=0Forx=101To199Step2i=2k=Int（x/2）DoWhilei<=kIfxModi=0ThenExitFori=i+1LoopIfi21
18
程序功能：
sum=d+dd+ddd+……+ddd..d（d为1-9的数字）。
例如：
3+33+333+3333（此时d=3,n=4）。
从键盘上输入d的值为8，n的值为9，求sum的值。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimdAsInteger,nAsInteger,iAsIntegerDimsumAsLongsum=0d=Val（InputBox（"请输入数值d:
"））n=Val（InputBox（"请输入数值n:
"））Fori=1Tontn=tn+dsum=sun+tnNextiPrintsumEndSub
864197523
19
程序功能：
输出水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。
例如153是一个水仙花数，因为1^3+5^3+3^3=153）程序中有两行有错误。
改正错误，使它能输出正确的结果。
OptionExplicit
PrivateSubForm_Click（）DimnumberAsIntegerDimnAsInteger,iAsInteger,jAsInteger,kAsIntegerForn=100To999i=n/100‘百位j=Int（n/10）-i*10‘十位k=nMod10‘个位If（n=i*i*i+j*j*j+k*k*k）Thennumber=numbre+1EndIfNextnPrintnumberEndSub
4
20
程序功能：
求数列2/1，3/2，5/3，8/5，13/8，……的前10项之和。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimiAsInteger,tAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimsAsSinglea=2:
b=1:
n=10:
s=0Fori=1Tons=s+a/bt=ba=a+ba=tNextiPrintsEndSub
16.47991
21
程序功能：
猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。
问第1天共摘了多少桃子。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimdayAsInteger,sumAsIntegerday=10;sum=1DoWhileday>1sum=sum*2day=day-1LoopPrintsumEndSub
1534
22
程序功能：
一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。
现给定一个两位的正整数46，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。
这样的另一个两位数有多少个。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubForm_Click（）DimxAsInteger,yAsInteger,numberasIntegerDimxfAsInteger,yfAsIntegerNumber=0x=46xf=（xMod10）*10+Int（y/10）Fory=10To99yf=yMod10+Int（y/10）Ifx+y=xf+yfThenNumber=Number+1EndIfNextyPrintNumberEndSub
8
23
程序功能：
求1～200之间的能被7整除的数的平方和。
程序有两处错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimxAsIntegerDimsumAsintegerx=1sum=0Whilex<=200IfxMod7=0sum=sum+x^2EndIfx=x+1WendPrintsumEndSub
377986
24
程序功能：
求1~99的平方根的和并输出结果。
（保留小数点两位），程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimxAsIntegerDimsumAsIntegerx=1DoWhilex<=99sum=sum+Sqrt（x）x=x+1LoopPrintRound（sum,2）EndSub
661.46
25
程序功能：
求1~55的平方根的和并输出结果。
（保留小数点两位）程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimxAsIntegerDimsumAsIntegerx=1DoWhilex<=55sum=sum+Sqrt（x）x=x+1LoopPrintRound（sum,2）EndSub
275.43
26
程序功能：
统计1~1000中能被3整除的数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcountAsIntegerDimiAsIntegeri=3count=0DoWhileI>=1000Ifxmod3=0Thencount=count+1EndIfi=i+1LoopPrintcountEndSub
333
27
程序功能：
输出1~100中所有整数的平方和。
程序中有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimxAsIntegerDimsumAsIntegerx=1sum=0DoUntilx<100sum=sum+x^2x=x+1LoopPrintsumEndSub
328350
28
程序功能：
求[1,5000]内能被5整除的前若干个偶数之和，直到和大于50000为止。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimxAsIntegerDimsAsLongx=2DoWhilex<=5000IfxMod5＝0Thens=s+xIfs>50000ThenExitforEndIfEndIfx=x+1LoopPrintsEndSub
50500
29
程序功能：
求3000以内能被17或23整除的正整数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimxAsIntegerDimcountAsIntegerForx=1To3000step-1IfxMod17=0andxMod23=0Thencount=count+1EndIfNextxPrintcountEndSub
299
30
程序功能：
已知一个数列的前3项为0，0，1，以后每项为前3项的和，求此数列的第36项。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimaAsLongDimbAsLongDimcAsLongDimdAsLongDimiAsIntegera=0:
b=0:
c=1Fori=1To36d=aa=bb=cc=a+b+cNextiPrintcEndSub
334745777
31
程序功能：
求数列2,4,8,16,32,…前若干项之和。
当和大于9000时，终止求和并输出结果。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimsAsIntegerDimxAsIntegerx=1Dox=x+2s=s+xUntils>9000PrintsEndSub
16382
32
程序功能：
求[351,432]之间既不能被3整除,也不能被8整除的正整数的个数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimcAsIntegerDimxAsIntegerForx=351To432IfxMod3<>0orxMod8<>0Thenc=c+1EndIfNextcPrintcEndSub试题要求：
源程序文件名：
试题答案：
47考试语种：
试卷编号：
1034第35小题：
程序功能：
求[444,666]中最大的素数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimxAsIntegerDimiAsIntegerForx=666To444k=Int（Sqr（x））Fori=2TokIfxModi=0ThenExitDoEndIfNextiIfi>kThenPrintxExitForEndIfNextxEndSub
661
33
程序功能：
已知24有8个正整数因子（即：
1,2,3,4,6,8,12,24），而24正好被其因子个数8整除。
问[100,300]之间有多少个这样的数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）Dimn1AsInteger,n2AsIntegerDimxAsIntegerDimiAsIntegern2=0Forx=100To300n2=0Fori=1To100IfxModi=0Thenn1=n1+1EndIfNextiIfxModn1=0Thenn2=n2+1EndIfNextxPrintn2EndSub
19
34
程序功能：
若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。
求[1,200]之间有多少个多因子完备数。
改正错误，使它能输出正确的结果。
PrivateSubC
升级会员 