c# - OverflowException 仅在 VB.net 中，而不在 C# 中

Question

出于自学目的，我试图找到一种方法来自己创建高度图。我在谷歌上搜索了一下，发现了一个创建伪随机数的函数。

    public static float Noise(int x)
    {
        x = (x << 13) ^ x;

        return (1f - ((x * (x * x * 15731 + 789221) + 1376312589) & 0x7FFFFFFF) / 1073741824.0f);
    }

因为我选择的语言是 VB.net，所以我将这个函数翻译成:

Private Function Noise(ByVal x As Integer) As Double
    x = (x << 13) Xor x

    Return (1.0R - ((x * (x * x * 15731.0R + 789221.0R) + 1376312589.0R) And &H7FFFFFFF) / 1073741824.0R)
End Function

如果我使用 C# 版本，我会得到从 1 到 100 的 x 值的结果。如果我使用 VB.net 版本，我会得到 x<6 的值，但 x=6 时会出现 OverFlowException。当我反汇编这个函数的各个部分时，我发现溢出的部分是

(x * x * 15731.0R)

所以，我的第一个问题是:为什么我在 VB.net 中得到了 OverflowException 而在 C# 中却没有？如果一个中间结果对于它包含的变量来说太大了，无论我使用什么语言，它都应该太大。

我的第二个问题是:我该怎么做才能让它在 VB.net 中也能正常工作？

感谢您的回答。

Answer 1

Why do I get an OverflowException in VB.net but not in C#?

因为VB项目默认会检查溢出，而C#不会。如果您将项目设置为检查溢出或将代码放在 checked{ } block 中，您会在 C# 中看到相同的异常:

public static float Noise(int x)
{
    x = (x << 13) ^ x;
    checked{
        return (1f - ((x * (x * x * 15731) + 1376312589) & 0x7FFFFFFF) / 1073741824.0f);
    }
}

What can I do to make it work in VB.net as well?

我怀疑它是否适用于 C#。由于它无声地溢出，您可能得到不正确的结果。

但是，您可以通过将 x 转换为 double 来防止溢出:

Private Function Noise(ByVal x As Integer) As Double
    x = (x << 13) Xor x

    Dim y As Double = x

    Return (1.0R - ((y * (y * y * 15731.0R) + 1376312589.0R) And &H7FFFFFFF) / 1073741824.0R)
End Function

您还可以打开 VB 项目的“删除整数溢出检查”属性，但这是一个项目范围的设置。 VB 目前没有办法像 C# 那样关闭特定代码行的溢出检查。

无论您做什么，我都会对其进行彻底测试，因为您正在计算一个浮点值，对其进行位掩码(And &H7FFFFFFF)，然后除以另一个浮点值。混合使用整数和 float 可能非常棘手。

另请注意，您的两个代码段并不相同。您的 C# 函数返回一个 float，而 VB 返回一个 Double。您在 VB 中使用浮点文字，但在 C# 中使用整数文字。这可能看起来没有太大区别，但它可以出乎意料地改变数学。