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

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

posted on 2015-01-13 14:20 futrueface 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/futrueface/p/4221206.html