[电脑基础知识]湖南省计算机2级非专业程序题题库

《[电脑基础知识]湖南省计算机2级非专业程序题题库》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、湖南省计算机非专业二级程序题1.程序功能：求s二1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。(2025)PrivateSubForm_Click()DimiAsInteger,sAsLongs=0:i=1DoUntils<2000s=s+ii二i+1LoopPrintsEndSub答案：s>2000;i+22.程序功能：计算s=2!+4!+8!o程序中有两行有错误。改正错误，使它能输出正确的结果。(40346)PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDim

2、sAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2*it=t*kk=k+1Wends=s+ti二i+1wendPrintsEndSub答案：k<=2Ai;loop3.程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。(41066)PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0:i=1DoWhilei<=4t=1k=1Whilek<=2Ait=t*kk=k+1Wends=s+ti=i+1wen

3、dPrintsEndSub答案：k<=2*i;loop1.程序功能：求200到400

4、0j,能被3整除但不能被7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(57)PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=400IfxMod3=0orxMod7<>0Thencount=count+1EndIfX=X+1LoopPrintcountEndSub答案：and;wend2.程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行

5、有错误。改正错误，使它能输出正确的结果。(19)PrivateSubForm_Click()DimcountAsIntegerDimxAsIntegerForx=1To400ifmod(x,3)=0andmod(x,7)=0thencount=count+IendifNextcountPrintcountEndSub答案：xMod3=0AndxMod7=0;x3.程序功能:求能被3整除且至少有一位数字为5的三位数的个数。程序屮有两行有错误。改正错误，使它能输出正确的结果。(85)PrivateSubCommandl_Click()DimcountAsIntegerD

6、imaAsInteger,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答案：a=5orb=5orc=5;loop1.程序功能：求三位偶数屮，个位数字与十位数字Z和除以10所得的余数是百位数字的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(4

7、5)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答案：xMod2=0And(b+c)Mod10=a;wend2.程序功能：求平方和小于2000的最大自然数。

8、程序屮有两行有错误。改正错误，使它能输出正确的结果。(18)PrivateSubForm_Click()DimxAsIntegerDimsAsIntegers=0x=0DoWhiles>=2000x=x+2S=S+X*XloopPrintxEndSub答案：s<=2000;x=x+11.程序功能：解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三,小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？程序中有三行有错误。改正错误，使它能输出正确的结果。（6）PrivateSubForm_Click（）DimxAsInteger,yAsI