如何获得一个6位长随机数

如何获得一个6位长随机数

一个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)