请问怎么让自动产生的随机数不重复呀
请问怎么让自动产生的随机数不重复呀，请指教 谢谢！ 问题点数：0、回复次数：6Top
1 楼_1_（该用户已封杀）回复于 2004-08-04 13:43:27 得分 0
产生1000个数 打乱次序 就行了Top
2 楼Leftie（左手,为人民币服务）回复于 2004-08-04 13:44:06 得分 0
返回一个包含随机数值的 Single。
语法
Rnd[(number)]
可选的 number 参数是 Single 或任何有效的数值表达式。
返回值
如果 number 的值是 Rnd 生成
小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。
等于 0 最近生成的数。
省略 序列中的下一个随机数。
说明
Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
Top
3 楼_1_（该用户已封杀）回复于 2004-08-04 13:44:36 得分 0
Private Sub Command1_Click()
Dim i As Integer
Dim x(999) As Integer
Dim Rnd1 As Integer
Dim Rnd2 As Integer
Dim x1 As Integer
Randomize
For i = 1 To 1000
x(i - 1) = i
Next
For i = 0 To 9999
Rnd1 = Int((1000 * Rnd))
Rnd2 = Int((1000 * Rnd))
x1 = x(Rnd1)
x(Rnd1) = x(Rnd2)
x(Rnd2) = x1
Next
List1.Clear
For i = 1 To 1000
List1.AddItem x(i - 1)
Next
End SubTop
4 楼junki（『.NET技术争霸天下』）回复于 2004-10-19 15:41:18 得分 0
'引用
Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。
Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值。Top
5 楼vbman2003（家人）回复于 2004-10-19 16:26:53 得分 0
1-100之间，产生10个不重复的随机数：
Private Sub cmd_Click()
Dim iColl As New Collection
Dim i, iTemp As Long
For i = 1 To 100
iColl.Add i
Next i
Randomize
For i = 1 To 10
iTemp = Int(Rnd * iColl.Count) + 1
Debug.Print iColl(iTemp)
iColl.Remove iTemp
Next i
Set iColl = Nothing
End SubTop
6 楼fly_higher（凌云一笑）回复于 2004-10-19 20:17:37 得分 0
系统调用RND函数就会将随机产生的数值存在内存里，不会被重新定义。这样，当你再次使用RND函数时出现的只会是上次RND运行的结果。所以，使用随机函数前使用randomize 函数。
Top
