vb程序设计题库集

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

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

2、000s=s+ii=i+1LoopPrintsEndSub"30253"程序功能：计算s=2!+4!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。""PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2*it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub"403463"程序功能：计算s=2!+4!+6!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。"

3、"PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2^it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub"410663"程序功能：求200到400间，能被３整除但不能被７整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。""PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegercount=0x=200

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

5、tcountEndSub"213"程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。""PrivateSubForm_Click()DimcountAsIntegerDimxAsIntegerForx=1To400ifmod(x,3)=0andmod(x,7)=0thencount=count+1endifNextcountprintcountEndSub"193"程序功能：求1到500间，同时能被5和9整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。""PrivateSubC

6、ommand1_Click()DimcountAsIntegerDimxAsIntegerForx=1To500ifmod(x,5)=0andmod(x,9)=0thencount=count+1endifNextcountprintcountEndSub"113"程序功能：求能被3整除且至少有一位数字为5的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。""PrivateSubCommand1_Click()DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntege

7、rx=100DoWhilex<=999IfxMod3=0Thena=Int(x/100)b=Int((x-a*100)/10)c=x-a*100-b*10Ifa"853"程序功能：求能被7整除且至少有一位数字为9的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。""PrivateSubCommand1_Click()DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100DoWhilex<=999IfxMod7<>0Thena=Int(x/100)b=I

8、nt((x-a*100)/10)c=x-a*100-b*10Ifa=9"363"