作者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