純粹按抽牌過程編程,結果為1-13,非撲克牌式樣。
改動程序中的 13 ,可以用於任意張數抽牌.
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim r(13) As Integer
i = 0
j = 1
k = 0
Do
i = i + 1
If i > 13 Then i = 1
If r(i) = 0 Then
If k = 1 Then
r(i) = j
k = 0
j = j + 1
If j > 13 Then Exit Do
Else
k = 1
End If
End If
Loop
For i = 1 To 13
Print r(i)
Next
End Sub
7
1
12
2
8
3
11
4
9
5
13
6
10