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

来源：九壹网

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

复制代码代码如下: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

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文

违法及侵权请联系：TEL:199 18 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务