网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料:

 

标题 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
随便看

 

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/17 13:19:02