欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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