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