资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

VBS中怎么生成不重复随机数-创新互联

VBS中怎么生成不重复随机数,很多新手对此不是很清楚,为了帮助大家解决这个难题,下面小编将为大家详细讲解,有这方面需求的人可以来学习下,希望你能有所收获。

目前创新互联已为超过千家的企业提供了网站建设、域名、网站空间、网站托管、服务器租用、企业网站设计、城区网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

代码如下:

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中怎么生成不重复随机数-创新互联
文章地址:http://cdkjz.cn/article/cschoo.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220