Randomize
初始化随机数生成器。

Randomize [number]

number 参数可以是任何有效的数值表达式。

说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器，赋给它新的种子值。如果省略 number，则使用系统计时器返回的值作为新的种子值。

如果不使用 Randomize，则第一次调用 Rnd 函数（无参数）时，它将使用相同的数字作为种子值，随后使用最后生成的数值作为种子值。

注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。

下面例子举例说明如何使用 Randomize 语句:

例如：Dim MyValue, Response
Randomize \'初始化随机数生成器。
Do Until Response = vbNo
   MyValue = Int((6 * Rnd) + 1)\' 产生 1 到 6 之间的随机数。
   MsgBox MyValue
   Response = MsgBox (\"Roll again? \", vbYesNo)
Loop

Rnd 函数
返回一个随机数。

Rnd[(number)]

number 参数可以是任意有效的数值表达式。

说明
Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式：

如果 number 为 Rnd 生成
小于零 每次都相同的值，使用 number 作为种子。
大于零 序列中的下一个随机数。
等于零 最近生成的数。
省略 序列中的下一个随机数。

因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。

在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有基于系统计时器的种子。

要产生指定范围的随机整数，请使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。

注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列，中国自学编程网，www.zxbc.cn 。

以前看过这方面的内容，今天又一次见到了，所以就总结一下，以后还要用呢！

下面给出一个实例来说明Randomize的用途：

解决防止表单重复提交的方法
表单文件formtest.asp

<%
Randomize　\'初始代随机数种子
num1=rnd() \'产生随机数num1
num1=int(26*num1)+65　\'修改num1的范围以使其是A-Z范围的Ascii码，以防表单名出错
session(\"antry\")=\"test\"&chr(num1)　\'产生随机字符串
%>
<form name=\"test\" action=\"http://www.xrss.cn/testact.asp\" method=\"post\">
你的名字：<input type=\'text\' name=\'\' size=30>　 \'注意本行中使用了随机表单项名
<input type=\'submit\' value=\'提交\'>
</form>

表单处理程序testact.asp

   <%
teststr=request.form(session(\"antry\"))
if teststr=\"\" then
response.write \"没有填写姓名或重复提交\"
\'由于用户没有填写名字，或表单被重复提交(标志为session(\"antry\")为空)引起
else
response.write teststr
session(\"antry\")=\"\"　　\'提交成功，清空session(\"antry\")，以防重复提交！！[Page]
end if
%>