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

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 如何获得一个6位长随机数 (http://www.webasp.net/article/5/4188.htm)
-- 作者：未知
-- 发布日期： 2003-07-12
如何获得一个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)

webasp.net