VBS 生成不重复随机数代码[0-10]
程序员文章站
2022-07-04 20:43:01
复制代码 代码如下:dim z(10),i for i=0 to 10 z(i)=getrnd(i-1) wscript.echo (z(i)) next function...
复制代码 代码如下:
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
上一篇: vbs删除注册表项的代码
下一篇: 用vbs检查注册表项的访问权限的代码