VBS 生成不重复随机数代码[0-10]
程序员文章站
2022-04-10 08:13:27
复制代码 代码如下: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
上一篇： 关于脚本调用外部对像和类型库
下一篇： PHP+AJAX 投票器功能