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 ?結束

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

質數又稱素數，有無限個。一個大于1的自然數，除了1和它本身外，不能被其他自然數整除，換句話說就是該數除了1和它本身以外不再有其他的因數；否則稱為合數。根據算術基本定理，每一個比1大的整數，要么本身是一個質數，要么可以寫成一系列質數的乘積；而且如果不考慮這些質數在乘積中的順序，那么寫出來的形式是唯一的。最小的質數是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? 結束這個的話我幫你畫好發到你的QQ郵箱里。

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。