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 

您可能感興趣的文章:

相關(guān)文章

iis PHP安裝腳本 PHPInstall.vbs V3.1
PHP安裝腳本，您所要做的操作是：保存這個文件與要安裝的php文件夾放一起(不要放在C盤根目錄下)
2009-07-07
VBS教程：函數(shù)-LoadPicture 函數(shù)
VBS教程：函數(shù)-LoadPicture 函數(shù)...
2006-11-11
VBS基礎(chǔ)篇 - vbscript TextStream對象
TextStream對象是用于訪問文本文件的對象，它是FileSystemObject一個獨(dú)立的附屬對象，但在使用TextStream對象時，我們?nèi)砸柚鶩ileSystemObject 對象或其附屬對象來創(chuàng)建一個 TextStream 對象并訪問磁盤文件的內(nèi)容,需要的朋友可以參考下
2018-06-06
VBS教程：方法-GetFolder 方法
VBS教程：方法-GetFolder 方法...
2006-11-11
vbs Windows系統(tǒng)改變或修改網(wǎng)卡的MAC地址的腳本與軟件
這個文件比程序本身還大，感覺不爽，于是本人的VBS版MAC修改代碼便誕生了,在使用過程中如果出現(xiàn)不能上網(wǎng)的情況得返回一下網(wǎng)卡驅(qū)動（有些機(jī)器比較特別）
2008-07-07
Wscript.Shell 對象詳細(xì)介紹??！特好的東西
Wscript.Shell 對象詳細(xì)介紹！！特好的東西...
2006-12-12
VBS For Next循環(huán)的陷阱分享
在《VBS For Next循環(huán)的一些細(xì)節(jié)》中說到了 For Next 循環(huán)的控制變量僅僅在循環(huán)開始前求值一次，但是其中存在一處陷阱
2013-01-01
VBS教程：方法-Write 方法
VBS教程：方法-Write 方法...
2006-11-11
VBS中轉(zhuǎn)換二進(jìn)制數(shù)據(jù)為字符串常用辦法
VBS中轉(zhuǎn)換二進(jìn)制數(shù)據(jù)為字符串常用辦法...
2007-03-03
多進(jìn)程的vbs腳本
朋友要刷票，我?guī)退麑懥藗€刷票的腳本。但是腳本只能單線程的運(yùn)行，太慢了，于是我用wmi配合寫了個模擬多線程的腳本
2006-08-08