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

2019-10-26 18:03:28

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

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 过滤数组重复数据函数(加强版)

上一篇：VBS加密与VBE解密实现方法

下一篇：vbs字符串操作小考题