关于VBA中一、二维有序数组随机排序问题

过客fppt

说明：在一二维数组排序问题之后，想到了有序数组随机排序问题，随机排序可以应用在一些常见的场景中，比如：选择题的选项随机排序，题目随机排序，人员名单随机排序等等.....，问了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