二级vb程序改错

《二级vb程序改错》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、3001题:程序功能：求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0i=1DoUntils<2000s=s+ii=i+1LoopPrintsEndSub答案：20253002题:程序功能：求s=1+3+5+7+...直到s>3000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click

2、()DimiAsInteger,sAsLongs=0i=1DoUntils<3000s=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+1

3、WendPrintsEndSub答案：403463004题:程序功能：计算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答案：410663005题:程序功能：求200到400间，能被３

4、整除但不能被７整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=400IfxMod3=0OrxMod7<>0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub答案：573006题:程序功能：求200到500间，能被13整除但不能被17整除的数的个数。程序中有两行有错误。改正错误，使它能输

5、出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=500IfxMod13=0OrxMod17<>0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub答案：213007题:程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubForm_Click()Dimcou

6、ntAsIntegerDimxAsIntegerForx=1To400ifmod(x,3)=0andmod(x,7)=0thencount=count+1endifNextcountprintcountEndSub答案：193008题:程序功能：求1到500间，同时能被5和9整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegerForx=1To500ifmod(x,5)=0

7、andmod(x,9)=0thencount=count+1endifNextcountprintcountEndSub答案：113009题:程序功能：求能被3整除且至少有一位数字为5的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。原程序：PrivateSubCommand1_Click()DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100DoWhilex<=999IfxMod3=0Thena=I

8、nt(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()Dimcount