请教如何产生一个随机数字?(2位以上)

良斌　发表于：2009-06-17 10:26:58 　

请教如何产生一个随机数字?(2位以上)

竹笛发表于：2009-06-17 10:39:30

Dim MyValue
Randomize '初始化随机数生成器，该生成器具有根据系统计时器得到的种子。

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。

MyValue = Int((1000 * Rnd) + 99) ' 生成2位以上(不含2位)的数值，即生成 100 到 1099 之间的随机数值。

点燃一支烟发表于：2009-06-17 10:49:15

可使用Rnd函数,为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 'int是取整函数

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Rnd 函数示例
如使用 Rnd 函数随机生成一个 1 到 6 的随机整数。

Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值

相关函数具体用法示例,网上用,请查阅

点燃一支烟发表于：2009-06-17 10:53:34

点击下载此附件这是随机函数运用的示例,库中是随机抽取记录,你可查看相关代码举一反三.

良斌发表于：2009-06-17 14:44:55

Dim MyValue

MyValue = Int((1000 * Rnd) + 99)

Text1.Text = "& MyValue &"
以上代码是否就可以在Text1上显示随机数字?

竹笛发表于：2009-06-17 15:12:13

Dim MyValue

MyValue = Int((1000 * Rnd) + 99)

me.Text1.setfocus

me.Text1=MyValue

点燃一支烟发表于：2009-06-17 16:44:14

干脆做个示例

总记录：6篇页次：1/1 9 1 :

Access交流中心