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

复制代码 代码如下:

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 array_flip() 删除数组重复元素
• php 移除数组重复元素的一点说明
• 新人报道，发个小技巧(js数组重复判断)
• javascript下过滤数组重复值的代码
• asp 数组 重复删除函数(华域联盟增强版)
• PHP array_flip() 删除重复数组元素专用函数
• Javascript 去除数组的重复元素
• js获取数组任意个不重复的随机数组元素
• js删除select中重复项的实现代码
• js 巧妙去除数组中的重复项
• javascript 删除数组中重复项（uniq）
• javascript 返回数组中不重复的元素
• ASP 过滤数组重复数据函数(加强版)