vb程序设计多试题及答案解析

《vb程序设计多试题及答案解析》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、9、VisualBasic程序改错81.程序功能：求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!。程序中有两行有错误。改正错误，使它能输出正确的结果。(40346)PrivateSubCommand1_Click()DimkAsInteger,iAsInte

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

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

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

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

6、5)奇数都是45PrivateSubCommand1_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;wend8.程序功能：求平方和小于2000的最

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