字典去重复问题

凌空一羽

liulang0808 发表于 2016-11-23 08:55
具体见附件内容，，，，，，，

大师，我想请教一下如下代码中这段代码起到什么作用，谢谢啦!

' 产生20个1-100之间的不重复随机数  
Sub RndNumberNoRepeat2()  
  Dim RndNumber, TempArray(99), i As Integer  
  Randomize (Timer)           '初始化随机数生成器  
  For i = 0 To 99            '产生包含1－100的不重复的随机数列  
      TempArray(i) = i  
  Next i  
  For i = 99 To 80 Step -1  
     RndNumber = Int(i * Rnd)  
     '从A21开始输出这些数字  
     Cells(120 - i, 1) = TempArray(RndNumber) + 1  
     TempArray(RndNumber) = TempArray(i)                  '这段代码起到什么作用？
  Next i  
End Sub  

liulang0808

凌空一羽 发表于 2016-11-24 22:38
大师，我想请教一下如下代码中这段代码起到什么作用，谢谢啦!

' 产生20个1-100之间的不重复随机数  

具体看楼主的需求，就是个赋值语句

凌空一羽

liulang0808 发表于 2016-11-25 07:37
具体看楼主的需求，就是个赋值语句

这段代码就是产生20个1-100之间的不重复随机数，如果我去掉我问你句代码，就会产生重复的随机数，加上就产生不重复，所以看不太明白

liulang0808

凌空一羽 发表于 2016-11-26 14:14
这段代码就是产生20个1-100之间的不重复随机数，如果我去掉我问你句代码，就会产生重复的随机数，加上就 ...

建议楼主将这段代码尽可能多次第去运行，看看产生结果是否就一定不重复。。。。。。
个人认为不能保证每次结果都是不重复的，所以与楼主描述的会有出入

凌空一羽

liulang0808 发表于 2016-11-26 15:24
建议楼主将这段代码尽可能多次第去运行，看看产生结果是否就一定不重复。。。。。。
个人认为不能保证每 ...

好的，谢谢啦