复制代码 代码如下:
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 过滤数组重复数据函数(加强版)