2020-02-16 标签:vbs,生成,不重,随机数,代码,10,实现,如下,dim,z,i,getrnd,wscript,echo,next,function,n

实现代码如下：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(