如何从给定的数据集合中不重复的选出指定数据个数的子数据集合？
例如：
从集合(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 "
1<br/>
"
for i=0 to n-1
response.Write subArr(i) & " "
next
---------------------------------------------------------------
subArr(i)=Arr(Cint(Rnd*Ubound(Arr)))