|
说明:在一二维数组排序问题之后,想到了有序数组随机排序问题,随机排序可以应用在一些常见的场景中,比如:选择题的选项随机排序,题目随机排序,人员名单随机排序等等.....,问了AI之后发现随机排序比前面的有序排序简单多了,在此分享给大家:
一、一维有序数组随机排序问题_示例1
1、运行效果
2、代码
​Sub 一维有序数组随机排序问题_示例1() Dim arr As Variant
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 100, 200)
arr = 一维有序数组随机排序问题(arr)
End Sub
Function 一维有序数组随机排序问题(arr)
Randomize ' 初始化随机数种子
' 使用 Fisher-Yates 随机置换算法对数组进行随机排序
For i = UBound(arr) To LBound(arr) Step -1
j = Int((i + 1) * Rnd)
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
Next
一维有序数组随机排序问题 = arr
End Function
二、二维有序数组随机排序问题_示例2
1、运行效果
2、代码​
Sub 二维有序数组随机排序问题_示例2()
Dim arr() As Variant
arr = Array(Array("张三", "男", 26), _
Array("李四", "女", 29), _
Array("王五", "男", 30), _
Array("赵六", "男", 55))
打印二维数组 arr
二维有序数组随机排序问题 arr
打印二维数组 arr
End Sub
Function 二维有序数组随机排序问题(arr)
Randomize ' 初始化随机数种子
' 使用 Fisher-Yates 随机置换算法对二维数组进行随机排序
For i = UBound(arr) To LBound(arr) Step -1
j = Int((i + 1) * Rnd)
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
Next
End Function
|
|