java - 如何模拟 Int32 溢出？

Question

我的一位同事用 Java 开发了一些东西，可以用 Java 进行一些简单的计算。我正在将代码转换为 VBA，但我意识到一旦计算结果为 11 位或更多，计算就会不同步。

Java代码

int prime = 31;
int result = 1;
String test = "Periwinkle"

for (char c : test.toCharArray()) {
 result = prime * result + Character.getNumericValue(c);
 System.out.println("letter " + c + " number " + Character.getNumericValue(c));
 System.out.println(result + " from " + c);
}
 System.out.println(Math.abs(result));

VBA代码

Dim arr As Variant
Dim letr As String
Dim num As Integer
Dim result, prime As Integer

For Each cell In Range("A1") 'A1 = Periwinkle
    result = 1
    prime = 31
    arr = CharacterArray(cell.value)
 For Each element In arr
    letr = element
    'Debug.Print "Letter: " & letr
    num = getNumber(letr)
    'Debug.Print "Number: " & num
    result = prime * result + num
    'Debug.Print "Result: " & result
    Cells(cell.Row, 3).value = Math.Abs(result)
 Next
Next

所有计算都是同步的，直到字母“n”为止，其中 Java 中的计算结果为“-1413090664”，而 VBA 中的结果为“50126516888”。问题在于，在 Java 中，由于 result 被定义为 int，它最多不能容纳 11 位数字，从而导致负数。

注意:我知道我可以更改 Java 代码以使用 double ，但我无法进行此更改。我正在寻找 VB 中的解决方法。

我需要尽可能模仿Java代码，所以我需要VBA代码来模拟一个unchecked Int32溢出。如何做到这一点？

Answer 1

无法禁用溢出检查，但您可以通过使用两个 int32 来避免它。此 VBA 函数将为您提供完全相同的结果:

Sub Usage()
  Debug.Print Hash("Periwinkle")
End Sub

Public Function Hash(text As String) As Long
  Dim lo&, hi&, i%
  lo = 1
  For i = 1 To Len(text)
    lo = 31& * (lo And 65535) + GetNumericValue(AscW(Mid$(text, i, 1)))
    hi = 31& * (hi And 65535) + (lo \ 65536)
  Next
  Hash = Abs((lo And 65535) + (hi And 32767) * 65536 + (&H80000000 And -(hi And 32768)))
End Function

Private Function GetNumericValue(ByVal c As Integer) As Integer
  Select Case c
    Case 48 To 57:   GetNumericValue = c - 48  '[0-9]'
    Case 65 To 90:   GetNumericValue = c - 55  '[A-Z]'
    Case 97 To 122:  GetNumericValue = c - 87  '[a-z]'
    Case 188 To 190: GetNumericValue = -2
    Case 178:        GetNumericValue = 2
    Case 179:        GetNumericValue = 3
    Case 185:        GetNumericValue = 1
    Case Else:       GetNumericValue = -1
  End Select
End Function

请注意，Java 代码正在计算从 FNV 算法派生的哈希值。