[已解决]如何生成一个随机数组

murphys1989

小白求教，怎样生成一个0~9的随机数组，如arr = Array(3 ,5 , 9 ,6 , 2, 1, 4, 8, 7, 0)，数组里面数字随机排列，但不重复？

最佳答案

月排行榜 / 总排行榜

橘子红

2016-5-8 09:28

1. Set d = CreateObject("scripting.dictionary")
   
2. Do Until d.Count = 10
   
3.     j = Int(Rnd * 10)
   
4.     d(j) = ""
   
5. Loop
   
6. arr = d.keys

复制代码

跳转到最佳答案楼层

江河行地

=MOD(SMALL(RANDBETWEEN(ROW(1:10)-1,9)/1%+ROW(1:10)-1,ROW(1:10)),100)

橘子红

1. Set d = CreateObject("scripting.dictionary")
   
2. Do Until d.Count = 10
   
3.     j = Int(Rnd * 10)
   
4.     d(j) = ""
   
5. Loop
   
6. arr = d.keys

复制代码

murphys1989

江河行地 发表于 2016-5-8 09:25
=MOD(SMALL(RANDBETWEEN(ROW(1:10)-1,9)/1%+ROW(1:10)-1,ROW(1:10)),100)

前辈，作为小白我不太理解这个句子的意思，及用法（这个是关键），求详解。

江河行地

把随机数扩大100倍，加个位数就不重复了