作者purplishfish (紫鱼)
看板Visual_Basic
标题[VBA ] 请问如何让乱数更乱
时间Fri Feb 2 21:13:39 2018
各位版友大家好
最近再写一个抽奖程式
方法是每个序号对到一个乱数，最後取乱数最大值的该序号做为得奖人
但总觉得得奖人常常重复，不知道是不是乱数的问题?
目前乱数是使用(前面都有先呼叫Randomize)
Rnd()
有试过 Rnd(Time)
不知道还有没有其他可以更乱的方法?
另一个想请教的问题是有没有办法降低excel的运跑速度?
(长官嫌这样抽奖太快显示没有刺激感...)
目前是增加垃圾回圈
但是常常显示的部分会当掉，所以有点不知道怎麽办
感谢大家!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.136.225.135
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1517577223.A.6B1.html
※ 编辑: purplishfish (220.136.225.135), 02/02/2018 21:50:13
1F：推 olycats: 第二个问题 可使用application.wait 的方法 02/03 01:06
2F：→ olycats: 可以达到等一秒(或您指定的时间) 再继续进行下去 02/03 01:07
3F：推 vincent0926: 如果跑垃圾回圈会感觉当机无反应，可於回圈内加入doe 02/03 03:56
4F：→ vincent0926: vents看看 02/03 03:56
5F：推 tootsie: Rnd(Rnd())呢？ 02/03 20:23
6F：→ MOONRAKER: rnd的那个引数跟乱不乱完全无关 怎麽会有人有这种误解 02/03 21:30
7F：→ MOONRAKER: 抱歉，只要>0都是取出下一个虚拟乱数，跟乱不乱无关 02/03 21:35
8F：→ MOONRAKER: rnd(1)或rnd(8)或rnd()完全一样 02/03 21:36
9F：→ MOONRAKER: 而rnd()值在[0, 1)之间 所以rnd(rnd())跟rnd()完全一样 02/03 21:40
10F：→ purplishfish: 抱歉没有表达清楚，更乱是希望他的下一个引数出现 02/03 22:33
11F：→ purplishfish: 机率更加不同 02/03 22:33
12F：→ purplishfish: 谢谢1,2楼大大我会再试试看 02/03 22:34