首页 > Web开发 > 详细

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

时间:2016-02-01 00:22:34      阅读:222      评论:0      收藏:0      [点我收藏+]
复制代码 代码如下:

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

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

原文:http://www.jb51.net/article/21560.htm

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!