从一组数中取几个随机数

做了个简单的砸金蛋游戏，需要从50个金蛋中随机取5个金蛋供选择。

找了个函数，正合用。
ASP/Visual Basic代码

1. <%   
2. function showrnd(x,y)   
3. if y<x then   
4. exit function   
5. end if   
6. redim n(x)   
7. dim i,q   
8. dim isok   
9. for i=1 to x   
10. Randomize   
11. n(i)=round((y-1)* Rnd)+1   
12. isok=false   
13. do while not isok   
14. for q=1 to i   
15. if n(i)=n(q-1) then   
16. n(i)=Int((y-1)* Rnd)+1   
17. isok=false   
18. exit for   
19. end if   
20. isok=true   
21. next   
22. loop   
23.     response.write n(i)"<br>"  
24. next   
25. end function   
26.   
27. '产生在1到50内的5个随机数   
28. call showrnd(5,50)   
29. %>