计算机ACCESS程序改错例题

计算机ACCESS程序改错例题改错题(以下答案是正确的，不需要改错，只是为大家提供题目类型，了解其步骤).求出［100,999］内被除3余1并且被除5余2的整数的和。(33270)s=0forx=100to999ifxmod3=1andxmod5=2thens=s+xendifnextMsgboxs.求出100以内使得算式l*2+2*3+...+n*(n+l)的值大于8888的最小的自然数小(29)s=0forn=lto100a=n*(n+l)s=s+aifs>8888thenExitforendifnextmsgboxn.设等比数列：1,2,4,8，…。求使得此数列的前n项之和小于150000的最大的自然数n0(17)a=ls=0forn=lto100s=s+aifs>=150000thenExitforEndifa=a*2nextmsgboxn-1.求出［123,987］内恰好有两个数字相同的所有整数之和。(121474)=0forx=123to987a=int(x/100)b=int((x-a*100)/10)c=xmod10if(a=bOra=cOrb=c)AndNot(a=bAndb=cAnda=c)Thens=s+xEndifnextmsgboxs5.小刘去银行把一张五角钞票才奂成一分、二分和五分硬币，每种至少1枚，问有多少种方案？(106)n=0foryi=lto50forer=lto50forwu=lto50ifyi*l+er*2+wu*5=50thenn=n+lEndifnextnextnextmsgboxn求出100以内最小的自然数n，使得从1开始的连续n个自然数的平方之和大于16500。(37)Dims,ns=0forn=lto100s=s+n*nifs>16500thenExitforEndifmsgboxn求出100以内使得算式l/Q*2)+l/(2*3)+...+l/(n*(n+l))的值小于0.983的最大的自然数n。(57)s=0forn=lto100s=s+l/(n*(n+l))ifs>=0.983thenExitforendifnextmsgboxn-1已知数列{f(n)}f(l)=l,f(2)=4当n=3,4,5,…时,f(n)=3*f(n-l)-f(n-2)。试求出100以内最小的自然数n使得此数列的第n项大于98765432L(23)dimf(lto100)f(l)=lf(2)=4forn=3to100f(n)=3*f(n-l)-f(n-2)iff(n)>987654321thenExitforendifnextmsgboxn计算100-50000以内个位上的数大于百位上的数的个数。(22410)n=0fori=100to50000bw=(i\100)mod10gw=imod10ifgw>bwthenn=n+lendifnextmsgboxn已知数列{f(n)}:f(l)=l,f(2)=L当n>2时f(n)=f(n-2)+f(n-l)。试求此数列的第15项至第30项共16项之和。(2177322)Dimf(lto30)f(D=lf⑵=1s=0forn=3to30f(n)=f(n-2)+f(n-l)ifn>=15thens=s+f(n)endifnextmsgboxs求出［100,8000］内所有能被6整除但不能被9整除的整数的个数。(878)DimsAslong,xAsIntegerx=0s=0Forx=100To8000IfxMod6=0andxMod9<>0Thens=s+1EndIfNextMsgBoxs求出100以内使得算式l/Q*l)+l/(2*3)+...+l/(n*(2n-l)的值大于1.35的最小的自然数n。(14)s=0forn=lto100a=n*(2*n-l)s=s+l/aifs>1.35thenExitforendifnextmsgboxn求出100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于20000。(17)s=0forn=lto100a=nA3s=s+aifs>20000thenExitforEndifnextmsgboxn计算100-6536以内个位上的数等于百位上的数的个数。(644)n=0fori=100to6536bw=(I\100)mod10ifgw=bwthenn=n+lendifnextmsgboxn求出100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于4.4。(45)Dimss=0forn=lto100s=s+l/nifs>=4.4thenExitfornextMsgboxn-1求出100以内使得算式l*3+2*5+…+n*(2*n+l)的值小于34567的最大的自然数n。(36)s=0forn=lto100a=n*(2*n+l)s=s+aifs>=34567thenExitforendifnextmsgboxn-1设等比数列：1,3,9,27,求使得此数列的前n项之和大于123456789的最小的自然数n。(18)a=ls=0forn=lto100s=s+aifs>123456789thenExitforendifa=3*anextmsgboxn求在［100,999］内所有不含数字0且各位数字之积被96整除的数之和。(26640)s=0forx=100to999a=int(x/100)b=int((x-a*100)/10)c=xmod10if(a*b*c)mod96=0anda*b*c<>0thens=s+xendifnextmsgboxs外语系的张同学在四食堂二楼把一张一元钞票，换成一分、二分和五分硬币，每种至少1枚,问兑换后硬币总数为50枚的兑换方案有多少种？(13)n=lforyi=lto50forer=lto50forwu=lto20ifyi+er+wu=50andyi*l+er*2+wu*5=100thenn=n+lEndifnextnextnextDebug.printn计算30000以内所有十位数为6且该数能被7整除的数的个数。(429)Dimnn=0fori=lto30000sw=(I\10)mod10n=n+lendifnextMsgboxn求出50以内最小的自然数n,使得从101开始的连续n个奇数之和大于2345。(20)s=0forn=lto50a=99+2*ns=s+aifs>2345thenexitfornextmsgboxn某国今年的人口总数为1亿，若以每年5%的速度递增，试求出至少要再过几年该国人口总数才会超过5亿。(33)s=lforn=lto100s=s*1.05ifs>5thenExitforendifnextmsgboxn求出［321,987］内至少有两个数字相同的数的个数。(180)n=0forx=321to987a=int(x/100)b=int((x-a*100)/10)c=xmod10ifa=bora=corb=cthenn=n+lendifnextmsgboxn若一个自然数恰好等于某个整数的平方，则称此数为完全平方数。如144是完全平方数，因为它等于12的平方。求［1000,9000］内所有完全平方数的和。(270879)s=0forx=1000to9000y=int(sqr(x))ifx=y*ythens=s+xendifnextmsgboxs或：s=0forx=1000to9000ifsqr(x)=int(sqr(x))thens=s+xendifnextmsgboxs设某四位数的各位数字的立方和等于200，问共有多少个这种四位数?(4)n=0forx=1000to9999a=int(x/1000)b=int((x-a*1000)/100)c=(x\10)mod10d=xmod10ifaA3+bA3+cA3+dA3=200thenn=n+lendifnextmsgboxnn=0Forx=1000To9999a=x\1000b=(x-a*1000)\100c=(x-a*1000-b*100)\10d=xMod10IfaA3+bA3+cA3+dA3=200Thenn=n+1EndIfNextMsgBoxn小张和小陈在白马湖畔的水景广场玩弹球让一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的在垂直方向所经过的总路程超过678米。(13)h=100s=100forn=2to100h=h*3/4s=s+2*hifs>678thenExitforEndifnextmsgboxn求出100以内使得算式l+l/(l*2)+...+l/(l*2*...*n)的值大于1.718的最小的自然数no(6)a=1.00000000s=0.00000000forn=lto100a=a*ns=s+l/aifs>1.718thenExitforendifnextmsgboxn求出100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于150000。(28)s=0forn=lto100s=s+nxnxnifs>150000thenExitforEndifnextmsgboxn求出［200,9999］内所有既不能被5整除也不能被7的整数的个数。(6720)n=0Forx=200To9999IfxMod5<>0AndxMod7<>0Thenn=n+1EndIfNextMsgBoxn求出［1001,9999］内被除3余2并且被除5余3的整数的个数。(600)Dimnn=0forx=1001to9999ifxmod3=2andxmod5=3thenn=n+lendifnextMsgboxn求出100以内使得算式l*2+2*3+...+n*(n+l)的值小于4567的最大的自然数儿(22)5=0forn=lto100a=n*(n+l)s=s+aifs>=4567thenExitforEndifnextmsgboxn-1设等比数列：1,2,4,8,求使得此数列的前n项之和大于20000的最小的自然数n0a=ls=0forn=lto100s=s+aifs>20000thenExitforendifa=2*anextmsgboxn求出［123,456］内恰好有两个数字相同的数的个数。(87)n=0forx=123to456a=int(x/100)b=int((x-a*100)/10)c=x-a*100-b*10if(a=bora=corb=c)andnot(a=banda=candb=c)thenn=n+lendifnextmsgboxn计算机系的小江要把一张一元钞票才奂成一分、二分和五分硬币,每种至少5枚，问有多少种方案?(205)n=0foryi=5to100forer=5to50forwu=5to20ifyi*l+er*2+wu*5=100thenn=n+lendifnextnextnextmsgboxn求出［100,999］内所有能被6和9中的一个且只有一个数整除的整数的个数。(150)DimsAsInteger,xAsIntegerx=0s=0Forx=100To999If(xMod6=0andxMod9<>0)or(xmod6<>0andxmod9=0)Thens=s+1EndIfNextMsgBoxsDimsAsInteger,xAsIntegerx=0s=0Forx=100To999If(xMod6=0orxmod9=0)andnot(xmod6=0andxmod9=0)Thens=s+1EndIfNextMsgBoxs求出100以内最大的自然数n，使得从1开始的连续n个自然数的立方和小于80000。(23)s=0forn=lto100s=s+nA3ifs>=80000thenExitforEndifnextmsgboxn-1.求出100以内的最大的自然数n，使得算式l+l/Q+2)+…+l/(l+2+...+n)的值小于1.89。(17)s=0t=0forn=lto100s=s+nt=t+l/sift>=1.89thenendifnextmsgboxn-1.求出100以内最大的自然数n，使得从1开始的连续n个自然数的立方之和小于123456。(26)s=0forn=lto100s=s+n*n*nifs>=123456thenExitforendifnextmsgboxn-1设某四位数的各位数字的平方和等于99,问共有多少个这种四位数?(87)n=0forx=1000to9999a=int(x/1000)b=int((x-a*1000)/100)c=(x\10)mod10d=xmod10ifaA2+bA2+cA2+dA2=99thenn=n+lEndifnextmsgboxn求出［100,5000］内所有能被4和7中至少一个数整除的整数的个数。(1751)DimsAsInteger,xAsIntegerx=0s=0Forx=100To5000IfxMod4=0orxMod7=0Thens=s+1EndIfNextMsgBoxs求出100以内最大的自然数n，使得从1开始的连续n个自然数的平方和小于19400。(38)Dims,ns=0Ifs>=19400ThenExitForEndIfNextMsgBoxn-1求出100以内使得算式l+(l+2)+...+(l+2+...+n)的值小于3000的最大的自然数n。(25)s=0t=0forn=lto100s=s+nt=t+sift>=3000thenEndifnextmsgboxn-1设等比数列：1,3,9,27，…。求使得此数列的前n项之和小于123456的最大的自然数n。(11)a=ls=0forn=lto100s=s+aifs>=123456thenExitforendifa=3*anextmsgboxn-1求在［200,800］内所有不含数字0且各位数字之和被7整除的数之和。(35161)s=0forx=200to800a=int(x/100)b=int((x-a*100)/10)c=x-a*100-b*10if(a+b+c)mod7=0anda*b*c<>0thens=s+xendifnextmsgboxs求出［100,3000］内所有能同时被7和12整除的整数之和。(52836)x=0s=0Forx=100To3000IfxMod7=0andxMod12=0Thens=s+xEndIfNextMsgBoxs求出100以内最小的自然数n,使得从1开始的连续n个自然数的倒数之和大于3.5。(19)Dimss=0s=s+l/nifs>3.5thenExitforendifnextmsgboxn求出100以内使得算式l+(l+2)+...+(l+2+...+n)的值大于5000的最小的自然数n。(31)t=0forn=lto100s=s+nt=t+sift>5000thenendifnextmsgboxn求［1,2000］内能被6和8整除的所有自然数的平方根的和(将第1位小数四舍五入，结果只保留整数)。(2491)s=0forn=lto2000ifnmod6=0andnmod8=0thens=s+sqr(n)Endifnextmsgboxround(s,0)计算100-10000以内个位上的数小于百位上的数的所有数之和。(23314500)n=0fori=100to10000bw=(I\100)mod10gw=imod10ifgw<bwthenn=n+iEndifNextDebug.printn求出50以内最小的自然数n，使得从102开始的连续n个偶数之和大于4567。(34)s=0forn=lto50a=100+2*ns=s+aifs>4567thenExitforEndifnextmsgboxn求出100以内使算式(l-l/2)+(l/3-l/4)+…+(l/n-l/(n+l))的值大于0.66的最小的奇数n。(15)s=0forn=lto100step2a=l/n-l/(n+l)s=s+aifs>0.66thenEndifnextmsgboxn回文指的是正读和反读都一样的一串字符，如121、1221。试求出[1234,5678]内所有回文数的和。(153912)s=0forx=1234to5678a=int(x/1000)b=int((x-a*1000)/100)c=int((x-a*1000-b*100)/10)d=x-a*1000-b*100-c*10ifa=dandb=cthens=s+xendifnextmsgboxs设某四位数的各位数字的立方和等于198，问满足这种条件的四位数且被3整除的数共有多少个？(24)n=0forx=1000to9999a=int(x/1000)b=int((x-a*1000)/100)c=(x\10)mod10d=xmod10ifaA3+bA3+cA3+dA3=198andxmod3=0thenn=n+lEndifnextmsgboxn为了去滨湖公园玩，小李把一张一元钞票，换成一分、二分和五分硬币,每种至少1枚，问兑换后其中二分的硬币恰有20枚的方案共有多少种?(11)n=0foryi=lto100forwu=lto20er=20ifyi*l+er*2+wu*5=100thenn=n+lendifnextnextmsgboxn求出［1001,9999］内所有能被2整除但不能同时被3和5整除的整数之和。(23093000)5=0Forx=1001To9999IfxMod2=0AndNot(xMod3=0andxMod5=0)Thens=s+xEndIfNextMsgBoxs求出100以内最大的奇数n使得算式Q-l/2)+(l/3-l/4)+...+(l/n-l/(n+l))的值小于0.67。(19)s=0forn=lto100step2a=l/n-l/(n+l)s=s+aifs>=0.67thenExitforendifnextmsgboxn-2一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n,使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过695米。h=100s=100forn=2to100h=3/4*hs=s+2*hifs>695thenExitforEndifnextmsgboxN-l设某四位数的各位数字的立方和等于205，问满足这种条件的四位数且是奇数的数共有多少个？(3)n=0forx=1000to9999a=int(x/1000)b=int((x-a*1000)/100)c=int((x-a*1000-b*100)/10)d=xmod10ifaA3+bA3+cA3=205andxmod2=1thenendifnextmsgboxn已知数列{f(n)}f(l)=l,f(2)=4，当n=3,4,5,…时加)=3*f(n-l)-f(n-2)。试求出100以内最小的自然数n使得此数列的前n项之和大于987654321。(22)Dimf(lto100)f(l)=lf⑵二4s=0forn=3to100f(n)=3*f(n-l)-f(n-2)s=s+f(n)ifs>987654321thenExitforendifnextmsgboxn计算40000以内有多少个这样的数其个位数为4且该数能被7整除。(572)Fori=1To40000IfiMod10=4andimod7=0ThenEndIfNextMsgBoxn小刘要去白马湖搞活动，需要把一张一元钞票才奂成一分、二分和五分硬币，每种至少1枚，问兑换后硬币总数最多的与硬币总数最少的枚数之差是多少？(73)minl=100maxl=Ot=0foryi=lto100forer=lto50forwu=lto20ifyi+er*2+wu*5=100thent=yi+er+wuift>maxlthenmaxl=tendififminl>tthenminl=tendifendifnextnextnextmsgboxmaxl-minl已知数列{f(n)}:f(l)=l,f(2)=L当n>2时f(n)=3*f(n-2)-f(n-l)。试求此数列的前20项中所有正数项之和。(20)dimf(lto20)f(D=lf⑵=1s=2forn=3to20f(n)=3*f(n-l)-f(n-2)iff(n)>0thens=s+lendifnextmsgboxs求出100以内使得算式1+1/(1*2)+…+1/(1*2*…*n)的值大于1.718的最小的自然数1(6)a=1s=0Forn=1To100a=a*ns=s+1/aIfs>1.718ThenEndIfNextDebug.Printn某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一番。(2024)S=1Forn=2001to3000S=s*(l+0.03)Ifs>=2thenExitforEndifNextDebug.printn已知数列：124,7,11,16，…其规律是相邻两项之部次是123,4,5，…。试求出此数列中大于5000的最小项。(5051)A=1Forn=0to1000A=a+nIfa>=5000thenExitforEndifNextDebug.printa已知数列:1,2,4,7,11,16 其规律是相邻两项之差依次是123,4,5，…。试求出此数列中小于6000的最大的项。(5996)A=1Forn=0to1000A=a+nIfa>=6000thenExitforEndifNextDebug.printa-n已知数列：L2,4,7,11,16，…其规律是相令B两项之差依次是123,4,5，…。求100以内最小的自然数n使得此数列的前n项之和大于800。(17)a=lS=0Forn=0to100a=a+ns=s+aIfs>800thenExitforEndifNextDebug.printn+1设一数列{f(n)}:f(l)=l,当n>l时，f(n)=l/(f(n-l)+l)。试求出此数列的前20项中大于0.618的项的数目。(15)Dimf(20)AsDoublef(l)=1s=1Forn=2To20f(n)=1/(f(n-1)+1)Iff(n)>0.618Thens=s+1EndIfNextDebug.Prints求所有符合算式ab*ba=3627的最大的两位数ab同a*10+b)。其中a,b是1〜9之间的一位整数。(93)n=0Forx=11To99a=x\10b=xMod10y=a*10+bIf(10*b+a)*y=3627Andy>nThenn=yEndIfNextDebug.Printn设一个数列的前三项都是1,从第4项开始，每一项都是前三项之和。试求出此数列的前25项中大于54321的项数。(5)Dimf(25)s=0F(l)=l:F(2)=l:f(3)=lForn=4to25F(n)=f(n-l)+f(n-2)+f(n-3)Iff(n)>54321thenS=s+1EndifNextDebug.prints将大于1000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。(20610)Forx=1001To2000IfxMod4=0OrxMod6=0Thens=s+xn=n+1Ifn=20ThenExitForEndIfEndIfNextDebug.Prints已知数列:1、2、4、7、11、16 其特点是：相邻两项之差恰好构成自然数列：1、2、3、4、5、…。求此数列的前100项中能被4整除的项的个数。(25)Forn=1To99x=x+nIfxMod4=0Thenm=m+1EndIfNextDebug.Printm已知数列{f(n)}:f(l)=l,f(2)=l，当n>2时f(n)=f(n-2)+f(n-l).试求此数列的第15项至第30项共16项之和。(2177322)Dimf(lto30)s=0f(D=1Forn=3To30f(n)=f(n-2)+f(n-1)Ifn>=15Thens=s+f(n)EndIfNextDebug.Prints已知数列{f(n)}:f⑴=1,f(2)=3，当n=3,4,5,…时,f(n)=f(n-l)-f(n-2)e试求出100以内的自然数n使得此数列的前n项之和第3次等于0。Dimf(lto100)AsLong,sAsLong,mAsLongs=4m=0f(D=1f(n)=f(n-1)-f(n-2)s=s+f(n)Ifs=0Thenm=m+1Ifm=3ThenExitForEndIfEndIfNextDebug.Printn计算10000以内所有十位数为6且能被7整除的数之和。(719222)s=0Forx=lto10000sw=(x\10)mod10Ifxmod7=0andsw=6thenS=s+xEndifNextDebug.prints设某四位数的各位数字的立方和等于100，问满足这种条件的四位数且是素数的数共有多少个？(4)n=0Forx=1000to9999f=lFori=2to(x/2)Ifxmodi=0thenf=0ExitforEndifNextIff=lthena=x\1000b=(x\100)mod10c=(x\10)mod10d=xmod10IfaA3+bA3+cA3+dA3=100thenn=n+lEndifEndifNextDebug.printn设某四位数的各位数字的平方和等于100，问满足这种条件的最小的四位数且是素数的数是多少？（1933）Minl=9999Forx=1000to9999f=lFori=2to(x/2)Ifxmodi=0thenf=0ExitforEndifNextIff=lthena=x\1000b=(x\100)mod10c=(x\10)mod10d=xmod10IfaA2+bA2+cA2+dA2=100thenMinl=xExitforEndifEndifNextDebug.printmini设某四位数的各位数字的平方和等于198，问满足这种条件的最大数和最小数之和是多少？（12749）Minl=9999Maxl=1000Forx=1000to9999a=x\1000c=(x\10)mod10d=xmod10IfaA2+bA2+cA2+dA2=198thenIfx>maxlthenMaxl=xEndifIfx<minlthenMinl=xEndifEndifNext程序题编写程序，统计200-800之间的所有满足三个数字之积为24，三个数字之和为10的数的之和。(1110)S=0forx=200to800a=int(x/100)b=int((x-a*100)/10)c=xmod10Ifa*b*c=24anda+b+c=10thenS=s+xEndifNextDebug.prints编写程序，求四位数的奇数中，所有各位数字之积(且不为0)是120的倍数的数的和。(2308493)S=0Forx=1000to9999A=x\1000B=(x\100)mod10C=(x\10)mod10D=xmod10Ifxmod2=1anda*b*c*dmod120=0anda*b*c*d<>0thenS=s+xEndifNextDebug.prints求［100,500］既能被3整除又能被5整除的数的个数。(27)n=0Forx=100to500Ifxmod3=0andxmod5=0thenN=n+1EndifNextDebug.printn编写程序,求在四位数的奇数中，所有各位数字之和是21的倍数的数的和。(1743312)5=0Forx=1000To9999a=x\1000b=(x\100)Mod10c=(x\10)Mod10d=xMod10IfxMod2=1And(a+b+c+d)Mod21=0Thens=s+xEndIfNextDebug.Prints编写程序,计算［1000,9900］有多少个这样的数，其个位数为6且该数能被9整除。(99)n=0fori=1000to9900ifimod10=6andimod9=0thenn=n+lendifnextMsgboxn编写程序,求在200-900之间所有能被4除余3,被7除余5,被9除余2的数之和。(1653)S=0Forx=200to900Ifxmod4=3andxmod7=5andxmod9=2thenS=s+xEndifNextDebug.prints编写程序，统计200~800之间的所有满足三个数字之积为42，三个数字之和为12的数之和。(2664)S=0forx=200to800a=int(x/100)b=int((x-a*100)/10)c=xmod10Ifa*b*c=42anda+b+c=12thenS=s+xEndifNextDebug.prints编写程序,求在500~900之间所有能被5除余3,被7除余5,被9除余7的数的平方和。(394384)S=0Forx=500to900Ifxmod5=3andxmod7=5andxmod9=7thenS=s+xA2EndifNextDebug.prints编写程序，求在4000以内能被17或者23整除的正整数的个数。(398)n=0Forx=lto4000Ifxmod17=0orxmod23=0thenN=n+1EndifNextDebug.printn和值大于1000时退出并输出和值。（1050）s=oForx=lto6000Ifxmod2=0andxmod5=0thenS=s+xIfs>1000thenExitforEndifEndifnextDebug.prints编写程序，计算在［10,80］的范围内其每位数的乘积小于每位数的和，这样的数之和是多少？（771）S=0Forx=10to80A=x\10B=xmod10Ifa*b<a+bthenS=s+xEndifNextDebug.prints编写程序,求在四履的偶数中，所有各位数字之积（且不为0）是40的倍数的数的个数。（577）n=0Forx=1000To9999a=x\1000b=（x-a*1000）\100c=(x-a*1000-b*100)\10d=xMod10IfxMod2=0Anda*b*c*dMod40=0Anda*b*c*d<>0Thenn=n+1EndIfNextDebug.Printn小刘要去白马湖搞活动，需要把一张一元钞票才奂成一分、二分和五分硬币，每种至少1枚，问兑换后硬币总数最多的与硬币总数最少的枚数之和是多少？(117)minl=100maxl=0t=0foryi=lto100forwu=lto20ifyi+er*2+wu*5=100thent=yi+er+wuift>maxlthenmaxl=tendififminl>tthenminl=tendifendifnextnextnextmsgbo