|
如何获得一个6位长随机数
根据MSDN给出的公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
6位长随机数=Int((999999-100000+1)*Rnd+100000)
或者，也可以这样：分别生成0-9的5个数和一个1-9的数凑起来
6位长随机数=Int((9-1+1)*Rnd+1)*100000+ _
Int((9-0+1)*Rnd+0)*10000+ _
Int((9-0+1)*Rnd+0)*1000+ _
Int((9-0+1)*Rnd+0)*100+ _
Int((9-0+1)*Rnd+0)*10+ _
Int((9-0+1)*Rnd+0)
或者也可以先用"+"连成字符串再CInt
还有一个更简单的方法。六位长的？也就是说最小的是 100000 了是吗？这样：
Dim r As New Random()
Dim n As Integer = r.Next(100000, 999999)
|
