Visual Basic中随机函式

格式：Rnd(<数值表达式>)

功能：求[0,1)之间的一个随机数

语法：

Rnd[(number)]

如果 number 的值是 Randomize 生成

小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。

大于 0 ，以上一个随机数为种子产生下一个随机数。

等于 0 ，产生与最近生成的随机数相同的随机数。

省略， 以上一个随机数为种子产生下一个随机数。

说明

Rnd 函式返回小于 1 但大于或等于 0 的值。

number 的值决定了 Rnd 生成随机数的方式。

对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函式都用数列中的前一个数作为下一个数的种子。

在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。

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

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

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

注意 若想得到重複的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重複的随机数序列的。

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

Dim MyValue

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值 ,这里的int 是把后面产生的小数转换成整数！

由于Rnd是[0，1），（6*Rnd）+1为[1，7）。int是求不大于number 的最大整数，所以得出1~6的随机数

"SELECT * from data where name='name' ORDER BY right(cstr(rnd(-int(rnd(-timer())*100+id)))*1000*Now(),2)

每次刷新重新排序数据不重複