大众计算机学习网

专门提供各种电脑教程

用VBA产生100一百以内不相同的随机数的代码

Admin | 2012-6-21 7:02:31 | 被阅次数 | 5681

  通过如下的代码,你就可以在VBA环境下,通过VBA代码,产生100一百以内不重复的随机数。

  Sub GetValue()

  Randomize Timer
  Dim c(100) As Byte

  For i = 1 To 100 '产生100个随机数
    c(i) = i
  Next

  k = 100

  Do While l < 100

    r = Int(Rnd() * k) + 1 '随机数的范围
    aa = c(r)
    c(r) = c(k)
    c(k) = aa
    k = k - 1
    l = l + 1
    Cells(l, 1) = aa

  Loop

  End Sub

  部分代码解释:

  Randomize Timer 设置让随机数不重复

  Dim c(100) As Byte 定义一个数组,长度为100,自然,是用来保存100个随机数的。