在一次晚会上，一位魔术师掏出一叠扑克牌，取出其中13张黑桃，预先洗好牌，把牌面朝下，对观众说：“我不看牌，只数一数就能知道每张牌是什么？”魔术师口中念1，将第一张牌翻过来看正好是A；魔术师将黑桃A放到桌子上，继续数手里的余牌，第二次数1，2将第一张牌放到这叠牌的下面，将第二张牌翻开，正好是黑桃2，也把它放在桌子上。第三次数1，2，3，前面两张牌放到这叠牌的下面，取出第三张牌，正好是黑桃3，这样依次将13张牌翻出，准确无误。现在的问题是，魔术师手里牌的原始顺序是怎么样的呢？运行结果如下图所示。
代码如下：
Private Sub Command1_Click()
Dim a(1 To 13) As Integer, i As Integer, j As Integer, n As Integer
For i=1 To 13
a(i)=0
Next i
i=1:n=0:j=1
Do While i<=13
Do While True
If j>13 Then {#blank#}1{#/blank#}
If a(j)=0 Then n=n+1
If n=i Then
{#blank#}2{#/blank#}
n=0
Exit Do
End If
j=j+1
Loop
{#blank#}3{#/blank#}
Loop
Label1.Caption="原来牌的顺序是："
For k=1 To 13
Label2.Caption ={#blank#}4{#/blank#}
End Sub
