（加试题）某同学设计了一个VB程序用于分析“纸牌游戏”中发到手的牌的信息，各牌面值在程序中的输入值和输出值如图所示。程序运行界面如图所示，在文本框Text1中输入数字代表玩家手中的牌的信息，点击“分析”按钮后，在列表框list1按牌面值顺序输出各中牌的相关信息。

请回答下列问题：
（1）在打牌中5张以上的连续牌称为顺子，若输入的牌是“8991012141511610113”，则这些牌中的顺子是（使用上图中“输出值”表示各种牌）:____________________
（2）请在划线处填上合适的代码。
Private Sub Command1_Click()
Dim zpAs String, pai As String, t As String
Dim a(1 To 50) As Integer, b(3 To 15) As Integer
‘a数组存储按序输入的各个牌，b数组存储每个牌型（3~10，JQKA2）的数量
Dim i As Integer, c As Integer, k As Integer, flag As Boolean
Const s = "34567890JQKA2"   '输出牌型，牌10用0代替
zp= Text1.Text  
i = 1: c = 1: flag = True
Do While i <= Len(zp) And flag = True
pai = Mid(zp, i, 1)
If pai >= "3" And pai <= "9" Then
a(c) = Val(pai): i = i + 1
ElseIf pai = "1" Then   ‘要用2位数字代表某个牌
k =①_________________
If k >= 10 And k <= 15 Then
a(c) = k
i = i + 2
Else
flag = False
End If
Else
flag = False
End If
c=c+1
Loop
If flag = False Then
List1.AddItem "输入数据有误"
Else
For i = 1 To c -1  '洗牌，统计每个牌型的张数
（____________________________________________________________）
Next i
List1.AddItem "共有" + Str(c -1) + "张牌"
For i = 1 To ③_________________
t = ""
For k = 1 Tob(i+2)输出每个牌型及其数量
t = t + Mid(s, i, 1)
Next k
If Len(t) > 0 Then List1.AddItem t
Next i
End If
End Sub