計算機ACCESS程序改錯例題

計算機ACCESS程序改錯例題改錯題(以下答案是正確的，不需要改錯，只是為大家提供題目類型，了解其步驟).求出［100,999］內(nèi)被除3余1并且被除5余2的整數(shù)的和。(33270)s=0forx=100to999ifxmod3=1andxmod5=2thens=s+xendifnextMsgboxs.求出100以內(nèi)使得算式l*2+2*3+...+n*(n+l)的值大于8888的最小的自然數(shù)小(29)s=0forn=lto100a=n*(n+l)s=s+aifs>8888thenExitforendifnextmsgboxn.設等比數(shù)列：1,2,4,8，…。求使得此數(shù)列的前n項之和小于150000的最大的自然數(shù)n0(17)a=ls=0forn=lto100s=s+aifs>=150000thenExitforEndifa=a*2nextmsgboxn-1.求出［123,987］內(nèi)恰好有兩個數(shù)字相同的所有整數(shù)之和。(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èi)最小的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的平方之和大于16500。(37)Dims,ns=0forn=lto100s=s+n*nifs>16500thenExitforEndifmsgboxn求出100以內(nèi)使得算式l/Q*2)+l/(2*3)+...+l/(n*(n+l))的值小于0.983的最大的自然數(shù)n。(57)s=0forn=lto100s=s+l/(n*(n+l))ifs>=0.983thenExitforendifnextmsgboxn-1已知數(shù)列{f(n)}f(l)=l,f(2)=4當n=3,4,5,…時,f(n)=3*f(n-l)-f(n-2)。試求出100以內(nèi)最小的自然數(shù)n使得此數(shù)列的第n項大于98765432L(23)dimf(lto100)f(l)=lf(2)=4forn=3to100f(n)=3*f(n-l)-f(n-2)iff(n)>987654321thenExitforendifnextmsgboxn計算100-50000以內(nèi)個位上的數(shù)大于百位上的數(shù)的個數(shù)。(22410)n=0fori=100to50000bw=(i\100)mod10gw=imod10ifgw>bwthenn=n+lendifnextmsgboxn已知數(shù)列{f(n)}:f(l)=l,f(2)=L當n>2時f(n)=f(n-2)+f(n-l)。試求此數(shù)列的第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］內(nèi)所有能被6整除但不能被9整除的整數(shù)的個數(shù)。(878)DimsAslong,xAsIntegerx=0s=0Forx=100To8000IfxMod6=0andxMod9<>0Thens=s+1EndIfNextMsgBoxs求出100以內(nèi)使得算式l/Q*l)+l/(2*3)+...+l/(n*(2n-l)的值大于1.35的最小的自然數(shù)n。(14)s=0forn=lto100a=n*(2*n-l)s=s+l/aifs>1.35thenExitforendifnextmsgboxn求出100以內(nèi)最小的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的立方之和大于20000。(17)s=0forn=lto100a=nA3s=s+aifs>20000thenExitforEndifnextmsgboxn計算100-6536以內(nèi)個位上的數(shù)等于百位上的數(shù)的個數(shù)。(644)n=0fori=100to6536bw=(I\100)mod10ifgw=bwthenn=n+lendifnextmsgboxn求出100以內(nèi)最大的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的倒數(shù)之和小于4.4。(45)Dimss=0forn=lto100s=s+l/nifs>=4.4thenExitfornextMsgboxn-1求出100以內(nèi)使得算式l*3+2*5+…+n*(2*n+l)的值小于34567的最大的自然數(shù)n。(36)s=0forn=lto100a=n*(2*n+l)s=s+aifs>=34567thenExitforendifnextmsgboxn-1設等比數(shù)列：1,3,9,27,求使得此數(shù)列的前n項之和大于123456789的最小的自然數(shù)n。(18)a=ls=0forn=lto100s=s+aifs>123456789thenExitforendifa=3*anextmsgboxn求在［100,999］內(nèi)所有不含數(shù)字0且各位數(shù)字之積被96整除的數(shù)之和。(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枚,問兌換后硬幣總數(shù)為50枚的兌換方案有多少種？(13)n=lforyi=lto50forer=lto50forwu=lto20ifyi+er+wu=50andyi*l+er*2+wu*5=100thenn=n+lEndifnextnextnextDebug.printn計算30000以內(nèi)所有十位數(shù)為6且該數(shù)能被7整除的數(shù)的個數(shù)。(429)Dimnn=0fori=lto30000sw=(I\10)mod10n=n+lendifnextMsgboxn求出50以內(nèi)最小的自然數(shù)n,使得從101開始的連續(xù)n個奇數(shù)之和大于2345。(20)s=0forn=lto50a=99+2*ns=s+aifs>2345thenexitfornextmsgboxn某國今年的人口總數(shù)為1億，若以每年5%的速度遞增，試求出至少要再過幾年該國人口總數(shù)才會超過5億。(33)s=lforn=lto100s=s*1.05ifs>5thenExitforendifnextmsgboxn求出［321,987］內(nèi)至少有兩個數(shù)字相同的數(shù)的個數(shù)。(180)n=0forx=321to987a=int(x/100)b=int((x-a*100)/10)c=xmod10ifa=bora=corb=cthenn=n+lendifnextmsgboxn若一個自然數(shù)恰好等于某個整數(shù)的平方，則稱此數(shù)為完全平方數(shù)。如144是完全平方數(shù)，因為它等于12的平方。求［1000,9000］內(nèi)所有完全平方數(shù)的和。(270879)s=0forx=1000to9000y=int(sqr(x))ifx=y*ythens=s+xendifnextmsgboxs或：s=0forx=1000to9000ifsqr(x)=int(sqr(x))thens=s+xendifnextmsgboxs設某四位數(shù)的各位數(shù)字的立方和等于200，問共有多少個這種四位數(shù)?(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米高處落至平地，并且連續(xù)多次再反彈再落下，假設每次反彈的高度都是前一高度的在垂直方向所經(jīng)過的總路程超過678米。(13)h=100s=100forn=2to100h=h*3/4s=s+2*hifs>678thenExitforEndifnextmsgboxn求出100以內(nèi)使得算式l+l/(l*2)+...+l/(l*2*...*n)的值大于1.718的最小的自然數(shù)no(6)a=1.00000000s=0.00000000forn=lto100a=a*ns=s+l/aifs>1.718thenExitforendifnextmsgboxn求出100以內(nèi)最小的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的立方之和大于150000。(28)s=0forn=lto100s=s+nxnxnifs>150000thenExitforEndifnextmsgboxn求出［200,9999］內(nèi)所有既不能被5整除也不能被7的整數(shù)的個數(shù)。(6720)n=0Forx=200To9999IfxMod5<>0AndxMod7<>0Thenn=n+1EndIfNextMsgBoxn求出［1001,9999］內(nèi)被除3余2并且被除5余3的整數(shù)的個數(shù)。(600)Dimnn=0forx=1001to9999ifxmod3=2andxmod5=3thenn=n+lendifnextMsgboxn求出100以內(nèi)使得算式l*2+2*3+...+n*(n+l)的值小于4567的最大的自然數(shù)兒(22)5=0forn=lto100a=n*(n+l)s=s+aifs>=4567thenExitforEndifnextmsgboxn-1設等比數(shù)列：1,2,4,8,求使得此數(shù)列的前n項之和大于20000的最小的自然數(shù)n0a=ls=0forn=lto100s=s+aifs>20000thenExitforendifa=2*anextmsgboxn求出［123,456］內(nèi)恰好有兩個數(shù)字相同的數(shù)的個數(shù)。(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］內(nèi)所有能被6和9中的一個且只有一個數(shù)整除的整數(shù)的個數(shù)。(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èi)最大的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的立方和小于80000。(23)s=0forn=lto100s=s+nA3ifs>=80000thenExitforEndifnextmsgboxn-1.求出100以內(nèi)的最大的自然數(shù)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èi)最大的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的立方之和小于123456。(26)s=0forn=lto100s=s+n*n*nifs>=123456thenExitforendifnextmsgboxn-1設某四位數(shù)的各位數(shù)字的平方和等于99,問共有多少個這種四位數(shù)?(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］內(nèi)所有能被4和7中至少一個數(shù)整除的整數(shù)的個數(shù)。(1751)DimsAsInteger,xAsIntegerx=0s=0Forx=100To5000IfxMod4=0orxMod7=0Thens=s+1EndIfNextMsgBoxs求出100以內(nèi)最大的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的平方和小于19400。(38)Dims,ns=0Ifs>=19400ThenExitForEndIfNextMsgBoxn-1求出100以內(nèi)使得算式l+(l+2)+...+(l+2+...+n)的值小于3000的最大的自然數(shù)n。(25)s=0t=0forn=lto100s=s+nt=t+sift>=3000thenEndifnextmsgboxn-1設等比數(shù)列：1,3,9,27，…。求使得此數(shù)列的前n項之和小于123456的最大的自然數(shù)n。(11)a=ls=0forn=lto100s=s+aifs>=123456thenExitforendifa=3*anextmsgboxn-1求在［200,800］內(nèi)所有不含數(shù)字0且各位數(shù)字之和被7整除的數(shù)之和。(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］內(nèi)所有能同時被7和12整除的整數(shù)之和。(52836)x=0s=0Forx=100To3000IfxMod7=0andxMod12=0Thens=s+xEndIfNextMsgBoxs求出100以內(nèi)最小的自然數(shù)n,使得從1開始的連續(xù)n個自然數(shù)的倒數(shù)之和大于3.5。(19)Dimss=0s=s+l/nifs>3.5thenExitforendifnextmsgboxn求出100以內(nèi)使得算式l+(l+2)+...+(l+2+...+n)的值大于5000的最小的自然數(shù)n。(31)t=0forn=lto100s=s+nt=t+sift>5000thenendifnextmsgboxn求［1,2000］內(nèi)能被6和8整除的所有自然數(shù)的平方根的和(將第1位小數(shù)四舍五入，結(jié)果只保留整數(shù))。(2491)s=0forn=lto2000ifnmod6=0andnmod8=0thens=s+sqr(n)Endifnextmsgboxround(s,0)計算100-10000以內(nèi)個位上的數(shù)小于百位上的數(shù)的所有數(shù)之和。(23314500)n=0fori=100to10000bw=(I\100)mod10gw=imod10ifgw<bwthenn=n+iEndifNextDebug.printn求出50以內(nèi)最小的自然數(shù)n，使得從102開始的連續(xù)n個偶數(shù)之和大于4567。(34)s=0forn=lto50a=100+2*ns=s+aifs>4567thenExitforEndifnextmsgboxn求出100以內(nèi)使算式(l-l/2)+(l/3-l/4)+…+(l/n-l/(n+l))的值大于0.66的最小的奇數(shù)n。(15)s=0forn=lto100step2a=l/n-l/(n+l)s=s+aifs>0.66thenEndifnextmsgboxn回文指的是正讀和反讀都一樣的一串字符，如121、1221。試求出[1234,5678]內(nèi)所有回文數(shù)的和。(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設某四位數(shù)的各位數(shù)字的立方和等于198，問滿足這種條件的四位數(shù)且被3整除的數(shù)共有多少個？(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］內(nèi)所有能被2整除但不能同時被3和5整除的整數(shù)之和。(23093000)5=0Forx=1001To9999IfxMod2=0AndNot(xMod3=0andxMod5=0)Thens=s+xEndIfNextMsgBoxs求出100以內(nèi)最大的奇數(shù)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米高處落至平地，并且連續(xù)多次再反彈再落下，假設每次反彈的高度都是前一高度的3/4倍，試求出最大的自然數(shù)n,使得此球從開始下落至第n次著地時在垂直方向所經(jīng)過的總路程不超過695米。h=100s=100forn=2to100h=3/4*hs=s+2*hifs>695thenExitforEndifnextmsgboxN-l設某四位數(shù)的各位數(shù)字的立方和等于205，問滿足這種條件的四位數(shù)且是奇數(shù)的數(shù)共有多少個？(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已知數(shù)列{f(n)}f(l)=l,f(2)=4，當n=3,4,5,…時加)=3*f(n-l)-f(n-2)。試求出100以內(nèi)最小的自然數(shù)n使得此數(shù)列的前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以內(nèi)有多少個這樣的數(shù)其個位數(shù)為4且該數(shù)能被7整除。(572)Fori=1To40000IfiMod10=4andimod7=0ThenEndIfNextMsgBoxn小劉要去白馬湖搞活動，需要把一張一元鈔票才奐成一分、二分和五分硬幣，每種至少1枚，問兌換后硬幣總數(shù)最多的與硬幣總數(shù)最少的枚數(shù)之差是多少？(73)minl=100maxl=Ot=0foryi=lto100forer=lto50forwu=lto20ifyi+er*2+wu*5=100thent=yi+er+wuift>maxlthenmaxl=tendififminl>tthenminl=tendifendifnextnextnextmsgboxmaxl-minl已知數(shù)列{f(n)}:f(l)=l,f(2)=L當n>2時f(n)=3*f(n-2)-f(n-l)。試求此數(shù)列的前20項中所有正數(shù)項之和。(20)dimf(lto20)f(D=lf⑵=1s=2forn=3to20f(n)=3*f(n-l)-f(n-2)iff(n)>0thens=s+lendifnextmsgboxs求出100以內(nèi)使得算式1+1/(1*2)+…+1/(1*2*…*n)的值大于1.718的最小的自然數(shù)1(6)a=1s=0Forn=1To100a=a*ns=s+1/aIfs>1.718ThenEndIfNextDebug.Printn某國在2000年時人口總數(shù)為1億，若以每年3%的速度遞增，試求出至少要到哪一年該國人口總數(shù)才會翻一番。(2024)S=1Forn=2001to3000S=s*(l+0.03)Ifs>=2thenExitforEndifNextDebug.printn已知數(shù)列：124,7,11,16，…其規(guī)律是相鄰兩項之部次是123,4,5，…。試求出此數(shù)列中大于5000的最小項。(5051)A=1Forn=0to1000A=a+nIfa>=5000thenExitforEndifNextDebug.printa已知數(shù)列:1,2,4,7,11,16 其規(guī)律是相鄰兩項之差依次是123,4,5，…。試求出此數(shù)列中小于6000的最大的項。(5996)A=1Forn=0to1000A=a+nIfa>=6000thenExitforEndifNextDebug.printa-n已知數(shù)列：L2,4,7,11,16，…其規(guī)律是相令B兩項之差依次是123,4,5，…。求100以內(nèi)最小的自然數(shù)n使得此數(shù)列的前n項之和大于800。(17)a=lS=0Forn=0to100a=a+ns=s+aIfs>800thenExitforEndifNextDebug.printn+1設一數(shù)列{f(n)}:f(l)=l,當n>l時，f(n)=l/(f(n-l)+l)。試求出此數(shù)列的前20項中大于0.618的項的數(shù)目。(15)Dimf(20)AsDoublef(l)=1s=1Forn=2To20f(n)=1/(f(n-1)+1)Iff(n)>0.618Thens=s+1EndIfNextDebug.Prints求所有符合算式ab*ba=3627的最大的兩位數(shù)ab同a*10+b)。其中a,b是1?9之間的一位整數(shù)。(93)n=0Forx=11To99a=x\10b=xMod10y=a*10+bIf(10*b+a)*y=3627Andy>nThenn=yEndIfNextDebug.Printn設一個數(shù)列的前三項都是1,從第4項開始，每一項都是前三項之和。試求出此數(shù)列的前25項中大于54321的項數(shù)。(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中至少一個數(shù)整除的所有整數(shù)按從小到大順序排列后，求前面20個數(shù)之和。(20610)Forx=1001To2000IfxMod4=0OrxMod6=0Thens=s+xn=n+1Ifn=20ThenExitForEndIfEndIfNextDebug.Prints已知數(shù)列:1、2、4、7、11、16 其特點是：相鄰兩項之差恰好構(gòu)成自然數(shù)列：1、2、3、4、5、…。求此數(shù)列的前100項中能被4整除的項的個數(shù)。(25)Forn=1To99x=x+nIfxMod4=0Thenm=m+1EndIfNextDebug.Printm已知數(shù)列{f(n)}:f(l)=l,f(2)=l，當n>2時f(n)=f(n-2)+f(n-l).試求此數(shù)列的第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已知數(shù)列{f(n)}:f⑴=1,f(2)=3，當n=3,4,5,…時,f(n)=f(n-l)-f(n-2)e試求出100以內(nèi)的自然數(shù)n使得此數(shù)列的前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以內(nèi)所有十位數(shù)為6且能被7整除的數(shù)之和。(719222)s=0Forx=lto10000sw=(x\10)mod10Ifxmod7=0andsw=6thenS=s+xEndifNextDebug.prints設某四位數(shù)的各位數(shù)字的立方和等于100，問滿足這種條件的四位數(shù)且是素數(shù)的數(shù)共有多少個？(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設某四位數(shù)的各位數(shù)字的平方和等于100，問滿足這種條件的最小的四位數(shù)且是素數(shù)的數(shù)是多少？（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設某四位數(shù)的各位數(shù)字的平方和等于198，問滿足這種條件的最大數(shù)和最小數(shù)之和是多少？（12749）Minl=9999Maxl=1000Forx=1000to9999a=x\1000c=(x\10)mod10d=xmod10IfaA2+bA2+cA2+dA2=198thenIfx>maxlthenMaxl=xEndifIfx<minlthenMinl=xEndifEndifNext程序題編寫程序，統(tǒng)計200-800之間的所有滿足三個數(shù)字之積為24，三個數(shù)字之和為10的數(shù)的之和。(1110)S=0forx=200to800a=int(x/100)b=int((x-a*100)/10)c=xmod10Ifa*b*c=24anda+b+c=10thenS=s+xEndifNextDebug.prints編寫程序，求四位數(shù)的奇數(shù)中，所有各位數(shù)字之積(且不為0)是120的倍數(shù)的數(shù)的和。(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整除的數(shù)的個數(shù)。(27)n=0Forx=100to500Ifxmod3=0andxmod5=0thenN=n+1EndifNextDebug.printn編寫程序,求在四位數(shù)的奇數(shù)中，所有各位數(shù)字之和是21的倍數(shù)的數(shù)的和。(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］有多少個這樣的數(shù)，其個位數(shù)為6且該數(shù)能被9整除。(99)n=0fori=1000to9900ifimod10=6andimod9=0thenn=n+lendifnextMsgboxn編寫程序,求在200-900之間所有能被4除余3,被7除余5,被9除余2的數(shù)之和。(1653)S=0Forx=200to900Ifxmod4=3andxmod7=5andxmod9=2thenS=s+xEndifNextDebug.prints編寫程序，統(tǒng)計200~800之間的所有滿足三個數(shù)字之積為42，三個數(shù)字之和為12的數(shù)之和。(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的數(shù)的平方和。(394384)S=0Forx=500to900Ifxmod5=3andxmod7=5andxmod9=7thenS=s+xA2EndifNextDebug.prints編寫程序，求在4000以內(nèi)能被17或者23整除的正整數(shù)的個數(shù)。(398)n=0Forx=lto4000Ifxmod17=0orxmod23=0thenN=n+1EndifNextDebug.printn和值大于1000時退出并輸出和值。（1050）s=oForx=lto6000Ifxmod2=0andxmod5=0thenS=s+xIfs>1000thenExitforEndifEndifnextDebug.prints編寫程序，計算在［10,80］的范圍內(nèi)其每位數(shù)的乘積小于每位數(shù)的和，這樣的數(shù)之和是多少？（771）S=0Forx=10to80A=x\10B=xmod10Ifa*b<a+bthenS=s+xEndifNextDebug.prints編寫程序,求在四履的偶數(shù)中，所有各位數(shù)字之積（且不為0）是40的倍數(shù)的數(shù)的個數(shù)。（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枚，問兌換后硬幣總數(shù)最多的與硬幣總數(shù)最少的枚數(shù)之和是多少？(117)minl=100maxl=0t=0foryi=lto100forwu=lto20ifyi+er*2+wu*5=100thent=yi+er+wuift>maxlthenmaxl=tendififminl>tthenminl=tendifendifnextnextnextmsgbo