[教程源码] 随机生成1~20个不重复数字,纯源码无插件

Function 随机序列(k, i, f)
    Randomize  
    dim d=""
    dim m=""
    Dim s
    For i
        m = m & k & ","
        k=k+1
    Next
    m = UTF8.StrCut(m, len(m), 1)
    For i
        Dim arr=split(m,",")
        Dim n=ubound(arr)
        s=int((n+1)*rnd())
        If s = n Then 
            m = Replace(m, ","&arr(s), "")
        ElseIf s = 0 Then
            m = UTF8.StrCut(m,1,len(arr(s))+1)
        Else 
            m=Replace(m, ","&arr(s)&",", ",")
        End If
        d = d & arr(s) & ","
    Next
    d = UTF8.StrCut(d, Len(d), 1)
    随机序列 = Replace(d,",",f)
End Function