如何獲得一個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)