# Re: 请问 CWW

Posted by maxwell on February 11, 1999 at 04:17:26:

In Reply to: 请问 CWW posted by xuyan on February 11, 1999 at 00:33:41:

: 用VB心得笔记中如何产生A与B之间乱数产生1与10之间乱数
: 得到如下结果：
:
: 2 4 1 5 2 4 6 5 10 9

: 2与5重复而缺少3 7 8

: 如何才能让其不重复？

您好像发了很多信问这个问题, 应该是很急吧?
可以考虑用用 Collection
Collection 的 KEY 可以让你很快速的知道集合中是否有已经存在的资料, 如果还不知道怎么写, 可以参考我的写法:

Dim Number As Integer
Dim NumQueue As New Collection

Randomize Timer
Do
' 如果集合已经有 100 个资料, 就跳出回圈
If NumQueue.Count >= 100 Then Exit Do
Number = Int(Rnd(1) * 100) + 1
' 增加到集合中
' 不过集合如果有存在的资料, 就会产生错误
On Error Resume Next
NumQueue.Add Number, "N" & Number
On Error GoTo 0
Loop

写完之后可以用下列程式码列印:

FOR I=1 TO NumQueue.Count
MSGBOX NumQueue(I)
Next I

Follow Ups: