产生一个1-N 的不重复随机数

littlekey

刚才发表过帖子
然后也试了各位朋友的代码
还是发现有重复的
最后使用Excel 产生不重复随机数的方法
修改了放到Access
没想到也适合
发上来和大家共享一下

一下代码可以产生一个1-N的不重复随机数，N用的是rn控制：

1. 
   
2. Private Function fncRndNum(rn As Long) '产生1-n不重复随机数
   
3. Dim i%, j%, k%, X%, arr
   
4. ReDim arr(1 To rn)
   
5. For i = 1 To rn
   
6. arr(i) = i
   
7. Next
   
8. '任取数组中两个数，并交换位置，即可得到一组随机排列的不重复的连续整数数组
   
9. Randomize '<------------ADD THIS LINE
   
10. For i = 1 To rn
    
11. j = Int(rn * Rnd) + 1 '任取数组中的一个下标
    
12. k = Int(rn * Rnd) + 1 '任取数组中的另一个下标
    
13. '交换位置
    
14. X = arr(j)
    
15. arr(j) = arr(k)
    
16. arr(k) = X
    
17. Next
    
18. fncRndNum = arr
    
19. End Function

复制代码