VBA产生随机数的函数

最新推荐文章于 2024-10-25 22:35:45 发布

原创

最新推荐文章于 2024-10-25 22:35:45 发布 · 1.2w 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#VBA 随机数

本文介绍了如何在VBA中使用函数生成随机数，详细讲解了调用方法，帮助读者掌握在VBA编程中创建随机数序列的技能。

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

<span style="font-family: Arial, Helvetica, sans-serif;"></span><pre name="code" class="vb">'Dim min As Integer                             '定义随机数的最小值
'Dim max As Integer                             '定义随机数的最大值
'限制只产生500个，VBA的速度问题
Public Function CreateRND(ByVal min As Integer, _
                ByVal max As Integer) As Integer()
    
    Dim a_size As Integer
    
    a_size = max - min
    
    If a_size > 500 Or max - min + 1 < a_size Then: Exit Function             '限制只产生500个，VBA的速度问题
                                               '如果最大值和最小值的差小于数组大小数值就什么也不做
     
    
    Dim arr() As Integer                            '定义数组
    ReDim arr(a_size)                               '更改数组大小
    Dim flag As Boolean                             '定义标志变量，用来判断是否有重复值
    
    Randomize (Now())                               '用当前时间生成随机数种子
    
    For i = 0 To a_size                             '循环生成随机数