vb循環(huán)程序例題100道附答案

1、第1頁VBVB循環(huán)程序例題附答案循環(huán)程序例題附答案1.1.素數(shù)素數(shù)1.[100，999]范圍內(nèi)同時滿足以下兩個條件的十進制數(shù).⑴其個位數(shù)字與十位數(shù)字之和除以10所得的余數(shù)是百位數(shù)字；⑵該數(shù)是素數(shù)求有多少個這樣的數(shù)？15n=0Fi=100To999a=i100b=i10Mod10c=iMod10If(cb)Mod10=aThenx=0Fj=2Toi1IfiModj=0Thenx=1:ExitFNextjIfx=0Thenn=n1EndIf

2、NextiPrintn2.[300，800]范圍內(nèi)同時滿足以下兩個條件的十進制數(shù).⑴其個位數(shù)字與十位數(shù)字之和除以10所得的余數(shù)是百位數(shù)字；⑵該數(shù)是素數(shù)；求滿足上述條件的最大的三位十進制數(shù)。761Fi=300To800a=i100b=i10Mod10c=iMod10If(cb)Mod10=aThenx=0Fj=2Toi1IfiModj=0Thenx=1:ExitFNextjIfx=0Thens=iEndIfNextiPrints3.除1和

3、它本身外，不能被其它整數(shù)整除的正整數(shù)稱為素數(shù)（注：1不是素數(shù)，2是素數(shù)）。若兩素數(shù)之差為2，則稱兩素數(shù)為雙胞胎數(shù)，問[31601]之間有多少對雙胞胎數(shù)。22n=0Fi=31To6012x=0Fj=2ToSqr(i)第3頁Prints6.一個素數(shù)（設(shè)為p）依次從最高位去掉一位，二位，三位，……，若得到的各數(shù)仍都是素數(shù)(注：除1和它本身外，不能被其它整數(shù)整除的正整數(shù)稱為素數(shù)，1不是素數(shù)，2是素數(shù)），且數(shù)p的各位數(shù)字均不為零，則稱該數(shù)p為逆向

4、超級素數(shù)。例如，617，17，7都是素數(shù)，因此617是逆向超級素數(shù)，盡管503，03，3都是素數(shù)，但它不是逆向超級素數(shù)，因為它包含有零。試求[100999]之內(nèi)的所有逆向超級素數(shù)的個數(shù)。39n=0Fi=100To999a=i10Mod10b=iMod10Ifa0b1Thenx=0Fj=2ToSqr(i)IfiModj=0Thenx=1:ExitFNextjIfx=0Theny=0c=iMod100Fj=2ToSqr(c)IfcModj=

5、0Theny=1:ExitFNextjIfy=0Thenz=0Fj=2ToSqr(b)IfbModj=0Thenz=1:ExitFNextjIfz=0Thenn=n1EndIfEndIfEndIfNextiPrintn7.德國數(shù)學(xué)家哥德巴赫曾猜測：任何大于6的偶數(shù)都可以分解成兩個素數(shù)（素數(shù)對）的和。但有些偶數(shù)可以分解成多種素數(shù)對的和，如：10=37，10=55，即10可以分解成兩種不同的素數(shù)對。試求1234可以分解成多少種不同的素數(shù)對（