作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [.NET] 乱数 平均分配问题
时间Sat May 25 11:55:08 2013
http://blog.miniasp.com/post/2008/05/Random-vs-RNGCryptoServiceProvider.aspx
这篇文章有说到,乱数是使用「有限性数学演算法」所计算出来的结果
也使用.NET Reflector看过乱数只是数学运算的结果而已
如果有需要够强的乱数的话,可以使用 RNGCryptoServiceProvider 来产生
只是在练习程式的话用Rnd就足够了
google关键字:「.net 乱数」
Random类别
http://www.dotblogs.com.tw/larrynung/archive/2010/01/04/12801.aspx
Randomize方法
http://msdn.microsoft.com/zh-tw/library/5tdhk2yh.aspx
※ 引述《b25459870 (Skyer)》之铭言:
: Visual Studio 2012
: 小弟是刚入门的新手
: 想写些小游戏
: 如何取乱数也算是老问题了
: 以下是我目前的程式码
: Label1.Text = ""
: Dim card As Integer
: Dim out(9) As Integer
: Dim err As Integer '确认有无错误
: Randomize()
: For i = 1 To 100
: card = Int(Rnd() * 10) + 1 '取1~10之乱数
: Select Case card '用意是纪录1~10之出现次数
: Case 1
: out(0) += 1
: Case 2
: out(1) += 1
: 吃掉 占版面
: Case 10
: out(9) += 1
: End Select
: Next
: For j = 0 To 9
: Label1.Text &= out(j) & vbCrLf
: Next
: 小弟初学,所以只能用比较笨的方法测试
: 如果各位大大有能简化的方法也可以顺便教教小弟
: 正题...
: ramdomize(timer)+rnd是最简单方便取乱数的方式
: 但是我发现...他出来的数字并不是非常平均分布
: 爬文+google
: 好像满少对这类的讨论....
: 想请问有没有更好的写法,取的乱数更平均分配呢?
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半点痴情遗留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.72.87
1F:推 b25459870:感谢 过好久才看到 来去摸摸看 06/05 10:40