【发布时间】：2017-07-08 15:42:03
【问题描述】：
更新
解决后我正在清理这篇文章。总而言之，我正在为 excel 创建一个用户定义的公式，用于计算下一个最高的素数（=NextHighestPrimeNumber(100) 返回101）。当我开始试验时，我注意到这个公式会在大约 21 亿时出错。我认为它可能已连接到我的变量，所以我尝试了 DOUBLE，但仍然收到错误。
函数如下：
Function NextHighestPrimeNumber(StartingNumber As Double) As Variant
Dim CeilingTest As Long
Dim i As Long
If StartingNumber < 11 Then
If StartingNumber > 6 Then
NextHighestPrimeNumber = 11
ElseIf StartingNumber > 4 Then
NextHighestPrimeNumber = 7
ElseIf StartingNumber > 2 Then
NextHighestPrimeNumber = 5
ElseIf StartingNumber > 0 Then
NextHighestPrimeNumber = 3
ElseIf StartingNumber = 0 Then
NextHighestPrimeNumber = 1
Else
NextHighestPrimeNumber = "Pick A Positive Integer"
End If
Exit Function
Else
'Create Array
ReDim Prime_Array(0 To 4) As Double
GoTo StartArrayPopulate
DoneWithStartingArray:
If StartingNumber Mod 2 = 0 Then
StartingNumber = StartingNumber - 1
End If
NewNumber:
StartingNumber = StartingNumber + 2
CeilingTest = Int(VBA.Sqr(StartingNumber))
'Array loop
For i = LBound(Prime_Array) To UBound(Prime_Array)
If Prime_Array(i) > CeilingTest Then
NextHighestPrimeNumber = StartingNumber
Exit Function
ElseIf StartingNumber Mod Prime_Array(i) = 0 Then GoTo NewNumber
End If
Next i
'Add new Array Value
ExpandDim:
ReDim Preserve Prime_Array(UBound(Prime_Array) + 1)
Prime_Array(UBound(Prime_Array)) = NextHighestPrimeNumber(Prime_Array(UBound(Prime_Array) - 1))
'test if bigger than cieling
If Prime_Array(UBound(Prime_Array)) > CeilingTest Then
NextHighestPrimeNumber = StartingNumber
Exit Function
ElseIf StartingNumber Mod Prime_Array(UBound(Prime_Array)) = 0 Then GoTo NewNumber
Else
GoTo ExpandDim
End If
End If
Exit Function
StartArrayPopulate:
Prime_Array(0) = 3
Prime_Array(1) = 5
Prime_Array(2) = 7
Prime_Array(3) = 11
Prime_Array(4) = 13
GoTo DoneWithStartingArray
End Function
【问题讨论】：
-
"LONG 变量，其范围应最大为 9,223,372,036,854,775,807" 这是在 VB.net 而不是 VBA 中。在后一种类型中，
long是 4 个字节。 -
显然您已经查阅了 VB.NET 参考。请咨询VBA reference。
-
VB datatypes size的可能重复
-
@GSerg 我现在是一个更有经验的overstacker（这是一个词吗？？）。我认为这不能与您引用的内容重复，因为这最终是 MOD 函数专门使用数字作为 LONG 的方式。正如我的帖子在其原始状态中所说，当我切换到使用 DOUBLE 而不是 LONG 时它仍然失败，所以这并不是关于变量类型的问题，即使我最初做了不正确的引用。如果您删除降价和重复引用，我将不胜感激。没有像我在网站上的第一篇文章那样感到难过...谢谢。
标签： excel vba primes user-defined-functions long-integer