html生成随机数字
<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)
End Function
</script>
<form name="lotto">
<table width=100% border=0>
<tr>
<td align=center>
<br>请输入要产生的最大数字: <input type=text name=maxnum value="100" size=4 maxlength=4><br><br><br><br>
<input type=button value="产生随机数" onClick="GetRnd()">
<p>
</td>
</tr>
</table>
</form>
</body>
</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)
End Function
</script>
<form name="lotto">
<table width=100% border=0>
<tr>
<td align=center>
<br>请输入要产生的最大数字: <input type=text name=maxnum value="100" size=4 maxlength=4><br><br><br><br>
<input type=button value="产生随机数" onClick="GetRnd()">
<p>
</td>
</tr>
</table>
</form>
</body>
</html>
佚名
2024-06-09 23:51:12
类似问题(10)
-
佚名2024-06-09 14:25:26
问如果随机生成地图??
答英雄无敌3死亡阴影后没有随机地图的解决方法 一、安装英雄无敌3死亡阴影后没有随机地图 只需要几个空文件就行了,具体方法如下: 1. 在游戏主目录下建空文件名为h...
-
佚名2024-06-09 16:22:56
问c语言,如何产生随机数
答1、第一步,先定义int一个数组和int一个指针变量。2、接着我们选择让指针指向数组的第一元素的地址。3、接着使循环的条件为指针的尾地址。4、并且因为这段代码每...
-
佚名2024-06-09 06:37:29
问如何用JS生成随机字
答直接调用如randomWord(1,6,10)产生6到10位的随机密码,如果要显示出来,要么alert(),要么显示到某个HTML元素中。下面给个简单示例,你可...
-
佚名2024-06-09 08:00:00
问HTML,产生6位随机整数,代码
答function addNumber(_idx){ var str = ''; for(var i = 0; i < _idx; i ++){...
-
佚名2024-06-09 08:00:00
问写出一个随机产生1-47个数的HTML文件
答<html xmlns="" target="_blank">http:///1999/xhtml"><head><title>TEST<...
-
佚名2024-06-09 08:00:00
问如何在EXCEL随机生成数字,要正负的!
答1、如果按照随机函数公式=rand()输入的话,是无法生成随机的负数数字的。2、此时需要修改rand函数,输入:=(RAND()*9+1)*(-1)^INT(R...
-
佚名2024-06-09 08:00:00
问WPS这个函数生成的随机数一直变,如何让他不变?
答生成以后将公式删除:生成随机数后,复制该单元格,在该单元格上点右键——选择性粘贴,选择“数值”,确定。就会只保留数字删除公式。
-
佚名2024-06-09 08:00:00
问WPS表格生成四个随机数,其中一个随机数等于其余三个随机数之和
答你生成三个,第四个用前面三个之和
-
佚名2024-06-09 08:00:00
问c语言中如何生成1个0到1的随机数
答C语言中生成1个0到1的随机数可以执行语句:float b=rand()/(RAND_MAX+1.0);解析:标准C库中函数rand()可以生成0~RAND_M...
-
佚名2024-06-09 08:00:00
问vb编程,产生随机数
答Randomize '关键必须有,不然每次运行随机数都不变n1 = InputBox("输入随机数最小的值(正整数)", "下限", "1")n2 = Inpu...
风水
起名
网名
- 1 网名三个字高冷男
- 2 含木的情侣网名
- 3 取一个爱环的微信网名
- 4 带沫四字情侣网名
- 5 长网名不少于6个字
- 6 直接复制cf昵称空格
- 7 直播+昵称
- 8 玩拳皇好听的昵称
- 9 石头微信昵称代表
- 10 电商对客户昵称
说说
- 1 qq签名伤感霸气句子
- 2 微信上签名
- 3 锦里古街的说说
- 4 心情很现实的说说
- 5 三月四号搞笑说说
- 6 感觉越来越孤单了说说
- 7 休闲在家的日子说说
- 8 木已成舟的说说
- 9 结婚时发表的说说
- 10 跟姐妹关于钱的说说