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