一段产生不重复随机数的代码。。有问题，，现在还是要产生要重复的随机数。。大家帮我看看那错了。。。。


            For i = 0 To PDSZ.GetUpperBound(0)‘是一个数组

LoopThis:
                Randomize()
                Inum1 = CInt(Int((60 - 1 + 1) * Rnd() + 1))‘产生随机数
                If Check() = True Then'判断数组里面有没有这个数了。有就重新做
                    GoTo LoopThis
                Else
                    PDSZ(i) = Inum1'写进数组
                End If
            Next

Private Function Check() As Boolean'判断的函数
        Dim i As Integer

        For i = 0 To PDSZ.GetUpperBound(0)
            If PDSZ(i) <> Inum1 Then
                Return False
            Else
                Return True
                Exit For
                Exit Function
            End If
        Next
    End Function


现在还是要产生重复的。。昏了。。不知道那错了