Rem 語言：Visual Basic 6.0

Sub Main() ?開始

i = 2

Do

j = 2

Do Until i mod j = 0 Or j * j > i

j = j + 1

Loop

If j * j > i Then

MsgBox i,vbInformation,"輸出"

End If

If Not (i < 100) Then Exit Do

i = i + 1

Loop

End Sub ?結(jié)束

1到100之間的素數(shù)流程圖如下所示：

質(zhì)數(shù)又稱素數(shù)，有無限個。一個大于1的自然數(shù)，除了1和它本身外，不能被其他自然數(shù)整除，換句話說就是該數(shù)除了1和它本身以外不再有其他的因數(shù)；否則稱為合數(shù)。根據(jù)算術基本定理，每一個比1大的整數(shù)，要么本身是一個質(zhì)數(shù)，要么可以寫成一系列質(zhì)數(shù)的乘積；而且如果不考慮這些質(zhì)數(shù)在乘積中的順序，那么寫出來的形式是唯一的。最小的質(zhì)數(shù)是2。

Rem 語言：Visual Basic 6.0

Sub Main()? 開始

i = 2

Do

j = 2

Do Until i mod j = 0 Or j * j > i

j = j + 1

Loop

If j * j > i Then

MsgBox i, vbInformation, "輸出"

End If

If Not (i < 100) Then Exit Do

i = i + 1

Loop

End Sub? 結(jié)束這個的話我?guī)湍惝嫼冒l(fā)到你的QQ郵箱里。

總結(jié)

以上是生活随笔為你收集整理的raptor找素数_raptor取50到100素数的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。