作者geniussilly (橘子與蘋果)
看板Visual_Basic
標題[.NET] 欲產生兩個亂數結果成對的問題....
時間Fri May 13 11:18:38 2011
我用的是VB2010 Express
在寫程式的時候想產生兩個獨立亂數
結果出現讓人困窘的結果....
把問題簡化如下":
Module Module1
Sub Main()
Dim a, b As Integer
Dim c, d As New Random
a += c.Next(1, 20)
b += d.Next(1, 20)
Console.WriteLine("{0} {1}", a, b)
Console.ReadLine()
End Sub
End Module
原本預期是c,d是獨立的, 之後跑迴圈a,b可以隨機增加
結果c,d卻會成對出現, 也就是c=d
然後我不死心又試著改成d.next(1,21)
結果是要嘛c=d, 不然就是c = d-1
以此類推....
我試過用迴圈跑
Dim s(1) As Integer
For x = 0 To 1
s(x) = c.Next(1,20)
Next
則的確可以跑出兩個獨立亂數，可是這樣不直觀也不方便
所以想請問如果想讓兩個亂數獨立產生應該怎麼做呢?
--
◢◣◢◣ ◢█ ◢█ ● ◢◣
◤█▊█ ◢◤█ ◢◤█◢ ◢ ◢◤
▊▊█◤ ◥██◣ ◥██◤ ◢█ ◥█◤
◢█ ◤█◤
◢◤█
◥█◤
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.4.196
1F：推 Marty:a b都取c不行嗎?? 05/13 11:37
2F：→ MOONRAKER:本來就可以，是原po想太多啦 05/13 13:17