谁有质数表怎样算的?

来源：学生作业帮助网编辑：六六作业网时间：2024/11/23 14:26:18

谁有质数表怎样算的?谁有质数表怎样算的?谁有质数表怎样算的?PrivateFunctioncheck(iAsInteger)AsBooleanForj=2ToCInt(Sqr(i))+1''从2循环到i

谁有质数表怎样算的?
谁有质数表
怎样算的?

谁有质数表怎样算的?
Private Function check(i As Integer) As Boolean
For j = 2 To CInt(Sqr(i)) + 1 '从2循环到i的平方根
If i Mod j = 0 Then '如果i除以j的余数为0,说明i不是素数
check = False '返回false
Exit Function '退出本过程
End If
Next j
check = True '循环结束没有退出过程,说明i不能整除从2到i平方根的所有数,也就是说i是素数,返回true
End Function
Private Sub Cmd2_Click()
Dim i As Integer
i = CInt(Text1.Text) '取一个数,转化为整数
If i Mod 2 = 0 Then '如果是偶数
i = i - 1 '取比它下的最大奇数,因为只有奇数才可能是素数
Else
i = i - 2 '同样是取比它下的最大奇数
End If
Do Until check(i) '循环到check(i)为true,也就是找到最大的素数
i = i - 2 '减2是为了使i一直是奇数
Loop
Text2.Text = i '输出这个素数
End Sub
以上程序可以检测一个属是否为质数
要输出质数可以这样：
Dim i As Long
For i = 1 To 1000
If Check(i) Then
Print i
End if
Next
这样可以求出 1—1000 以内所有质数

谁有质数表怎样算的? 怎样计算的质数怎样做质数表? 有没有质数乘质数等于质数的数 ( )x( )=( ) 质数质数质数谁有1至100的质数表? 谁教我数学题,质数和合数?质数和合数是怎样的? 有没有500内的质数表? 86的因数中质数有谁怎样证明质数有无数个有关质数的概念例如不大于20的质数应该如何去算?质数有什么规律吗? 质数是什么怎样知道他只质数有怎样计算那怎样以质数定义验证呢除了除了2和3两个质数外,其余的质数都分布在哪列中?如果把这表扩大到90,此时的质数的分布情况是怎样的这个表格是一个冲1到42的数,质数有2 3 5 7 11 13 17 19 23 29 31 37 41 100以内的质数怎样背容易怎样的数叫奇数,质数质数是怎样求出来的怎样快速记忆100以内的质数质数表的口诀 891的质数表