Visual Basic 简单洗牌例程
Visual Basic simple shuffle routine
我需要在 Visual Basic 中随机排列 4 个数字的数组。
尝试了很多不同的代码片段，但 none 似乎对我有用。
寻找尽可能简单的解决方案。
试试这个。无论数组的长度是多少，此代码都有效：
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
我需要在 Visual Basic 中随机排列 4 个数字的数组。 尝试了很多不同的代码片段，但 none 似乎对我有用。 寻找尽可能简单的解决方案。
试试这个。无论数组的长度是多少，此代码都有效：
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