论坛 › 已解决问题区 › 出题:枚举N以内的质数(素数)[已解决]

cvwyg 发表于 2013-3-15 19:40:59

收藏了。谢谢楼主分享

星云散落 发表于 2013-3-17 08:27:23

学习啊~~~~~~~~~

gczxhzb 发表于 2013-8-6 15:53:50

自己的效率太低下了

82809085 发表于 2013-10-27 19:42:22

看看什么东西看看什么东西看看什么东西看看什么东西看看什么东西

vteovi 发表于 2013-11-7 14:12:46

看看怎么才能提高效率

xjdjpbp 发表于 2013-11-8 00:01:33

看看結果~

順便學學到底什麼是素數

akk08 发表于 2013-11-14 12:08:04

进来学习一下

mjjzt 发表于 2013-12-14 17:34:41

看看 你写的，什么是效率

MaGiCmAn 发表于 2013-12-16 00:46:52

留名学习！谢谢分享！

netegg 发表于 2013-12-26 11:03:51

Func _IsPrime($i_num)
    If StringIsDigit($i_num) = 0 Then Return -1
    If $i_num > 3 Then
      If Mod($i_num, 2) = 0 Then Return 0
      If Mod($i_num, 3) = 0 Then Return 0
    EndIf
    If $i_num = 1 Then Return 0
    Dim $divisor, $increment, $maxdivisor
    $divisor = 5
    $increment = 2
    $maxdivisor = Sqrt($i_num) + 1
   
    Do
      If Mod($i_num, $divisor) = 0 And $i_num <> $divisor Then Return 0
      $divisor = $divisor + $increment
      $increment = 6 - $increment
    Until $divisor > $maxdivisor
    Return 1
EndFunc ;==>_IsPrime

moyixiang901 发表于 2014-5-7 23:25:59

看看大神的方法！！支持！！

nqawen 发表于 2014-7-8 16:47:19

学习来了，谢谢

樱花雪月 发表于 2014-9-18 09:21:19

看看是什么好东西哟

bocky 发表于 2015-5-12 10:04:44

跟前辈学习了

fan6287400 发表于 2015-9-8 11:01:37

谢谢分享，回复学习。

查看完整版本: 出题:枚举N以内的质数(素数)[已解决]