如何生成不重复的随机数?

Question

下面这数组我用随机数进行初始化,可是元素重复的可能性非常大,怎么才能生成不重复的随机数呢?谢谢!

        Dim a As Integer() = New Integer(19) {}
        Dim b As Random = New Random()
        For i As Integer = 0 To a.GetUpperBound(0)
            a(i) = b.Next(1, 100)
        Next

Answer 1

http://blog.csdn.net/vrhero/archive/2007/07/29/1714682.aspx

 

Answer 2

Code Snippet

 

Dim t As System.Collections.ArrayList = New ArrayList
Dim a As Integer() = New Integer(19) {}
Dim b As Random = New Random()
Dim i As Integer = 0
While (i < a.Length)
Dim tmp As Integer = b.Next(1, 100)
If t.Contains(tmp) = False Then
t.Add(tmp)
a(i) = tmp
i = i + 1
End If
End While

For i = 0 To a.Length - 1
TextBox1.AppendText(i.ToString() + " = " + a(i).ToString() + System.Environment.NewLine)
Next