废话不多说,直接上代码:
Sub RandomSort(Of T)(ByRef MyArray As T())
Randomize()
MyArray = MyArray.OrderBy(Function() Rnd()).ToArray
End Sub
使用泛型表达,通用性好,使用时直接传入目标数组即可,例如:
Dim arr As Integer() = {0, 1, 2, 3, 4, 5}
RandomSort(arr)
Dim arr As String() = {"a", "b", "c", "d", "e"}
RandomSort(arr)