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

1、第1頁(yè)VBVB循環(huán)程序例題附答案循環(huán)程序例題附答案1.1.素?cái)?shù)素?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=0Fi=100To999a=i100b=i10Mod10c=iMod10If(cb)Mod10=aThenx=0Fj=2Toi1IfiModj=0Thenx=1:ExitFNextjIfx=0Thenn=n1EndIf

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

3、它本身外，不能被其它整數(shù)整除的正整數(shù)稱為素?cái)?shù)（注：1不是素?cái)?shù)，2是素?cái)?shù)）。若兩素?cái)?shù)之差為2，則稱兩素?cái)?shù)為雙胞胎數(shù)，問(wèn)[31601]之間有多少對(duì)雙胞胎數(shù)。22n=0Fi=31To6012x=0Fj=2ToSqr(i)第3頁(yè)P(yáng)rints6.一個(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為逆向

4、超級(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)樗辛?。試求[100999]之內(nèi)的所有逆向超級(jí)素?cái)?shù)的個(gè)數(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.德國(guó)數(shù)學(xué)家哥德巴赫曾猜測(cè)：任何大于6的偶數(shù)都可以分解成兩個(gè)素?cái)?shù)（素?cái)?shù)對(duì)）的和。但有些偶數(shù)可以分解成多種素?cái)?shù)對(duì)的和，如：10=37，10=55，即10可以分解成兩種不同的素?cái)?shù)對(duì)。試求1234可以分解成多少種不同的素?cái)?shù)對(duì)（