vba随机化数组函数

最新推荐文章于 2024-07-17 16:05:21 发布

原创最新推荐文章于 2024-07-17 16:05:21 发布 · 1.4k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vba #vector

该博客介绍了一个VBA函数randomizeArray，用于将输入的数组进行随机化操作。通过循环和Rnd函数，函数实现了数组元素的位置互换，达到随机排列的效果。在测试子程序中，展示了如何使用这个函数并打印出随机化后的数组元素。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function randomizeArray(vector As Variant) As Variant
    Dim l As Integer
    Dim u As Integer
    Dim i As Integer
    Dim rndPosition As Integer
    Dim temp As Variant
    l = LBound(vector)
    u = UBound(vector)
    For i = l To u
        rndPosition = Int((u - l + 1) * Rnd + l)
        If rndPosition <> i Then
            temp = vector(i)
            vector(i) = vector(rndPosition)
            vector(rndPosition) = temp
        End If
    Next i
    randomizeArray = vector
End Function
Sub test()
    Dim a As Variant
    a = Array(1, 2, 3, 4, 5, 6, 7, 8)
    a = randomizeArray(a)
    For i = LBound(a) To UBound(a)
        Debug.Print a(i)
    Next i
End Sub