如何获得一个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)