Dim n As Integer, b As Integer, a(13) As Integer
Private Sub Command1_Click()
If b < 5 Then
b = b + 1
x = Int(n * Rnd()) + 1
Text1.Text = Text1.Text & a(x) & " "
a(x) = a(n)
n = n - 1
Else
Call Form_Load
End If
End Sub
Private Sub Form_Load()
Randomize
n = 13: b = 0
For i = 1 To 13
a(i) = i
Next i
Text1.Text = ""
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024