当前位置 博文首页 > VBS 生成不重复随机数代码[0-10]

最大化 缩小

    VBS 生成不重复随机数代码[0-10]

    作者：admin 时间：2021-02-15 21:37

    复制代码 代码如下:

    dim Z(10),i
    for i=0 to 10
    Z(I)=GetRnd(i-1)
    WScript.Echo (Z(i))
    NEXT

    Function GetRnd(n)
    Dim i,X
    Randomize
    X=CInt(10*Rnd() )
    For i=0 To n
    If X=Z(i) Then
    X=GetRnd(n)
    Exit For
    End If
    Next
    GetRnd=X
    End Function

    js
    上一篇：vbs 百度小助手
    下一篇：没有了