VBS 生成不重复随机数代码[0-10]
更新时间：2009年12月23日 23:33:13 作者：
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
相关文章
iis PHP安装脚本 PHPInstall.vbs V3.1
PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)2009-07-07
VBS教程：函数-LoadPicture 函数...2006-11-11
VBS基础篇 - vbscript TextStream对象
TextStream对象是用于访问文本文件的对象，它是FileSystemObject一个独立的附属对象，但在使用TextStream对象时，我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容,需要的朋友可以参考下2018-06-06
VBS教程：方法-GetFolder 方法...2006-11-11
vbs Windows系统改变或修改网卡的MAC地址的脚本与软件
这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别）2008-07-07
Wscript.Shell 对象详细介绍！！特好的东西...2006-12-12
在《VBS For Next循环的一些细节》中说到了 For Next 循环的控制变量仅仅在循环开始前求值一次，但是其中存在一处陷阱2013-01-01
VBS教程：方法-Write 方法...2006-11-11
VBS中转换二进制数据为字符串常用办法...2007-03-03
朋友要刷票，我帮他写了个刷票的脚本。但是脚本只能单线程的运行，太慢了，于是我用wmi配合写了个模拟多线程的脚本2006-08-08
最新评论