如何取随机数

在工作时遇到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()对于同一时间内每台机器都是不同的，这样取到的随机数不会造成上述问题。