做了个简单的砸金蛋游戏，需要从50个金蛋中随机取5个金蛋供选择。
找了个函数，正合用。
ASP/Visual Basic代码
- <%
- function showrnd(x,y)
- if y<x then
- exit function
- end if
- redim n(x)
- dim i,q
- dim isok
- for i=1 to x
- Randomize
- n(i)=round((y-1)* Rnd)+1
- isok=false
- do while not isok
- for q=1 to i
- if n(i)=n(q-1) then
- n(i)=Int((y-1)* Rnd)+1
- isok=false
- exit for
- end if
- isok=true
- next
- loop
- response.write n(i)"<br>"
- next
- end function
- '产生在1到50内的5个随机数
- call showrnd(5,50)
- %>
