当前位置： 移动技术网 > IT编程>脚本编程>VBScript > VBS 生成不重复随机数代码[0-10]

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

2017年12月08日  | 移动技术网IT编程  | 我要评论
复制代码 代码如下:

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

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网