VBS在指定范围内生成不重复的随机数

Dim Z()
ReDim Z(15)
For i=0 To UBound(Z)
    Z(i)=GetRndNum(i-1,UBound(Z))
    WScript.Echo Z(i)
Next

Function GetRndNum(n,length)
    Randomize
    x=CInt(length*Rnd)
    For i=0 To n
        If x=Z(i) Then
            x=GetRndNum(n,length)
            Exit For
        End If
    Next
    GetRndNum = x
End Function