某卡牌共有52張牌，分黑桃，紅桃，梅花，方塊4種花色，每種花色，13張（編號為1～13），花色外分別用1，2，3，4表示。將這卡牌打亂后，從中每次摸1張牌，同種花色的牌放一起，在每種花色均有3張牌時結束摸牌，然后按花色編號從小到大展示摸到的卡牌。
摸牌規則：
（1）當某花色牌不足3張，則記錄摸到的牌，繼續摸下一張牌
（2）當某花色的牌超過3張時，若摸到的卡牌點數大于本花色中已有卡牌點數的最小值，則替換本花色中點數最小的卡牌，否則，棄置摸到的牌。繼續下一張摸牌
（3）當所有花色的牌均為3張時結束摸牌。然后按花色編號從小到大展示摸到的卡牌例如：在某次摸牌后的卡牌如下表所示：

花色	黑桃			紅桃			梅花			方塊
序號	1	2	3	4	5	6	7	8	9	10	11	12
點數	7	5	12	11	3	8	7	5		8	5	3

（1）當下一次摸到“黑桃4”的牌時，4小于已摸到的[7，5，12]，棄置摸到的牌，繼續摸牌
（2）當摸到“紅桃9”的牌時，9大于已摸到的[11，3，8]的最小值3，紅桃更新為[11，9，8]，繼續摸牌
（3）當摸到“梅花9”的牌時，梅花點數更新為[7，5，9]，達到所有花色的牌均為3張的目標，結束摸牌。
模擬此過程編寫VB程序，程序運行界面如下圖，單擊“展示摸到的卡牌”按鈕開始摸牌，滿足條件時，在列表框中展示摸到的卡牌。


（1）在如表中所示卡牌狀態下，連續2次摸牌為“方塊4”，“方塊7”后，方塊卡牌點數更新為

8，5，7

8，5，7

（填點數，逗號分隔）
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
Const n=52
Dim hs（1 To n） As Integer’存儲每張卡牌的花色
Dim num（1 To n） As Integer’存儲每張卡牌的點數
Dim class（1 To 4）As Integer’存儲每種花色卡牌的存儲位置
Dim record（1 To 12）As Integer
Private Sub Form_Load

（　　）

（　　）

’讀取打亂的卡牌中每張卡牌的花色、點數數據，存入數組hs,num中，代碼略
End Sub
Private Sub Command1_Click

（　　）

（　　）

Dim k As Integer,i As Integer,p As Integer
Dim flag As Boolean
flag=True
For i=1 To 4
class（i）=①

（i-1）*3+1

（i-1）*3+1

’計算每種花色卡牌存儲的起始位置
Next i
i=1
Do While i＜=n And flag=True
k=hs（i）
If class（k）＞k*3 Then
p=pos（i）
If p＜＞0 Then
②

record（p）=i

record（p）=i

End If
Else
record（class（k））=i
class（k）=class（k）+1
If class（1）=4 And class（2）=7 And class（3）=10 And class（4）=13 Then
flag=False
End If
End If
i=i+1
Loop
List1.AddItem“&”“花色”“&”“&”“點數”
For i=1 To 12
List1.AddItem“”& hs（record（i）&“”& mua（record（i）
Next i
End Sub

Function pos（t As Integer）As Integer’返回點數最小卡牌位置
Dim min As Integer
m=（hs（t）-1）*3+1
min=m
If num（record（min））＞num（record（n+1））Then min=m+1
If num（record（min））＞mun（record（m+2））Then min=m+2
If③

num（record（min））＞mun（t）

num（record（min））＞mun（t）

Then
pos=0
Else
pos=min
End If
End Function