※ 引述《purplishfish (紫魚)》之銘言:
: 各位版友大家好
: 最近再寫一個抽獎程式
: 方法是每個序號對到一個亂數,最後取亂數最大值的該序號做為得獎人
: 但總覺得得獎人常常重複,不知道是不是亂數的問題?
: 目前亂數是使用(前面都有先呼叫Randomize)
: Rnd()
: 有試過 Rnd(Time)
這樣沒有任何用處。
VBA的rnd(k)多年來都一樣:
k > 0 傳回下一個隨機亂數。
所以rad(1), rnd(8), rad(rnd())都是一樣的。
而time (不是應該timer嗎?不過反正你沒看到錯誤,就當是time好了)
除了午夜以外,一定傳回大於0的數字,所以也跟以上一樣。
k = 0 重覆傳回相同的亂數。
k < 0 會以這個k為亂數種子,但是每次設種子就等於每次呼叫randomize
基本上沒有人用。
省略k 跟 k > 0 一樣。
現在微軟的範例程式裡面也都是寫成rnd(),這就是他們的建議用法
至於什麼rnd(0), rnd(-n)之類死人骨頭根本就不要碰。
: 不知道還有沒有其他可以更亂的方法?
沒有看到你的程式,無法確定你到底是重覆到怎樣。但是除非規則規定,很少
聽說這樣一人產生一個亂數再選最大的作法。還有也不知道你母體有多少。如
果你一次只針對10個這種數量的得獎者抽選,那用什麼方法都很容易重覆。不
重覆有不重覆的方法,但是抽選過程要重新設計。
我會認為是規則的問題。如果你認為想要換random generator來解決,可以改
用以下網頁最底下的程式,他利用AES來產生循環長度無限長的隨機亂數。
https://bytes.com/topic/access/insights/
964786-vba-rnd-function-bad-what-use-instead
or https://goo.gl/cgWHiC
: 另一個想請教的問題是有沒有辦法降低excel的運跑速度?
直接上vb.net,簡單用途轉過去很快,也可以控制excel
(不過沒什麼效率,用ODBC較實在)。