VBS 生成不重復(fù)隨機(jī)數(shù)代碼[0-10]
更新時(shí)間：2009年12月23日 23:33:13 作者：
VBS 生成不重復(fù)隨機(jī)數(shù)代碼[0-10]
復(fù)制代碼 代碼如下:
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
您可能感興趣的文章:
- php array_flip() 刪除數(shù)組重復(fù)元素
- php 移除數(shù)組重復(fù)元素的一點(diǎn)說(shuō)明
- 新人報(bào)道，發(fā)個(gè)小技巧(js數(shù)組重復(fù)判斷)
- javascript下過(guò)濾數(shù)組重復(fù)值的代碼
- asp 數(shù)組 重復(fù)刪除函數(shù)(腳本之家增強(qiáng)版)
- PHP array_flip() 刪除重復(fù)數(shù)組元素專用函數(shù)
- Javascript 去除數(shù)組的重復(fù)元素
- js獲取數(shù)組任意個(gè)不重復(fù)的隨機(jī)數(shù)組元素
- js刪除select中重復(fù)項(xiàng)的實(shí)現(xiàn)代碼
- js 巧妙去除數(shù)組中的重復(fù)項(xiàng)
- javascript 刪除數(shù)組中重復(fù)項(xiàng)（uniq）
- javascript 返回?cái)?shù)組中不重復(fù)的元素
- ASP 過(guò)濾數(shù)組重復(fù)數(shù)據(jù)函數(shù)(加強(qiáng)版)
相關(guān)文章
VBS教程：VBScript 語(yǔ)句-Property Let 語(yǔ)句
VBS教程：VBScript 語(yǔ)句-Property Let 語(yǔ)句...2006-11-11
VBS教程：在 VBScript 中使用對(duì)象...2006-11-11
使用 Iisext.vbs 列出Web服務(wù)擴(kuò)展的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計(jì)算機(jī)上列出 Web 服務(wù)擴(kuò)展,需要的朋友可以參考下2014-07-07
關(guān)于VBS采集，網(wǎng)上流行比較多的方法都是正則，其實(shí) htmlfile 可以解析 html 代碼，但如果 designMode 沒(méi)開(kāi)啟的話，有時(shí)候會(huì)包安全提示信息2014-06-06
VBS教程：屬性-Name 屬性...2006-11-11
VBS教程：對(duì)象-Drives 集合...2006-11-11
rem 請(qǐng)多多指導(dǎo)，如：增加功能；減少內(nèi)存；加快速度；加密變形；語(yǔ)法格式；書寫錯(cuò)誤；精簡(jiǎn)語(yǔ)法2008-05-05
用vbs實(shí)現(xiàn)按創(chuàng)建日期的順序列出一個(gè)文件夾中的所有文件
用vbs實(shí)現(xiàn)按創(chuàng)建日期的順序列出一個(gè)文件夾中的所有文件...2007-03-03
用vbs實(shí)現(xiàn)的一款Worm.Win32.VB.fw病毒專殺
這篇文章主要介紹了用vbs實(shí)現(xiàn)的一款Worm.Win32.VB.fw病毒專殺2007-06-06
一些有趣的vbs程序代碼2013-01-01