raptor找素数_raptor取50到100素数

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邮箱里。