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

w1995811

[按键精灵] 纯文本查看 复制代码

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

我就不解释了怎么写的,代码很菜,纯属个人想法,可能还有其他师弟师兄有更好的方法请指教
2862 没有信仰的郭德纲

w1995811

自己楼 自己坐 留个印记 下次忘记写了 好瞅瞅

冒泡的小猫

撸管老牛逼啊
撸管老牛逼啊

紫猫

不错, 提几个建议
1. Randomize()命令不要写在函数里，最好让用户自己在脚本开头执行一次，否则你如果在一秒内多次调用这个命令会造成随机结果完全一样的。
2. 你的代码用了大量的单字母变量，比如k，i，f，m，n这些，这种情况下最好能加一些注释，否则就算你自己一个月后来看这段代码，也可能会看不懂自己写了什么东西。

w1995811

紫猫 发表于 2019-10-24 09:47
不错, 提几个建议
1. Randomize()命令不要写在函数里，最好让用户自己在脚本开头执行一次，否则你如果在一 ...

谢谢老师提点 好的

w1995811

冒泡的小猫 发表于 2019-10-24 09:34
撸管老牛逼啊
撸管老牛逼啊

(*/ω＼*)

archael

这个好东西！

q315767552

        很给力!