如何在给定的几个数中随机选出3个数？

[powerc1]

比如给出：21、5、13、7、11、8、2等几个数，要在其中随机选出3个数。

[Cooly]

randomize

dim a(),b()
dim i,j,m
redim a(7)
redim b(3)

a(0)=21
a(1)=5
a(2)=13
a(3)=7
a(4)=11
a(5)=8
a(6)=2
b(0)=a(int(rnd*6))

for i=1 to 2
m=a(int(rnd*6))
if b(i)=m then
i=i-1
else
b(i)=m
end if
next

'数组b()中的元素就是随机选出的3个数

[cloudchen]

<SCRIPT LANGUAGE="Vbscript">
Option Explicit
dim n,result
'//原数
n = "21,5,13,7,11,8,2"
'//结果
result = rndNumber(n,3)
'//Print
document.write result

function rndNumber(o,count)
Randomize
Dim result,r,i
o = split(o,",")
While len(result) < count*3
r = int(rnd*(Ubound(o)+1))
if Instr(result,","&o(r)&",") < 1 then
result = result & "," & o(r) & ","
end if
Wend
result = mid(result,2,len(result)-2)
result = replace(result,",,",",")
rndNumber = result
end function
</SCRIPT>