您的位置: 首页 > IT文章 > VBS 生成不重复随机数代码[0-10] VBS 生成不重复随机数代码[0-10] 分类: IT文章 • 2022-05-11 22:43:13 复制代码 代码如下: 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