不多：沒有重復不少：每一個都會出現已知隨機數范圍，例如（0，10）

熱心網友

你每取出一次就驗證一次，如果已取出了，就重取，直到取出的不是重復數為止。

熱心網友

例：生成1個1-100的不重復的隨機數定義1個數組N（100）起始位置S為0產生一個隨機步數m（1-100），從S開始數步數，碰到已標記的N則跳過，標記在m步時的N的位置并取出該位置為隨機數，重復上述操作,隨機步數相應減1，直到只剩下0步結束。這樣就產生100個不重復的1-100的隨機數。這個算法在小量數據時沒有優勢，在大量數據時優勢明顯。

熱心網友

for i = 1 to 1000Randomize ' 對隨機數生成器做初始化的動作。MyValue(i) = Int(Rnd * 10) ' 生成 0 到 10 之間的隨機數值。if i 1 then '第一個數時不比較for j = 1 to iif myvalue(i) = myvalue(j ) then i = i -1'比較后相同返回上一個數next j end if next i 群：7118511

熱心網友

Randomize ' 對隨機數生成器做初始化的動作。MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之間的隨機數值。歡迎你加入群號碼: 4598690.與大家一起討論VB問題.