play78
2015-10-12 20:01:19 +08:00
其实这个不用那么复杂的,最简单的办法是 先按顺序写入,然后随机交换位置就可以了,这样就可以保证不重复了,对于几十个数来说,效率也不是很低,随机性也还可以。
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
这样是不是好理解多了。