欢迎来到天天文库
浏览记录
ID:37357496
大小:1.13 MB
页数:87页
时间:2019-05-22
《湖南省计算机二级题库2程序改错》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、【1】程序功能:已知24有8个正整数因子(即:1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误,使它能输出正确的结果。PrivateSubCommand1_Click()DimNAsIntegerDimsAsIntegerDimiAsIntegerForN=300To100s=0Fori=1ToNIfNModi=0Thens=s+1EndIfNextiIfsModN=0ThenPrintNExitForEndIfNextNEndSub 【
2、296】 【2】程序功能:求这样的一个三位数,其个位数不大于2。若将个位数移动到百位之前(如:321移成132),新三位数大于原三位数的两倍。程序中有两行错误,改正错误,使程序能输出正确的结果。PrivateSubCommand1_Click()Fori=0To9Forj=0To9Fork=0To9n=100*i+10*j+km=100*k+10*i+jIfm>=2*nThenPrintnNextkNextjNextiEndSub 【102】 【3】程序功能:有一堆桃子(个数不超过1000),如果分成4个一组余2个;7个一组余3个;9
3、个一组余5个。求这堆桃子的个数有几种可能。程序中有错误,改正错误,使程序能输出正确的结果。PrivateSubCommand1_Click()Forx=1To1000IfxMod4=2OrxMod7=3OrxMod9=5Theni=i+1EndIfNextxPrintiEndSub 【4】 【4】程序功能:求个位数是6,且能被3整除的所有四位数之和。程序中有错误,改正错误,使程序能输出正确的结果。PrivateSubCommand1_Click()Dimi%Dims&s=0Fori=1000To9999IfiMod3=0OriMod100
4、0=6Thens=s+iEndIfNextiPrintsEndSub 【1653300】 【5】程序功能:求四位奇数中,各位数字之积(积不为0)是60的倍数的数之和。程序中有一行错误,改正错误,使程序能输出正确的结果。PrivateSubCommand1_Click()num1=0Forx=1001To9999Step2a=Int(x/1000)‘千位b=Int(x/100)-a*10‘百位c=Int(x/10)-a*100-b*10‘十位d=x-a*1000-b*100-c*10‘个位Ifa*b*c*dMod60=0Thennum1=n
5、um1+xEndIfNextxPrintnum1EndSub 【3456254】 【6】程序功能:求满足以下条件的(a,b,c)的组数:(1)1/(a^2)+1/(b^2)=1/(c^2);(2)a>b>c;(3)a+b+c<80。程序中有错误,改正错误,使程序能输出正确的结果。PrivateSubCommand1_Click()s=0Forc=1To80Forb=1To80Fora=1To80Ifa+b+c<80Or1/(a^2)+1/(b^2)=1/(c^2)Thens=s+1Nexta,b,cPrintsEndSub 【1】 【
6、7】程序功能:求满足以下条件的(a,b,c)的组数:(1)1/(a^2)+1/(b^2)=1/(c^2);(2)a>b>c;(3)a+b+c<100。程序有错误,改正错误,使程序能输出正确的结果。PrivateSubCommand1_Click()s=0Forc=1To100Forb=1To100Fora=1To100Ifa+b+c<100Or1/(a^2)+1/(b^2)=1/(c^2)Thens=s+1NextaNextbNextcPrintsEndSub 【2】 【8】程序功能:求四位偶数中,各位数字之和是30的倍数的数之和。程序中
7、有错误,改正错误,使程序能输出正确结果。PrivateSubCommand1_Click()s2=0Forx=1001To9999Step2s1=0a=Int(x/1000)b=Int(x/100)-a*10c=Int(x/10)-a*100-b*10d=x-a*1000-b*100-c*10s1=a+b+c+dIfs1Mod30=0Thens1=s1+xEndIfNextxPrints2EndSub 【288840】 【9】程序功能:求四位偶数中,所有各位数字之和是25的倍数的数之和。程序中有两行有错误。改正错误,使它能输出正确的结果。
8、PrivateSubCommand1_Click()s2=0Forx=1001To9999Step2s1=0a=Int(x/1000)b=Int(x/100)-a*
此文档下载收益归作者所有