源码网商城，靠谱的源码在线交易网站我的订单购物车帮助

当前位置：首页 > 资讯 > 技术文档

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

时间：2020-06-21 11:53 编辑：来源：阅读：
扫一扫，手机访问

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

[u]复制代码[/u] 代码如下:

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

全部评论(0)

上一篇：VBScript教程第九课VBScript过程
下一篇：tel.xls.vbs xls专杀工具

资讯排行榜
更多>>

关于我们 | 广告合作 | 联系我们 | 隐私条款 | 免责声明 | 网站地图

苏ICP备2024110244号-2 苏公网安备32050702011978号增值电信业务经营许可证编号：苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有

联系客服

客服电话：
400-000-3129

微信版

扫一扫进微信版

返回顶部