二级vb程序改错.doc

二级vb程序改错.txt3001题:程序功能：求s=1+3+5+7+.直到s2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0i=1DoUntils3000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0i=1DoUntils3000s=s+ii=i+1LoopPrintsEndSub答案：30253003题:程序功能：计算s=2!+4!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei=3t=1k=1Whilek=2*it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub答案：403463004题:程序功能：计算s=2!+4!+6!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei=3t=1k=1Whilek=2it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub答案：410663005题:程序功能：求200到400间，能被整除但不能被整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegercount=0x=200Whilex=400IfxMod3=0OrxMod70Thencount=count+1EndIfx=x+1LoopPrintcountEndSub答案：573006题:程序功能：求200到500间，能被13整除但不能被17整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegercount=0x=200Whilex=500IfxMod13=0OrxMod170Thencount=count+1EndIfx=x+1LoopPrintcountEndSub答案：213007题:程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubForm_Click()DimcountAsIntegerDimxAsIntegerForx=1To400ifmod(x,3)=0andmod(x,7)=0thencount=count+1endifNextcountprintcountEndSub答案：193008题:程序功能：求1到500间，同时能被5和9整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegerForx=1To500ifmod(x,5)=0andmod(x,9)=0thencount=count+1endifNextcountprintcountEndSub答案：113009题:程序功能：求能被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答案：853010题:程序功能：求能被7整除且至少有一位数字为9的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100DoWhilex=999IfxMod70Thena=Int(x/100)b=Int(x-a*100)/10)c=x-a*100-b*10Ifa=9andb=9Andc=9Thencount=count+1EndIfEndIfx=x+1LoopPrintcountEndSub答案：363011题:程序功能：求三位偶数中，个位数字与十位数字之和除以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答案：453012题:程序功能：求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegercount=0x=100Whilex=2000x=x+2s=s+x*xloopPrintxEndSub答案：183017题:程序功能：解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?程序中有三行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerDimsAsIntegers=0Forx=1To33Fory=1To50z=100-x-yIf3*x+2*y+z/2100Thens=s+1EndIfNextxNextyPrintsEndSub答案：63018题:程序功能：解百马百瓦古题。大、小马和马驹共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答案：63019题:程序功能：求100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()Number=0Forx=101To199Step2i=2k=Int(x/2)DoWhilei=kIfxModi=0ThenExitFori=i+1LoopIfi1sum=sum*2day=day-1LoopPrintsumEndSub答案：15343025题:程序功能：求1200之间的能被7整除的数的平方和。程序有两处错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimxAsIntegerDimsumAsintegerx=1sum=0Whilex=200IfxMod7=0sum=sum+x2EndIfx=x+1WendPrintsumEndSub答案：3779863026题:程序功能：求199的平方根的和并输出结果。（保留小数点两位），程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimxAsIntegerDimsumAsIntegerx=1DoWhilex=99sum=sum+Sqrt(x)x=x+1LoopPrintRound(sum,2)EndSub答案：661.463027题:程序功能：求155的平方根的和并输出结果。（保留小数点两位）程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimxAsIntegerDimsumAsIntegerx=1DoWhilex=1000Ifxmod3=0Thencount=count+1EndIfi=i+1LoopPrintcountEndSub答案：3333029题:程序功能：输出1100中所有整数的平方和。程序中有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimxAsIntegerDimsumAsIntegerx=1sum=0DoUntilx100sum=sum+x2x=x+1LoopPrintsumEndSub答案：3283503030题:程序功能：求1,5000内能被5整除的前若干个偶数之和，直到和大于50000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimxAsIntegerDimsAsLongx=2DoWhilex50000ThenExitforEndIfEndIfx=x+1LoopPrintsEndSub答案：505003031题:程序功能：求3000以内能被17或23整除的正整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimxAsIntegerDimcountAsIntegerForx=1To3000step-1IfxMod17=0andxMod23=0Thencount=count+1EndIfNextxPrintcountEndSub答案：2993032题:程序功能：已知一个数列的前3项为0，0，1，以后每项为前3项的和，求此数列的第36项。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimaAsLongDimbAsLongDimcAsLongDimdAsLongDimiAsIntegera=0:b=0:c=1Fori=1To36d=aa=bb=cc=a+b+cNextiPrintcEndSub答案：3347457773033题:程序功能：求数列2,4,8,16,32,前若干项之和。当和大于9000时，终止求和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimsAsIntegerDimxAsIntegerx=1Dox=x+2s=s+xUntils9000PrintsEndSub答案：163823034题:程序功能：求351,432之间既不能被3整除,也不能被8整除的正整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcAsIntegerDimxAsIntegerForx=351To432IfxMod30orxMod80Thenc=c+1EndIfNextcPrintcEndSub试题要求：源程序文件名：试题答案：47考试语种：试卷编号：1034第35小题：程序功能：求444,666中最大的素数。程序中有两行有错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()DimxAsIntegerDimiAsIntegerForx=666To444k=Int(Sqr(x)Fori=2TokIfxModi=0ThenExitDoEndIfNextiIfikThenPrintxExitForEndIfNextxEndSub答案：6613035题:程序功能：已知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答案：193037题:程序功能：我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimpAsLong,p1AsLongDimnAsIntegern=0p1=45600p=p1Dop=p*(1+9)n=n+1LoopUntilp=999a=Int(x/100)b=Int(x/10)-a*10c=x-a*100-b*10IfacOrbcOrabOrx=a3+b3+c3Thenn=n+1EndIfx=x+1LoopPrintnEndSub答案：43040题:程序功能：求1130之间所有整数的立方和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimsAsIntegerDimxAsIntegerx=1s=0DoWhilex130s=s+x3x=x+1LoopPrintsEndSub答案：725052253041题:程序功能：求1210之间所有整数的立方和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimsAsIntegerDimxAsIntegerx=1s=0Dos=s+x3x=x+1Whilex=210PrintsEndSub答案：4908440253042题:程序功能：计算1000以内，既能被6整除又能被8整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimnAsIntegerDimxAsIntegerx=1n=0DoWhilex=1000IfxMod6=0OrxMod8=0Thenn=n+1Endcasex=x+1LoopPrintnEndSub答案：413043题:程序功能：求160之间的所有整数的平方和。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimsAsintegerDimxAsIntegers=0Forx=1To60s=s+x2NextsPrintsEndSub答案：738103044题:程序功能：求3，500内所有素数之和。程序中有一行错误，改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()sum=0Forx=3To500flag=TrueFori=2Tox-1IfxModi=0Thenflag=FalseExitForEndIfNextiIfnotflagThensum=sum+xEndIfNextxPrintsumEndSub答案：215343045题:程序功能：求3-1000之间最大的五个素数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()n=0sum=0x=1000Doflag=TrueFori=2Tox-1IfxModi=0Thenflag=FalseExitDoEndIfNextiIfflagThensum=sum+xn=n+1Ifn=5ThenExitDoEndIfx=x-1LoopWhilex=3PrintsumEndSub答案：49193046题:程序功能：求100,200间有奇数个不同因子的整数的个数。程序中有两行有错误，改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()n1=0Forx=100To200n2=0Fori=1To100IfxModi=0Thenn2=n2+1EndIfNextiIfn2Mod2=0Thenn1=n1+1EndIfNextxPrintn1EndSub答案：53047题:程序功能：把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,求方案数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()n=0Forx=1To100Fory=8To50Forz=8To20Ifx+y+z=100Thenn=n+1NextzNextyNextxPrintnEndSub答案：803048题:程序功能：求区间500，2500中按递增顺序的第25个素数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()n=0Forx=500To2500flag=FalseFori=2Tox-1IfxModi=0Thenflag=TrueExitForEndIfNextiIfflagThenn=n+1Ifn=25ThenExitForEndIfNextxPrintxEndSub答案：6593049题:程序功能：将50元兑换成5元、2元和1元的方法的种数（每种面额不能为0）。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()Forx=1To10Fory=1To25Forz=1To50Ifx+y+z=50Thenn=n+1ExitforEndIfNextzNextyNextxPrintnEndSub答案：1063050题:程序功能：设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，求所有这样的四位数之和。程序中有一行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()sum=0Forx=1000To9999a=Int(x/1000)b=Int(x/100)-a*100c=Int(x/10)-a*100-b*10d=x-a*1000-b*100-c*10Ifa+c=b*dThensum=sum+xEndIfNextxPrintsumEndSub答案：10782893052题:程序功能：求200,300之间的有奇数个不同因子的最大整数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()Forx=300To200n=0Fori=1ToxIfxModi=0Thenn=n+1EndIfNextiIfn/20ThenPrintxExitForEndIfNextxEndSub答案：2893053题:程序功能：求3333，6666之间所有能被5和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()n=0x=3333Whilex=6666IfxMod5=0OrxMod7=0Thenn=n+1EndIfx=x+1LoopPrintnEndSub答案：953054题:程序功能：设某四位数的各位数字的平方和为100，且该数能被3整除。求这样的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()n=0Forx=1000To9999a=Int(x/1000)b=Int(x/100)-a*100c=Int(x/10)-a*100-b*10d=x-a*1000-b*100-c*10Ifa2+b2+c2+d2=100AndMod(x,3)=0Thenn=n+1EndIfNextxPrintnEndSub答案：243056题:程序功能：计算y=1+2/3+3/5+4/7+n/(2*n-1)(n=50),要求：按四舍五入的方式精确到小数点后第二位。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimsAsSingleDimnAsIntegers=0Forn=1To50s=s+n/2*n1NextnPrintround(s)EndSub答案：26.473057题:程序功能：求当N=20时，1/(1*2)+1/(2*3)+1/(3*4)+.+1/(N*(N+1)的值。要求：按四舍五入的方式精确到小数点后第二位。程序中有一行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()s=0n=1DoWhilen=20s=s+1/n*(n+1)n=n+1LoopPrintformat(s,”#0.#”)EndSub答案：0.953059题:程序功能：求m50时，表达式t=1-1/(2*2)-1/(3*3)-1/(m*m)的值。要求：按四舍五入的方式精确到小数点后第四位。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimtAsSingleDimmAsIntegerm=2t=1DoWhilem=50t=t-1/m*mm=m+1WendPrintFormat(t,0.#)EndSub答案：0.37493060题:程序功能：求10,1000之间满足除