產生不重複的亂數

https://tw.answers.yahoo.com/question/index?qid=20051105000014KK03021

Randomize() 

'設定範圍 
intRangeSize = (49 - 1) + 1 

'取亂數 
sngRandomValue = intRangeSize * Rnd() 

' 結果再加上 1 
sngRandomValue = sngRandomValue + 1 

' 轉換型別後就是答案. 
intRandomInteger = Int(sngRandomValue) 

產生六個且不重複的話,就重複產生六次,每次都去檢查看是否重複,重複就再產生一次,把結果紀錄下來就行了. 




http://www.blueshop.com.tw/board/FUM20050124192253INM/BRD20060404152231MBG.html


http://fabricekds.blogspot.tw/2008/06/asp.html