其实这个不用那么复杂的，最简单的办法是 先按顺序写入，然后随机交换位置就可以了，这样就可以保证不重复了，对于几十个数来说，效率也不是很低，随机性也还可以。

Private Sub Command1_Click()
Randomize
Dim pk(55) As Integer
Dim ss As String
'52 张按顺序摆放
For i = 1 To 52
pk(i) = i
Next i
'随机打乱
For i = 1 To 1000
t1 = Int(Rnd() * 52 + 1)
t2 = Int(Rnd() * 52 + 1)
a = pk(t1)
pk(t1) = pk(t2)
pk(t2) = a
Next i
'输出
For i = 1 To 52
ss = ss + Str(pk(i)) + " "
Next i
Print ss
End Sub
这样是不是好理解多了。