在一次晚會(huì)上，一位魔術(shù)師掏出一疊撲克牌，取出其中13張黑桃，預(yù)先洗好后，把牌面朝下，對(duì)觀眾說(shuō)：“我不看牌，只數(shù)一數(shù)就能知道每張牌是什么？”魔術(shù)師口中念1，將第一張牌翻過(guò)來(lái)看正好是A；魔術(shù)師將黑桃A放在桌上，繼續(xù)數(shù)手里的余牌，第二次數(shù)1，2，將第一張牌放到這疊牌的下面，將第二張牌翻開(kāi)，正好是黑桃2．也將它放在桌子上。第三次數(shù)1，2，3，前面兩張牌放在這疊牌的下面，取出第三張牌，正好是黑桃3，這樣依次將13張牌翻出，準(zhǔn)確無(wú)誤。
小明依據(jù)上述描述設(shè)計(jì)了如下VB程序，計(jì)算出魔術(shù)師手中牌的原始順序，運(yùn)行結(jié)果如圖所示。請(qǐng)回答下列問(wèn)題：

（1）完善程序。請(qǐng)?jiān)谝韵鲁绦虼a段中的3處劃線位置填入合適的代碼。
Private Sub Form_Load （　?。?br />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張黑桃撲克牌原來(lái)是有序的（即最上面為黑桃A，依次為黑桃2、黑桃3…），那么按照上述魔術(shù)師的取牌方法，取到的第5張牌是

4

4

。