在工作时遇到Excel里用到随机数,发现在VBA中,如果使用Rnd取随机数,实际上取到只是1~65535分之一,并且取到的这种伪随机数顺序还是一定的。如想用系统时间做种子在此范围内取一个数充当随机数,需要在Rnd的前面加上Randomize。
下面是我工作里使用的一段VBA代码,使用了系统时间做随机种子
Private Sub CommandButton1_Click()
rName = [a65536].End(xlUp).Row
nAdd = [c65536].End(xlUp).Row
If rName - 1 > 0 And nAdd - 1 > 0 Then
For i = 2 To rName
Randomize
j = Int(Rnd * (nAdd - 2 + 1) + 2)
Range("B" & i) = Range("C" & j) + " " + Range("A" & i).Text
Next
Else
Range("B:B").ClearContents
MsgBox "proName不能为空"
End If
End Sub
在C#中,r=new Random() 等于 r=new Random(DateTime.Now),这样取随机数也没问题,但对于应用更为广泛的C#来说,如果是客户端里这样取的话,那么所有客户端在同一时间内取到的随机数都是一样的。
所以客户端里的随机数最好这样取:
private string CreateRandomCode(int codeCount)
{
string codeStr = "0123456789abcdefghijklmnopqrstuvwxyz_-";
char[] codeArr = codeStr.ToArray();
string ranCode = "";
Random r;
for (int i = 0; i < codeCount; i++)
{
r = new Random(Guid.NewGuid().GetHashCode());
ranCode += codeArr[r.Next(37)];
}
return ranCode;
}
总结:Guid.NewGuid().GetHashCode()对于同一时间内每台机器都是不同的,这样取到的随机数不会造成上述问题。