手机
当前位置:查字典教程网 >脚本专栏 >vbs >VBS 生成不重复随机数代码[0-10]
VBS 生成不重复随机数代码[0-10]
摘要:复制代码代码如下:dimZ(10),ifori=0to10Z(I)=GetRnd(i-1)WScript.Echo(Z(i))NEXTFun...

复制代码 代码如下:

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]】相关文章:

用vbs将名称转换为正确的大小写的代码

SendKeys clip.exe 发送中文的代码

VBS中用CDO.Message发送邮件的实现代码

VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)

LCL.VBS 病毒源代码

VBS相册生成脚本[

vbs 搜索代理地址实现代码[小偷程序]

VBS 偏移量解密工具[算法解密]

使用vbs下载文件的代码加强版

用vbs实现的exe2swf工具脚本代码

精品推荐
分类导航