题目

在一次晚会上，一位魔术师掏出一叠扑克牌，取出其中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 If a(j)=0 Then n=n+1 If n=i Then n=0 Exit Do End If j=j+1 Loop Loop Label1.Caption="原来牌的顺序是：" For k=1 To 13    Label2.Caption = End Sub 答案：【1】j=1【2】a(j)=i或a(j)=n【3】i=i+1【4】Label2.Caption+Str(a(k))

查看本题答案和解析