如何从给定的数据集合中不重复的选出指定数据个数的子

	如何从给定的数据集合中不重复的选出指定数据个数的子

（解答者：abigfrog、jobine、jobine）


如何从给定的数据集合中不重复的选出指定数据个数的子数据集合？  
 
例如：  
     从集合(1,2,3,4,5,6,7,8,9,10,12,13,34,45,61,23  ....  )  
 
     中选择4个数据  
 
     (1,2,4,10)  
 
如何用代码实现？  
---------------------------------------------------------------  
 
将已选择的数据放在数组里，  
每次选取新的时候遍历数组里的数据，  
相同则跳过，  
不同则添加  
---------------------------------------------------------------  
 
你的意思是要每次选择的子集和都不重复吧？  
用随机数实现  
Arr=Array(1,2,3,4,5,6,7,8,9,10,12,13,34,45,61,23)  
Dim  subArr(),i,n  
 
n=4  
redim  subArr(n)  
 
for  i=0  to  ubound(Arr)  
           response.Write  Arr(i)  &  "  "  
next  
 
Randomize  
 
for  i=0  to  n-1  
           subArr(i)=Arr(Cint(Rnd*(Ubound(Arr)-1)))  
next  
 
response.Write  "<br>"  
 
for  i=0  to  n-1  
           response.Write  subArr(i)  &  "  "  
next  
 
---------------------------------------------------------------  
 
subArr(i)=Arr(Cint(Rnd*Ubound(Arr)))