VBS 生成不重复随机数代码[0-10]_vbs教程-查字典教程网
VBS 生成不重复随机数代码[0-10]
VBS 生成不重复随机数代码[0-10]
发布时间:2016-12-28 来源:查字典编辑
摘要:复制代码代码如下: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学习
    热门vbs学习
    脚本专栏子分类