欢迎来到天天文库
浏览记录
ID:29009265
大小:153.50 KB
页数:68页
时间:2018-12-15
《二级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间,能被3
4、整除但不能被7整除的数的个数。程序中有两行有错误。改正错误,使它能输出正确的结果。原程序: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
此文档下载收益归作者所有