在 2 个索引 VB.NET 之间对数组中的元素进行随机洗牌

Question

我正在尝试在一定数量的索引之间随机播放元素。

Dim rng As New Random()
For placeHolder As Integer = min To max Step -1
            Dim swapIndex As Integer = rng.Next(min, max)
            Dim temp As Object = myList(placeHolder)
            myList(placeHolder) = myList(swapIndex)
            myList(swapIndex) = temp
Next

其中“min”是最低索引的值，“max”是最高索引的值。然而，每次我尝试它似乎并没有随机洗牌（它总是按字母顺序出现）。

Answer 1

试试这个：

Dim rng As New Random()
For placeHolder as Integer = min To max-1 Step 1
   Dim swapIndex as Integer = rng.Next(placeHolder +1, max)
   Dim temp as Object = myList(placeHolder)
   myList(placeHolder) = myList(swapIndex)
   myList(swapIndex) = temp
Next

变化？ 我将被步进的最大值更改为比末端小 1，这样您就不会浪费时间尝试将末端与自身交换。我还将 Step 更改为 +1，因为 min

Answer 2

如果min 是最低的，max 是最高的，那么你的循环中不应该有Step -1。这将导致循环永远不会执行。