VB求随机数

Question

如何用VB编写获得000000至999999之间的随机六位数的代码程序

Answer 1

     Dim i As Long
    Randomize
    For i = 1 To 100
        Debug.Print Format(Int(Rnd() * 1000000), "000000")
    Next

Answer 2

本帖最后由 bcrun 于 2011-02-25 20:34:24 编辑

  

Answer 3

你可以试试这样：：：：
Randomize语句 
         返回初始化随机数生成器。
语法
Randomize [number]
可选的 number 参数是 Variant 或任何有效的数值表达式。
说明Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。
如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的Randomize 是不会得到重复的随机数序列的。

Answer 4

本帖最后由 bcrun 于 2011-03-11 12:44:24 编辑

  

Answer 5

那么，如果随即执行几段程序呢？
比方说，随机执行以下3段代码，要求几率相等
msgbox"你好"msgbox"再见"msgbox"请进"
要怎么做呢？

Answer 6

Privat Function RAND6() as Long
    RAND6=CLng(Int(Rnd*1000))*1000&+CLng(Int(Rnd*1000))
End Function

Answer 7

Select Case Int(Rnd() * 3)
  Case 0
    msgbox"你好"
  Case 1
    msgbox"再见"
  Case 2
    msgbox"请进"
End Select

Answer 8

【分享】马大哈系列功能模块----更好的随机数发生函数,可替代Rndhttp://www.m5home.com/bbs/thread-3225-1-1.html插个另外的随机数函数