Arrays 随机数生成似乎无法正常工作

有一件事正在发生，我不明白背后的原因

在VisualBasic中，我有一个二维整数数组，我用随机数填充它。当我使用Rnd（）执行此操作时：

它总是在矩阵中的相同位置写入相同的数字

但是，当我对随机类执行此操作时：

Dim r As Random = New Random()
For j = 0 To matrica.GetUpperBound(0)
  For i = 0 To matrica.GetUpperBound(1)
    matrica(j, i) = r.Next(0, 100)
  Next
Next

它做它应该做的

---

我不明白为什么在第一种情况下，每次运行代码时，我都会在相同的位置得到相同的数字。

在第一种情况下，您需要使用Randomize（）调用为随机数生成器设置种子。选中此项在第一种情况下，需要使用Randomize（）调用为随机数生成器设定种子。检查这个

Dim r As Random = New Random()
For j = 0 To matrica.GetUpperBound(0)
  For i = 0 To matrica.GetUpperBound(1)
    matrica(j, i) = r.Next(0, 100)
  Next
Next