怎样随机生成一个4位整数！

Question

<script>
var me = (Math.random()).toString();
document.write(me.substr(3,4));
</script>

Answer 1

Randomize [number]number 参数可以是任何有效的数值表达式。说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器，赋给它新的种子值。如果省略 number，则使用系统计时器返回的值作为新的种子值。如果不使用 Randomize，则第一次调用 Rnd 函数（无参数）时，它将使用相同的数字作为种子值，随后使用最后生成的数值作为种子值。注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。下面例子举例说明如何使用 Randomize 语句: Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
   MyValue = Int((9999* Rnd) + 1000)' 产生 1000 到 9999 之间的随机数。
   MsgBox MyValue
   Response = MsgBox ("Roll again? ", vbYesNo)
Loop

Answer 2

<%
'生成随机密码的函数
function makePassword(byVal maxLen) 
Dim strNewPass 
Dim whatsNext
Dim upper
Dim lower
Dim intCounter 
Randomize 

For intCounter = 1 To maxLen 
whatsNext = Int(2 * Rnd) 
If whatsNext = 0 Then 
'character 
upper = 90 
lower = 65 
Else 
upper = 57
lower = 48
End If 
'strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower)) '生成字母加数字的随机密码
strNewPass = strNewPass & Int((upper - lower + 1) * Rnd + lower) '生成仅为数字的随机密码
Next 
makePassword = strNewPass 
end function 
%>
后面的参数控制生成密码的位数