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