Visual Basic简单洗牌例程

Question

我需要在Visual Basic中洗牌4个数字的数组。尝试了很多不同的代码片段，但似乎没有一个适合我。寻找尽可能简单的解决方案。

Answer 1

试试这个。无论数组的长度是多少，这段代码都可以工作:

Dim temp As Integer
Dim rand As New Random
Dim r As Integer
For x As Integer = 0 To _yourArray.Count - 1
temp = _yourArray(x)
r = rand.Next(1, _yourArray.Count)
_yourArray(x) = _yourArray(r)
_yourArray(r) = temp
Next