如何取随机数

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

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值