某卡牌共有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”后，方块卡牌点数更新为
______________（填点数，逗号分隔）
（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）=①
____________’计算每种花色卡牌存储的起始位置
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
②
_______________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③
___________Then
pos=0
Else
pos=min
End If
End Function
搜索
