vb.net - Visual Basic 简单的随机播放例程

Question

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

标签： vb.netshuffle

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