VBS实现随机抽取若干函数放到若干个位置中

有变量若干.为连续自然数,

比如1~10

随机抽取3人

放到

A B C三个位置.

求VBS

不太理解你说的意思，先这样写，不满意可以找我

Dim x(9),t,A,B,C
randomize
For i=1 To 10
x(i-1)=i
Next '定义十个变量为连续自然数
For j=1 To 3 '随机抽取三人
t=Int(Rnd()*10+1)
For i=0 To 9
If x(i)=t And j=1 Then
A=x(i)
elseIf x(i)=t And j=2 Then
B=x(i)
ElseIf x(i)=t And j=3 Then
C=x(i)
End If
next
Next
MsgBox "A="& A &" "& vbCrLf & "B="& B &"" & vbCrLf & "C="& C &""