./VB循環(huán)程序例題附答案1.素?cái)?shù)1. [100,999]范圍內(nèi)同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù).⑴其個(gè)位數(shù)字與十位數(shù)字之和除以10所得的余數(shù)是百位數(shù)字；⑵該數(shù)是素?cái)?shù);求有多少個(gè)這樣的數(shù)？15n=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If<c+b>Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn2. [300,800]范圍內(nèi)同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù).⑴其個(gè)位數(shù)字與十位數(shù)字之和除以10所得的余數(shù)是百位數(shù)字；⑵該數(shù)是素?cái)?shù)；求滿足上述條件的最大的三位十進(jìn)制數(shù). 761Fori=300To800a=i\100b=i\10Mod10c=iMod10If<c+b>Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thens=iEndIfNextiPrints3. 除1和它本身外,不能被其它整數(shù)整除的正整數(shù)稱為素?cái)?shù)〔注：1不是素?cái)?shù),2是素?cái)?shù).若兩素?cái)?shù)之差為2,則稱兩素?cái)?shù)為雙胞胎數(shù),問[31,601]之間有多少對(duì)雙胞胎數(shù). 22n=0Fori=31To601-2x=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr<i+2>If<i+2>Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn4. 數(shù)學(xué)家哥德巴赫曾猜測(cè)：任何大于6的偶數(shù)都可以分解成兩個(gè)素?cái)?shù)〔素?cái)?shù)對(duì)的和.但有些偶數(shù)可以分解成多種素?cái)?shù)對(duì)的和,如：10=3+7,10=5+5,即10可以分解成兩種不同的素?cái)?shù)對(duì).試求6744可以分解成多少種不同的素?cái)?shù)對(duì)〔注：A+B與B+A認(rèn)為是相同素?cái)?shù)對(duì) 144n=0Fori=2To6744/2x=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr<6744-i>If<6744-i>Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn5. 兩個(gè)素?cái)?shù)之差為2,則稱這兩個(gè)素?cái)?shù)為雙胞胎數(shù).求出[200,1000]之間的最大一對(duì)雙胞胎數(shù)的和. 1764Fori=200To1000-2x=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr<i+2>If<i+2>Modj=0Theny=1:ExitForNextjIfy=0Thens=i+i+2EndIfNextiPrints6. 一個(gè)素?cái)?shù)〔設(shè)為p依次從最高位去掉一位,二位,三位,……,若得到的各數(shù)仍都是素?cái)?shù)<注：除1和它本身外,不能被其它整數(shù)整除的正整數(shù)稱為素?cái)?shù),1不是素?cái)?shù),2是素?cái)?shù),且數(shù)p的各位數(shù)字均不為零,則稱該數(shù)p為逆向超級(jí)素?cái)?shù).例如,617,17,7都是素?cái)?shù),因此617是逆向超級(jí)素?cái)?shù),盡管503,03,3都是素?cái)?shù),但它不是逆向超級(jí)素?cái)?shù),因?yàn)樗辛?試求[100,999]之內(nèi)的所有逆向超級(jí)素?cái)?shù)的個(gè)數(shù). 39n=0Fori=100To999a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr<c>IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr<b>IfbModj=0Thenz=1:ExitForNextjIfz=0Thenn=n+1EndIfEndIfEndIfNextiPrintn7. 德國(guó)數(shù)學(xué)家哥德巴赫曾猜測(cè)：任何大于6的偶數(shù)都可以分解成兩個(gè)素?cái)?shù)〔素?cái)?shù)對(duì)的和.但有些偶數(shù)可以分解成多種素?cái)?shù)對(duì)的和,如：10=3+7,10=5+5,即10可以分解成兩種不同的素?cái)?shù)對(duì).試求1234可以分解成多少種不同的素?cái)?shù)對(duì)〔注：A+B與B+A認(rèn)為是相同素?cái)?shù)對(duì) 25n=0Fori=2To1234/2x=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr<1234-i>If<1234-i>Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn8.求[100,900]之間相差為12的素?cái)?shù)對(duì)〔注：要求素?cái)?shù)對(duì)的兩個(gè)素?cái)?shù)均在該范圍內(nèi)的個(gè)數(shù). 50n=0Fori=100To900-12x=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr<i+12>If<i+12>Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn9. 一個(gè)素?cái)?shù)〔設(shè)為p依次從最高位去掉一位,二位,三位,……,若得到的各數(shù)仍都是素?cái)?shù)<注：1不是素?cái)?shù)>,且數(shù)p的各位數(shù)字均不為零,則稱該數(shù)p為逆向超級(jí)素?cái)?shù).例如,617,17,7都是素?cái)?shù),因此617是逆向超級(jí)素?cái)?shù),但盡管503,03,3都是素?cái)?shù),但它不是逆向超級(jí)素?cái)?shù),因?yàn)樗辛?試求[100,999]之內(nèi)的所有逆向超級(jí)素?cái)?shù)的和. 21645s=0Fori=100To999a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr<c>IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr<b>IfbModj=0Thenz=1:ExitForNextjIfz=0Thens=s+iEndIfEndIfEndIfNextiPrints10. 一個(gè)素?cái)?shù)〔設(shè)為p依次從最高位去掉一位,二位,三位,……,若得到的各數(shù)仍都是素?cái)?shù)<注：1不是素?cái)?shù),2是素?cái)?shù)>,且數(shù)p的各位數(shù)字均不為零,則稱該數(shù)p為逆向超級(jí)素?cái)?shù).例如,617,17,7都是素?cái)?shù),因此617是逆向超級(jí)素?cái)?shù),但盡管503,03,3都是素?cái)?shù),但它不是逆向超級(jí)素?cái)?shù),因?yàn)樗辛?試求[100,999]之內(nèi)的所有逆向超級(jí)素?cái)?shù)從大到小數(shù)的第10個(gè)素?cái)?shù)是多少？ 797n=0Fori=999To100Step-1a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr<c>IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr<b>IfbModj=0Thenz=1:ExitForNextjIfz=0Thenn=n+1:Ifn=10Thens=iEndIfEndIfEndIfNextiPrints11. 一個(gè)自然數(shù)是素?cái)?shù),且它的數(shù)字位置經(jīng)過任意對(duì)換后仍為素?cái)?shù),則稱為絕對(duì)素?cái)?shù).如13,試求所有兩位絕對(duì)素?cái)?shù)的和. 429s=0Fori=10To99a=i\10b=iMod10x=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=b*10+aForj=2ToSqr<c>IfcModj=0Theny=1:ExitForNextjIfy=0Thens=s+iEndIfNextiPrints12. 在[200,900]范圍內(nèi)同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù):⑴其個(gè)位數(shù)字與十位數(shù)字之和除以10所得的余數(shù)是百位數(shù)字;⑵該數(shù)是素?cái)?shù)；問有多少個(gè)這樣的數(shù)？ 14n=0Fori=200To900a=i\100b=i\10Mod10c=iMod10If<c+b>Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn13. 一個(gè)素?cái)?shù),依次從個(gè)位開始去掉一位,二位,所得的各數(shù)仍然是素?cái)?shù),稱為超級(jí)素?cái)?shù).求[100,999]之內(nèi)超級(jí)素?cái)?shù)的個(gè)數(shù). 14n=0Fori=100To999x=0Forj=2ToSqr<i>IfiModj=0Thenx=1:ExitForNextjIfx=0Thena=i\10y=0Forj=2ToSqr<a>IfaModj=0Theny=1:ExitForNextjIfy=0Thenb=i\100Ifb<>1Thenz=0Forj=2ToSqr<b>IfbModj=0Thenz=1:ExitForNextjIfz=0Thenn=n+1EndIfEndIfEndIfNextiPrintn14. 若兩個(gè)連續(xù)的自然數(shù)的乘積減1后是素?cái)?shù),則稱此兩個(gè)連續(xù)自然數(shù)為友數(shù)對(duì),該素?cái)?shù)稱為友素?cái)?shù).例如,由于8*9-1=71,因此,8與9是友素?cái)?shù)對(duì),71是友素?cái)?shù).求[100,200]之間的第10個(gè)友素?cái)?shù)對(duì)所對(duì)應(yīng)的友素?cái)?shù)的值〔按由小到大排列. 17291Fori=100To199a=i*<i+1>-1x=0Forj=2ToSqr<a>IfaModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1Ifn=10Thens=aEndIfNextiPrints15. 求[2,400]中相差為10的相鄰素?cái)?shù)對(duì)〔兩數(shù)中間沒有其它素?cái)?shù)的對(duì)數(shù). 5n=0ForI=2To400-10x=0Forj=2ToSqr<I>IfIModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr<I+10>If<I+10>Modj=0Theny=1:ExitForNextjIfy=0ThenFork=I+1ToI+9z=0Fork1=2ToSqr<k>IfkModk1=0Thenz=1:ExitForNextk1Ifz=0ThenExitForNextkIfk=I+10Thenn=n+1EndIfEndIfNextIPrintn16. 若兩個(gè)連續(xù)的自然數(shù)的乘積減1后是素?cái)?shù),則稱此兩個(gè)連續(xù)自然數(shù)為友數(shù)對(duì),該素?cái)?shù)稱為友素?cái)?shù).例如,由于8*9-1=71,因此,8與9是友數(shù)對(duì),71是友素?cái)?shù).求[50,150]之間的友數(shù)對(duì)的數(shù)目.38n=0Fori=50To150a=i*<i+1>-1x=0Forj=2ToSqr<a>IfaModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn17. 若兩個(gè)連續(xù)自然數(shù)乘積減1后是素?cái)?shù),則稱此兩個(gè)自然連續(xù)數(shù)為友數(shù)對(duì),該素?cái)?shù)稱為友素?cái)?shù),例:2*3-1=5,因此2與3是友數(shù)對(duì),5是友素?cái)?shù),求[40,119]之間友素?cái)?shù)對(duì)的數(shù)目. 30n=0Fori=40To119a=i*<i+1>-1x=0Forj=2ToSqr<a>IfaModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn18. 梅森尼數(shù)是指能使2^n-1為素?cái)?shù)的數(shù)n,求[1,21]范圍內(nèi)有多少個(gè)梅森尼數(shù)？ 7n=0Fori=2To21x=2^i-1k=0Forj=2ToSqr<x>IfxModj=0Thenk=1NextjIfk=0Thenn=n+1NextiPrintn19. [300,800]范圍內(nèi)同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù).⑴其個(gè)位數(shù)字與十位數(shù)字之和除以10所得的余數(shù)是百位數(shù)字；⑵該數(shù)是素?cái)?shù)；求滿足上述條件的最大的三位十進(jìn)制數(shù). 761Fori=300To800a=i\100b=i\10Mod10c=iMod10If<c+b>Mod10=aThenk=0Forj=2ToSqr<i>IfiModj=0Thenk=1NextjIfk=0Thens=iEndIfNextiPrints2.取數(shù)字20. 求符合下列條件的四位完全平方數(shù)<某個(gè)正整數(shù)A是另一個(gè)正整數(shù)B的平方,則稱A為完全平方數(shù)>,它的千位數(shù)字與十位數(shù)字之和等于百位數(shù)字與個(gè)位數(shù)字之積,例如,3136=562,且3+3=1*6故3136是所求的四位完全平方數(shù).求其中最大的一個(gè)數(shù). 7921Fori=1000To9999x=Sqr<i>Ifx=Int<x>Thena=i\1000b=i\100Mod10c=i\10Mod10d=iMod10If<a+c>=b*dThens=iEndIfNextiPrints21.設(shè)某四位數(shù)的千位數(shù)字平方與十位數(shù)字的平方之和等于百位數(shù)字的立方與個(gè)位數(shù)字的立方之和,例如,對(duì)于四位數(shù)：3201,3^2+0^2=2^3+1^3,試問所有這樣的四位數(shù)之和是多少？97993s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10If<a^2+c^2>=b^3+d^3Thens=s+iNextiPrints22. 設(shè)某四位數(shù)的千位數(shù)字與十位數(shù)字的和等于百位數(shù)字與個(gè)位數(shù)字的積,例如,對(duì)于四位數(shù)：9512,9+1=5*2,試問所有這樣的四位數(shù)之和是多少？ 1078289s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10If<a+c>=b*dThens=s+iNextiPrints23. 有一個(gè)三位數(shù)滿足下列條件:<1>此三位數(shù)的三位數(shù)字各不相同;<2>此三位數(shù)等于它的各位數(shù)字的立方和.試求所有這樣的三位數(shù)之和. 1301s=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If<a^3+b^3+c^3>=iAnda<>bAndb<>cAndc<>aThens=s+iNextiPrints24. 求[1,999]之間能被3整除,且至少有一位數(shù)字是5的所有正整數(shù)的個(gè)數(shù).91n=0Fori=1To999a=i\100b=i\10Mod10c=iMod10IfiMod3=0And<a=5Orb=5Orc=5>Thenn=n+1NextiPrintn25. 有一個(gè)三位數(shù)滿足下列條件:<1>此三位數(shù)的三位數(shù)字各不相同;<2>此三位數(shù)等于它的各位數(shù)字的立方和.試求所有這樣的三位數(shù)中最大的一個(gè)是多少？ 407s=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If<a^3+b^3+c^3>=iAnda<>bAndb<>cAndc<>aThens=iNextiPrints26. 有一個(gè)三位數(shù)滿足下列條件:<1>此三位數(shù)的三位數(shù)字各不相同;<2>此三位數(shù)等于它的各位數(shù)字的立方和.試求這種三位數(shù)共有多少個(gè)？ 4n=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If<a^3+b^3+c^3>=iAnda<>bAndb<>cAndc<>aThenn=n+1NextiPrintn27. 求五位數(shù)各位數(shù)字的平方和為100的最大的五位數(shù). 94111Fori=10000To99999a=i\10000b=i\1000Mod10c=i\100Mod10d=i\10Mod10e=iMod10Ifa^2+b^2+c^2+d^2+e^2=100Thens=iNextiPrints28. 所謂"水仙花數(shù)"是指一個(gè)三位數(shù),其各位數(shù)字的三次方之和等于該數(shù)本身,例如：153=1^3+3^3+5^3,故153是水仙花數(shù),求[100,999]之間所有水仙花數(shù)之和. 1301s=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If<a^3+b^3+c^3>=iThens=s+iNextiPrints29. 設(shè)某四位數(shù)的各位數(shù)字的平方和等于100,問共有多少個(gè)這種四位數(shù)？ 49n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Ifa^2+b^2+c^2+d^2=100Thenn=n+1NextiPrintn30. 回文數(shù)是指正讀和反讀都一樣的正整數(shù).例如3773是回文數(shù).求出[1000,9999]以內(nèi)的所有回文數(shù)的個(gè)數(shù).90n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Ifa+b*10+c*100+d*1000=iThenn=n+1NextiPrintn3.分硬幣31. 把一張一元鈔票,換成一分、二分和五分硬幣,每種至少8枚,問有多少種方案? 80n=0Fori=8To100Forj=8To50Fork=8To20If<i+2*j+5*k=100>Thenn=n+1Nextk,j,iPrintn32. 50元的整幣兌換成5元、2元和1元幣值〔三種幣值均有、缺少一種或兩種都計(jì)算在內(nèi)的方法有多少種. 146n=0Fori=0To50Forj=0To25Fork=0To10If<i+2*j+5*k=50>Thenn=n+1Nextk,j,iPrintn33. 50元的整幣兌換成5元、2元和1元幣值〔要求三種幣值均有的方法有多少種. 106n=0Fori=1To50Forj=1To25Fork=1To10If<i+2*j+5*k=50>Thenn=n+1Nextk,j,iPrintn34. 馬克思曾經(jīng)做過這樣一道趣味數(shù)學(xué)題：有30個(gè)人在一家小飯店里用餐,其中有男人、女人和小孩,每個(gè)男人花了3先令,每個(gè)女人花了2先令,每個(gè)小孩花了1先令,共花去50先令.如果要求男人、女人和小孩都有人參與,試求有多少種方案分配男人、女人和小孩的人數(shù).9n=0Fori=1To50Forj=1To25k=30-i-jIf<i+2*j+3*k=50>Andk>0Thenn=n+1Nextj,iPrintn4.勾股、弦數(shù)35. A,B,C是三個(gè)小于或等于100正整數(shù),當(dāng)滿足1/A^2+1/B^2=1/C^2關(guān)系時(shí),稱為倒勾股數(shù).求130<A+B+C<150且A>B>C的倒勾股數(shù)有多少組. 1Forc=1To100Forb=c+1To100Fora=b+1To100i=a+b+cIf<i>100Andi<150And<1/<a*a>+1/<b*b>=1/<c*c>>>Thenn=n+1Printa,b,cEndIfNexta,b,cPrintn36. 倒勾股數(shù)是滿足公式：1/A^2+1/B^2=1/C^2的一組正整數(shù)〔A,B,C,例如,〔156,65,60是倒勾股數(shù),因?yàn)椋?/156^2+1/65^2=1/60^2.假定A>B>C,求A,B,C之和小于100的倒勾股數(shù)有多少組？ 2Forc=1To100Forb=c+1To100Fora=b+1To100i=a+b+cIf<i<100And<1/<a*a>+1/<b*b>=1/<c*c>>>Thenn=n+1Printa,b,cEndIfNexta,b,cPrintn37. 勾股弦數(shù)是滿足公式：A^2+B^2=C^2<假定A<B<C>的一組正整數(shù)〔A,B,C,例如,〔3,4,5是勾股弦數(shù),因?yàn)椋?^2+4^2=5^2.求A,B均小于25且A+B+C<=100的勾股弦數(shù)的個(gè)數(shù). 11n=0Forc=1To100Fora=1To24Forb=a+1To24s=a+b+cIfa^2+b^2=c^2Ands<=100Thenn=n+1Nextb,a,cPrintn38. 倒勾股數(shù)是滿足公式：1/A^2+1/B^2=1/C^2的一組正整數(shù)〔A,B,C,例如,〔156,65,60是倒勾股數(shù),因?yàn)椋?/156^2+1/65^2=1/60^2.假定A>B>C,求A,B,C均小于或等于100的倒勾股數(shù)有多少組？5Forc=1To100Forb=c+1To100Fora=b+1To100i=a+b+cIf1/<a*a>+1/<b*b>=1/<c*c>Thenn=n+1Printa,b,cEndIfNexta,b,cPrintn39. 勾股弦數(shù)是滿足公式：A^2+B^2=C^2<假定A<B<C>的一組正整數(shù)〔A,B,C,例如,〔3,4,5是勾股弦數(shù),因?yàn)椋?^2+4^2=5^2.求A,B,C均小于或等于100的勾股弦數(shù)中A+B+C的最大值. 240Max=0Fora=1To100Forb=a+1To100Forc=b+1To100s=a+b+cIfa^2+b^2=c^2Ands>MaxThenMax=sNextc,b,aPrintMax40 若某整數(shù)平方等于某兩個(gè)正整數(shù)平方之和的正整數(shù)稱為弦數(shù).例如：由于3^2+4^2=5^2,則5為弦數(shù),求[100,200]之間弦數(shù)的個(gè)數(shù). 77n=0Fork=100To200Fori=1TokForj=i+1TokIfi^2+j^2=k^2Thenn=n+1Nextj,i,kPrintn41 若某正整數(shù)平方等于某兩個(gè)正整數(shù)平方之和,稱該正整數(shù)為弦數(shù).例如：由于3^2+4^2=5^2,則5為弦數(shù),求[131,200]之間最小的弦數(shù). 135Fork=131To200Fori=1TokForj=i+1TokIfi^2+j^2=k^2ThenGoTo10Nextj,i,k10Printk5.完數(shù)因子42 求在[10,1000]之間的所有完數(shù)之和.各真因子之和〔不包括自身等于其本身的正整數(shù)稱為完數(shù).例如：6=1+2+3,6是完數(shù). 524Sum=0Form=10To1000s=0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenSum=Sum+mNextmPrintSum43 一個(gè)數(shù)如果恰好等于它的所有真因子之和,這個(gè)數(shù)就稱為"完數(shù)".例如,6的真因子為1,2,3,而6=1+2+3,因此,6是"完數(shù)".求[1,1000]之間的最大完數(shù). 496Sum=0Form=1To1000s=0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenSum=mNextmPrintSum44 一個(gè)數(shù)如果恰好等于它的所有真因子之和,這個(gè)數(shù)就稱為"完數(shù)".例如,6的真因子為1,2,3,而6=1+2+3,因此,6是"完數(shù)".求[1,1000]之間的第二大完數(shù). 28Sum=0Form=1To1000s=0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenn=n+1Ifn=2ThenSum=m:ExitForNextmPrintSum45 一個(gè)數(shù)如果恰好等于它的所有真因子之和,這個(gè)數(shù)就稱為"完數(shù)".例如,6的真因子為1,2,3,而6=1+2+3,因此,6是"完數(shù)".求1000以內(nèi)的所有完數(shù)之和. 530Sum=0Form=1To1000s=0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenSum=Sum+mNextmPrintSum46 求[200,300]之間有奇數(shù)個(gè)不同因子的最大的整數(shù)<在計(jì)算因子個(gè)數(shù)時(shí),包括該數(shù)本身>. 289Form=200To300k=0Fori=1TomIfmModi=0Thenk=k+1NextiIfkMod2<>0ThenA=mNextmPrintA47 求[200,300]之間第二大有奇數(shù)個(gè)不同因子的整數(shù)<在計(jì)算因子個(gè)數(shù)時(shí),包括該數(shù)本身>. 256n=0Form=200To300k=0Fori=1TomIfmModi=0Thenk=k+1NextiIfkMod2<>0Thenn=n+1Ifn=2ThenA=m:ExitForNextmPrintA48 已知24有8個(gè)正整數(shù)因子〔即：1,2,3,4,6,8,12,24,而24正好能被其因子數(shù)8整除,求正整數(shù)[10,100]之間有多少個(gè)正整數(shù)能被其因子的個(gè)數(shù)整除. 12n=0Form=10To100k=0Fori=1TomIfmModi=0Thenk=k+1NextiIfmModk=0Thenn=n+1NextmPrintn6.<數(shù)列>四舍五入49 當(dāng)m的值為50時(shí),計(jì)算下列公式的值：T=1-1/2-1/3-1/4-…-1/m

要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位. -2.4992t=1Fori=2To50t=t-1/iNextiPrintRound<t,4>50 當(dāng)m的值為50時(shí),計(jì)算下列公式之值:t=1+1/2^2+1/3^2+…+1/m^2

<按四舍五入的方式精確到小數(shù)點(diǎn)后第四位>. 1.6251t=0Fori=1To50t=t+1/i^2NextiPrintRound<t,4>51 當(dāng)n=100時(shí),計(jì)算S=<1-1/2>+<1/3-1/4>+……+<1/<2n-1>-1/<2n>>的值..要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第三位. 0.691s=0Fori=1To100s=s+<1/<2*i-1>-1/<2*i>>NextiPrintRound<s,3>52 當(dāng)n的值為25時(shí),計(jì)算下列公式的值:s=1+1/1!+1/2!+1/3!+…+1/n!

要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位. 2.7183s=1t=1Fori=1To50t=t*is=s+1/tNextiPrintRound<s,4>53 利用格里高利公式：α/4=1-1/3+1/5-1/7+1/9-1/11+…-1/99,求α的值.要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位. 3.12s=0a=1Fori=1To99Step2s=s+1/i*aa=-aNextiPrintRound<s*4,2>54 求1/<1*2>+1/<2*3>+1/<3*4>++1/<N*<N+1>>的值,N=20,要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位. 0.95s=0Fori=1To20s=s+1/<i*<i+1>>NextiPrintRound<s,2>55 求500以內(nèi)〔含500能被5或9整除的所有自然數(shù)的倒數(shù)之和.按四舍五入的方式精確到小數(shù)點(diǎn)后第二位. 1.48s=0Fori=1To500IfiMod5=0OriMod9=0Thens=s+1/iEndIfNextiPrintRound<s,2>56 求S=1/2+2/3+3/5+5/8+……的前30項(xiàng)的和〔注：該級(jí)數(shù)從第二項(xiàng)開始,其分子是前一項(xiàng)的分母,其分母是前一項(xiàng)的分子與分母的和.要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位. 18.46s=0a=1b=2Fori=1To30s=s+a/bt=aa=bb=t+bNextiPrintRound<s,2>57 設(shè)S<n>=1-1/3+1/5-1/7+…1/<2n-1>,求S〔100的值,要求S<100>按四舍五入方式精確到小數(shù)點(diǎn)后4位. 0.7829s=0a=1Fori=1To100s=s+1/<2*i-1>*aa=-aNextiPrintRound<s,4>58 當(dāng)n=50時(shí),求下列級(jí)數(shù)和：S=1/〔1*2+1/〔2*3+…+1/<n*<n+1>>

要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位. 0.9804s=0Fori=1To50s=s+1/<i*<i+1>>NextiPrintRound<s,4>59 計(jì)算y=1+2/3+3/5+4/7+…+n/<2*n-1>的值,n=50,要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位. 26.47s=0Fori=1To50s=s+i/<2*i-1>NextiPrintRound<s,2>60 計(jì)算Y=X/1!-X^3/3!+X^5/5!-X^7/7!+……前20項(xiàng)的值<已知：X=2>.要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位. 0.91s=0x=2a=1t=1Fori=1To20*2+1t=t*iIfiMod2<>0Thens=s+x^i/t*aa=-aEndIfNextiPrintRound<s,2>61 求數(shù)列：2/1,3/2,5/3,8/5,13/8,21/13,……前50項(xiàng)之和<注：此數(shù)列從第二項(xiàng)開始,其分子是前一項(xiàng)的分子與分母之和,其分母是前一項(xiàng)的分子>.〔按四舍五入的方式精確到小數(shù)點(diǎn)后第二位 81.2s=0a=2b=1Fori=1To50s=s+a/bt=aa=a+bb=tNextiPrintRound<s,2>62 已知：A1=1,A2=1/<1+A1>,A3=1/<1+A2>,A4=1/<1+A3>,……,求A50.〔按四舍五入的方式精確到小數(shù)點(diǎn)后第三位. 0.618a=1Fori=2To50a=1/<1+a>NextiPrintRound<a,3>63 已知：Sn=2/1+3/2+4/3+…+<n+1>/n,求Sn不超過50的最大值〔按四舍五入的方式精確到小數(shù)點(diǎn)后第三位. 49.395s=0i=1DoWhiles<50t=<i+1>/is=s+ti=i+1LoopPrintRound<s-t,3>7.平方數(shù)64 若一個(gè)四位正整數(shù)是另一個(gè)正整數(shù)的平方,且各位數(shù)字的和是一個(gè)平方數(shù),則稱該四位正整數(shù)是"四位雙平方數(shù)".例如：由于7396=86^2,且7+3+9+6=25=5^2,則稱7396是"四位雙平方數(shù)".求所有"四位雙平方數(shù)"之和. 81977s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10x=Sqr<i>y=Sqr<a+b+c+d>Ifx=Int<x>Andy=Int<y>Thens=s+iNextiPrints65 自然數(shù)對(duì)是指兩個(gè)自然數(shù)的和與差都是平方數(shù),如8和17的和8+17=25與其差17-8=9都是平方數(shù),則稱8和17是自然數(shù)對(duì)〔8,17.假定〔A,B與〔B,A是同一個(gè)自然數(shù)對(duì)且假定A>=B,求所有小于或等于100〔即：A<=100,B<=100,A<>B,A和B均不為0的自然數(shù)對(duì)中B之和.1160s=0Fora=1To100Forb=1Toa-1x=Sqr<a+b>y=Sqr<a-b>Ifx=Int<x>Andy=Int<y>Thens=s+bNextb,aPrints66 若一個(gè)四位正整數(shù)是另一個(gè)正整數(shù)的平方,且各位數(shù)字的和是一個(gè)平方數(shù),則稱該四位正整數(shù)是"四位雙平方數(shù)".例如：由于7396=86^2,且7+3+9+6=25=5^2,則稱7396是"四位雙平方數(shù)".若把所有"四位雙平方數(shù)"按升序排列,求前10個(gè)"四位雙平方數(shù)"的和.29690s=0n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10x=Sqr<i>y=Sqr<a+b+c+d>Ifx=Int<x>Andy=Int<y>Thens=s+i:n=n+1Ifn=10ThenExitForNextiPrints67 所謂"同構(gòu)數(shù)"是指這樣一個(gè)數(shù),它出現(xiàn)在它的平方數(shù)的右側(cè),例如5的平方是25,25的平方是625,故5和25都是同構(gòu)數(shù),求[2,1000]之間所有同構(gòu)數(shù)之和. 1113s=0Fori=2To1000x=i^2t=10DoWhilex\t>0A=xModtt=t*10IfA=iThenExitDoLoopIfA=iThens=s+iNextiPrints68 自然數(shù)對(duì)是指兩個(gè)自然數(shù)的和與差都是平方數(shù),如8和17的和8+17=25與其差17-8=9都是平方數(shù),則稱8和17是自然數(shù)對(duì)〔8,17.假定〔A,B與〔B,A是同一個(gè)自然數(shù)對(duì)且假定A>=B,求所有小于或等于100〔即：A<=100,B<=100,A<>B,A和B均不為0的自然數(shù)對(duì)中A-B之差的和. 509s=0Fora=1To100Forb=1Toa-1x=Sqr<a+b>y=Sqr<a-b>Ifx=Int<x>Andy=Int<y>Thens=s+a-bNextb,aPrints8.Fibonaci<累加數(shù)列>69 已知f<n>=f<n-1>+2f<n-2>-5f<n-3>,f<0>=1,f<1>=2,f<2>=3,求f<0>+f<1>+…f<30>.-750874f0=1f1=2f2=3s=f0+f1+f2Fori=3To30f3=f2+2*f1-5*f0s=s+f3f0=f1f1=f2f2=f3NextiPrints70 已知f<0>=f<1>=1f<2>=0

f<n>=f<n-1>-2*f<n-2>+f<n-3><n>2>

求f<0>到f<50>中的最大值598325f0=1f1=1f2=0Max=f1Fori=3To50f3=f2-2*f1+f0Iff3>MaxThenMax=f3f0=f1f1=f2f2=f3NextiPrintMax71 已知Fibonacci數(shù)列：1,1,2,3,5,8,……,它可由下面公式表述：

F<1>=1ifn=1

F<2>=1ifn=2

F<n>=F<n-1>+F<n-2>ifn>2

試求F<2>+F<4>+F<6>+……+F<50>值.20365011073f1=1f2=1s=f2Fori=3To50f3=f2+f1IfiMod2=0Thens=s+f3f1=f2f2=f3NextiPrints72 已知Fibonacci數(shù)列：1,1,2,3,5,8,……,它可由下面公式表述：

F<1>=1ifn=1

F<2>=1ifn=2

F<n>=F<n-1>+F<n-2>ifn>2

試求F<50>值.f1=1f2=1Fori=3To50f3=f2+f1f1=f2f2=f3NextiPrintf373 斐波那契數(shù)列的前二項(xiàng)是1,1,其后每一項(xiàng)都是前面兩項(xiàng)之和,求：10000000以內(nèi)最大的斐波那契數(shù)？ 9227465f1=1f2=1DoWhilef2<10000000f3=f2+f1f1=f2f2=f3LoopPrintf174 數(shù)列E<1>=E<2>=1

E<n>=<n-1>*E<n-1>+<n-2>*E<n-2><n>2>

稱為E數(shù)列,每一個(gè)E<n>,<n=1,2,…>稱為E數(shù).求[1,30000]之內(nèi)E數(shù)的個(gè)數(shù). 8E1=1E2=1n=2DoWhileE2<30000E3=<n-1>*E2+<n-2>*E1n=n+1E1=E2E2=E3LoopPrintn-275 已知f<0>=f<1>=1

f<2>=0f<n>=f<n-1>-2f<n-2>+f<n-3><n>2>

求f<0>到f<50>的所有51個(gè)值中的最大值〔或最小值'598325<'-288959>f0=1f1=1f2=0Min=f0Max=f1Fori=3To50f3=f2-2*f1+f0Iff3>MaxThenMax=f3Iff3<MinThenMin=f3f0=f1f1=f2f2=f3NextiPrintMax,Min76 已知Fibonacci數(shù)列：1,1,2,3,5,8,……,它可由下面公式表述：

F<1>=1ifn=1

F<2>=1ifn=2

F<n>=F<n-1>+F<n-2>ifn>2

試求F<f1=1f2=1s=f1Fori=3To49f3=f2+f1IfiMod2<>0Thens=s+f3f1=f2f2=f3NextiPrints77 已知Fibonacci數(shù)列：1,1,2,3,5,8,……,它可由下面公式表述：

F<1>=1ifn=1

F<2>=1ifn=2

F<n>=F<n-1>+F<n-2>ifn>2

試求F<45>值.1134903170f1=1f2=1s=f1Fori=3To45f3=f2+f1f1=f2f2=f3NextiPrintf378 已知一個(gè)數(shù)列的前三項(xiàng)為0,0,1,以后各項(xiàng)都是其相鄰的前三項(xiàng)之和,求該數(shù)列前30項(xiàng)之和. 18947744f1=0f2=0f3=1s=f1+f2+f3Fori=4To30f4=f3+f2+f1s=s+f4f1=f2f2=f3f3=f4NextiPrints79 設(shè)S=1+1/2+1/3+…1/n,n為正整數(shù),求使S不超過10〔S≤10的最大的n. 12367s=0n=1DoWhiles<=10s=s+1/nn=n+1LoopPrintn-180 已知S1=2,S2=2+4,S3=2+4+6,S4=2+4+6+8,S5=2+4+6+8+10,…,求S=S1+S2+S3+S4+S5+…+S20的值. 3080s=0:n=0Fori=1To20n=n+2*is=s+nNextiPrints9.a,b,c,d,e類81 設(shè)有十進(jìn)制數(shù)字a,b,c,d和e,它們滿足下列式子：abcd*e=bcde<a不等于0,e不等于0或1>,求滿足上述條件的所有四位數(shù)abcd的和.3665s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThens=s+iNexteNextiPrints82 設(shè)有十進(jìn)制數(shù)字a,b,c,d和e,它們滿足下列式子：abcd*e=bcde<a不等于0,e不等于0或1>,求滿足上述條件的最大四位數(shù)abcd的值. 1999Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThens=iNexteNextiPrints83 設(shè)有十進(jìn)制數(shù)字a,b,c,d和e,它們滿足下列式子：abcd*e=bcde<a不等于0,e不等于0或1>,求滿足上述條件的四位數(shù)abcd的個(gè)數(shù). 2n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThenn=n+1NexteNextiPrintn84 有十進(jìn)制數(shù)字a,b,c,d和e,它們滿足下列式子：abcd*e=bcde<a不等于0,e不等于0或1>,求滿足上述條件的所有四位數(shù)bcde的和. 16659s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9t=b*1000+c*100+d*10+eIfi*e=tThens=s+tNexteNextiPrints85 設(shè)有6個(gè)十進(jìn)制數(shù)字a,b,c,d,e,f,求滿足abcdf×e=fdcba條件的五位數(shù)abcdf<a≠0,e≠0,e≠1>的個(gè)數(shù).2n=0Fori=10000To99999a=i\10000b=i\1000Mod10c=i\100Mod10d=i\10Mod10f=iMod10Fore=2To9t=f*10000+d*1000+c*100+b*10+aIfi*e=tThenn=n+1NexteNextiPrintn10.方程86 求方程8x-5y=3,在|x|<=150,|y|<=200內(nèi)的整數(shù)解.試問這樣的整數(shù)解有多少組？ 50n=0Forx=-150To150Fory=-200To200If8*x-5*y=3Thenn=n+1Nexty,xPrintn87 求方程8x-5y=3,在|x|<=150,|y|<=200內(nèi)的整數(shù)解.試問這樣的整數(shù)解中|x|*|y|的最大值是多少？ 24676Max=0Forx=-150To150Fory=-200To200If8*x-5*y=3AndAbs<x>*Abs<y>>MaxThenMax=Abs<x>*Abs<y>Nexty,xPrintMax88 若〔x,y,z滿足方程：x^2+y^2+z^2=55^2<注：要求x>y>z>,則〔x,y,z稱為方程的一個(gè)解.試求方程的所有整數(shù)解中,|x|+|y|+|z|的最大值和最小值.最大95'最小67Max=0Min=55^2Forx=-55To55Fory=-55Tox-1Forz=-55Toy-1Ifx^2+y^2+z^2=55^2Thens=Abs<x>+Abs<y>+Abs<z>Ifs>MaxThenMax=sIfs<MinThenMin=sEndIfNextz,