Dzwebs.Net

撰写电脑技术杂文十余年

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

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

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  通过如下的代码,你就可以在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个随机数的。


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231