當數值在數十億或更高時​​，用VBA中的Mod溢出錯誤

Question

我正在嘗試查找數字x的最大主要除數。當x小於10億時，我的代碼可以正常工作，但是當它大於10億時，會發生溢出錯誤，並且調試將突出顯示帶有Mod的行。

Sub Largest_Divisor() 
    Dim x As Double 
    Dim Q As Integer 
    Q = 0 
    Dim L() As Double 
    x = 999999999# 
    Dim i As Double 
    For i = 775145 To 3 Step -2 
     If x Mod i = 0 Then 
      If IsPrime(i) Then 
       ReDim Preserve L(Q) As Double 
       L(Q) = i 
       Q = Q + 1 
      End If 
     End If 
    Next i 
    MsgBox (Application.Max(L)) 
End Sub 

Answer 1

我懷疑這是當x比約爲2十億，2,147,483,648較大準確地說，你有麻煩了。

那是因爲每mod文檔作爲，則返回至多long，取值範圍在從值到-2,147,483,6482,147,483,647作爲32位有符號值。在幫助文檔中沒有明確說明，但mod的參數也可能強制爲long。