WindowsPhone 产生规定范围内的不重复随机数 by VB

Module RandNumber
    Public Nums() As Integer
    Public Sub StartCreateNumber(TopNumber As Integer)
        Dim i, j, k As Integer
        Dim temp(TopNumber) As Integer
        ReDim Nums(TopNumber)
        Dim rnd As New Random(Seed:=Date.Now.Second)
        For i = 1 To TopNumber
            Nums(i) = 0
        Next
        For j = 1 To TopNumber
            k = rnd.Next(1, TopNumber + 1)
            While Nums(k) <> 0
                k = rnd.Next(1, TopNumber + 1)
            End While
            Nums(k) = j
        Next
    End Sub
End Module

本例子是从 1至 n（代码里编号名为TopNumber）生成随机的不重复的数字。

主要思想是 随机生成数据下标，对生成的下标 进行顺序从1至n 赋值。

代码是用模块写的，可以随意调用。