html生成随机数字

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:31:32
一段代码。在html中实现。要求在HTML刷新一下换一组数字。 5位。

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无重复随机数生成器</title>
</head>
<body>
<script language=vbscript>
Function GetRnd()
lowerNum=1
upperNum = document.lotto.maxnum.value
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
Redim outmarr(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum = getRndNumber(Fun_I,unit)
Fun_X = myArray(RndNum)
myArray(RndNum)=myArray(Fun_I)
myArray(Fun_I)=Fun_X
Next
For i=0 to upperNum
document.write MyArray(i)&"<br>"
Next
End Function

Function getRndNumber(lowerbound,upperbound)
Randomize
getRndNumber=Int((upperbound-lowerbound+1)*Rnd+lowerbound)