湖南省计算机二级题库2程序改错

《湖南省计算机二级题库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*