vb循環(huán)程序例題100道附答案_第1頁
已閱讀1頁,還剩30頁未讀 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

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

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

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

4、超級素數。例如,617,17,7都是素數,因此617是逆向超級素數,盡管503,03,3都是素數,但它不是逆向超級素數,因為它包含有零。試求[100999]之內的所有逆向超級素數的個數。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.德國數學家哥德巴赫曾猜測:任何大于6的偶數都可以分解成兩個素數(素數對)的和。但有些偶數可以分解成多種素數對的和,如:10=37,10=55,即10可以分解成兩種不同的素數對。試求1234可以分解成多少種不同的素數對(

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論