主题：如何用NEXT()产生不重复的随机数呀？

各位，请问如何使用NEXT（）产生不重复的随机数呀？

另外，随机数只能是整数吗？可不可以小数呢？

请各位赐教~！

代码如何实现。

帮助中的：

For i As integer = 0 To 9
    Output.Show(Rand.NextDouble)
Next

哦，看到了，小数搞定，用“Rand.NextDouble”另外不重复怎么弄呀。

谢谢。

或者这样更严谨一点（随机抽取0~50的不同重复的随机数）：

Dim Values As New List(Of Integer)
For i As Integer = 0 To 50
    Values.Add(i)
Next

Dim a,b As Integer

a = Values.Count -1
For i As Integer = 0 To 50

    b = Rand.Next(a)
    Output.Show(Values(b))
    Values.RemoveAt(b)

    a = a - 1
Next

生成50个四位的随机小数，而且绝对不会重复：

Dim Values As New List(Of Double)
Do
    Dim b As Double = Math.Round(Rand.NextDouble,4)
    If values.Contains(b)= False Then
        values.Add(b)
    End If
    If values.count = 50 Then
        Exit Do
    End If
Loop