为什么我在 Visual Basic 中创建的两个随机数每次都相同？

Question

为什么每次运行代码时 RandomInt1 和 RandomInt2 总是相同的数字？

    Dim RandomGen1 As New Random
    Dim RandomInt1 As Integer
    RandomInt1 = RandomGen1.Next(2, 7)

    Dim RandomGen2 As New Random
    Dim RandomInt2 As Integer
    RandomInt2 = RandomGen2.Next(2, 7)

Answer 1

令人兴奋的有趣事实：计算机中没有truly 随机数之类的东西，.NET 框架对这个概念的实现与您的问题有关。

当您使用 .NET 启动程序时，您创建的每个随机数生成器（在给定范围内）都会产生相同的数字序列。当您的程序启动时，您将获得的结果序列已经由实例以某种方式选择的种子确定。以此种子开始的任何随机化都会产生相同的数字序列。这是命运。

解决方案是只使用一个“生成器”（或“命运处理器”），并在需要新号码时继续调用.Next 方法。你的项目听起来很酷，但我编辑了你的帖子以尽可能清晰。祝你好运：

    Dim RandomGen1 As New Random
    Dim RandomInt1 As Integer
    RandomInt1 = RandomGen1.Next(2, 7)

    'notice I did not make a RandomGen2, it will just give me the same numbers as RandomGen1
    Dim RandomInt2 As Integer
    RandomInt2 = RandomGen1.Next(2, 7)