[.NET] 欲產生兩個亂數結果成對的問題....
我用的是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
推
05/13 11:37, , 1F
05/13 11:37, 1F
→
05/13 13:17, , 2F
05/13 13:17, 2F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：