你可以帮我编程一下魔术师的秘密吗?用vb来编程的在一次晚会上,一位魔术师掏出一叠扑克牌,取出其中13张黑桃,预先洗好后,把牌面朝下,对观众说：“我不看牌,只数一数就能知道每张牌是什

Question

你可以帮我编程一下魔术师的秘密吗?用vb来编程的
在一次晚会上,一位魔术师掏出一叠扑克牌,取出其中13张黑桃,预先洗好后,把牌面朝下,对观众说：“我不看牌,只数一数就能知道每张牌是什么?”魔术师口中念一,将第一张牌翻过来看正好是A；魔术师将黑桃A放到桌上,继续数手里的余牌,第二次数1,2,将第一张牌放到这叠牌的下面,将第二张牌翻开,正好是黑桃2,也把它放在桌
子上.第三次数1,2,3,前面二张牌放到这叠牌的下面,取出第三张牌,正好是黑桃3,这样依次将13张牌翻出,准确无误.现在的问题是,魔术师手中牌的原始顺序是怎样的?

Answer 1

Dim a%(13),i%,n%,j%
j = 1
For i = 1 To 13
n = 1
Do
If (j > 13) Then j = 1
If a(j) Then
j = j + 1
Else
If (n = i) Then a(j) = i
j += 1
n += 1
End If
Loop While (n