百万以内的质数函数求解法？

xtmyd5156

今天在做题，碰到一个求质数的问题，1000，10000，100000，以内使用函数相对容易，但随着计算量增大，就必须要考虑优化，要不然很卡，甚至会死机。现在希望通过函数方法求出至少1000000以内，最好2000000以内的所有质数。我使用WPS130+求出了2000000的质数，出结果较慢1分钟以内，但在365中就直接报资源不足了。在此发贴看看论坛大佬是否有更好更优的函数解法。

飞天篮球猪

仅供参考...1000万以内质数2秒，本机6G内存

xtmyd5156

这不是excel函数吧，不过也感谢你

leepoison

定义一个prime函数    格式prime(2,1000),溢出改用transpose(prime(2,1000000)




Function prime(minNum As Long, maxNum As Long) As Variant
    Dim i As Long, j As Long
    Dim isPrime As Boolean
    Dim primeList() As Long
    Dim primeCount As Long
    ReDim primeList(1 To 1, 1 To (maxNum - minNum) \ 2)
    For i = minNum To maxNum
        isPrime = True
        For j = 2 To Int(Sqr(i))
            If i Mod j = 0 Then
                isPrime = False
                Exit For
            End If
        Next j
        If isPrime Then
            primeCount = primeCount + 1
            primeList(1, primeCount) = i
        End If
    Next i
    ReDim Preserve primeList(1 To 1, 1 To primeCount)
    prime = primeList
End Function

xtmyd5156

leepoison 发表于 2025-4-2 19:42
定义一个prime函数    格式prime(2,1000),溢出改用transpose(prime(2,1000000)

研究学习一下，秒出吗？

xtmyd5156

xtmyd5156 发表于 2025-4-2 20:00
研究学习一下，秒出吗？

这是用VBA自定义函数了感谢大佬

xtmyd5156

leepoison 发表于 2025-4-2 19:42
定义一个prime函数    格式prime(2,1000),溢出改用transpose(prime(2,1000000)

如果自带函数没有好的办法就考虑自定义函数了

leepoison

xtmyd5156 发表于 2025-4-2 00:00
研究学习一下，秒出吗？

5秒出200W以内

xtmyd5156

leepoison 发表于 2025-4-2 20:10
5秒出200W以内

如果没有更好的函数方法就采用VBA自定义函数啦。

xtmyd5156

leepoison 发表于 2025-4-2 19:42
定义一个prime函数    格式prime(2,1000),溢出改用transpose(prime(2,1000000)

ReDim Preserve 应该也很吃内存，VBA算法还可以优化，减少不必要的循环。