asp随机数几率问题？ - 编程论坛

zhanxinlin2012-06-08 22:17

这种问题是要自己去想的办法的。非技术性问题

程序代码：

<%
dim num(59)
num(0)=6
num(1)=6
num(2)=5
num(3)=6
num(4)=4
num(5)=6
num(6)=5
num(7)=6
num(8)=3
num(9)=7
num(10)=6
num(11)=5
num(12)=4
num(13)=3
num(14)=6
num(15)=4
num(16)=5
num(17)=6
num(18)=8
num(19)=4
num(20)=3
num(21)=6
num(22)=7
num(23)=5
num(24)=6
num(25)=6
num(26)=5
num(27)=6
num(28)=4
num(29)=5
num(30)=6
num(31)=8
num(32)=5
num(33)=3
num(34)=6
num(35)=6
num(36)=5
num(37)=7
num(38)=6
num(39)=5
num(40)=6
num(41)=3
num(42)=4
num(43)=5
num(44)=5
num(45)=4
num(46)=6
num(47)=6
num(48)=5
num(49)=8
num(50)=3
num(51)=5
num(52)=4
num(53)=4
num(54)=4
num(55)=5
num(56)=4
num(57)=6
num(58)=4
num(59)=6

randomize
response.Write(num(int(rnd * 1000) mod 60))
%>