在一次晚会上，一位魔术师掏出一叠扑克牌，取出其中13张黑桃，预先洗好后，把牌面朝下，对观众说：“我不看牌，只数一数就能知道每张牌是什么？”魔术师口中念1，将第一张牌翻过来看正好是A；魔术师将黑桃A放在桌上，继续数手里的余牌，第二次数1，2，将第一张牌放到这叠牌的下面，将第二张牌翻开，正好是黑桃2．也将它放在桌子上。第三次数1，2，3，前面两张牌放在这叠牌的下面，取出第三张牌，正好是黑桃3，这样依次将13张牌翻出，准确无误。
小明依据上述描述设计了如下VB程序，计算出魔术师手中牌的原始顺序，运行结果如图所示。请回答下列问题：

（1）完善程序。请在以下程序代码段中的3处划线位置填入合适的代码。
Private Sub Form_Load （　　）
Dim i As Integer,j As Integer,n As Integer
Dim a（1 To 13）As Integer
Dim flag As Boolean
For j=1To 13
a（j）=0
Nextj
i=1：j=0：n=0
flag=True
DoWhilei＜=13
DoWhile flag
j=j+1
If j＞13 Then j=1
If a（j）=0 Then ①

n=n+1

n=n+1

If n=i Then
②

a（j）=n

a（j）=n

n=0
flag=False
End If
Loop
③

flag=true

flag=true

i=i+1
Loop
Label1．Caption=″原始牌序是：″
For i=1 To 13
Text1．Text=Text1．Text+Str（a（i））'输出扑克牌原有顺序
Next i
End Sub
（2）如果这13张黑桃扑克牌原来是有序的（即最上面为黑桃A，依次为黑桃2、黑桃3…），那么按照上述魔术师的取牌方法，取到的第5张牌是

4

4

。