某同學(xué)設(shè)計(jì)了一個(gè)VB程序用于分析“紙牌游戲”中發(fā)到手的牌的信息，各牌面值在程序中的輸入值和輸出值如圖1所示。程序運(yùn)行界面如圖2所示，在文本框Text1中輸入數(shù)字代表玩家手中的牌的信息，點(diǎn)擊“分析”按鈕后，在列表框list1按牌面值順序輸出各中牌的相關(guān)信息。

請(qǐng)回答下列問題：
（1）在打牌中5張以上的連續(xù)牌稱為順子，若輸入的牌是“8991012141511610113”，則這些牌中的順子是（使用上圖中“輸出值”表示各種牌）：

890JQ

890JQ

（2）請(qǐng)?jiān)跈M線處填上合適的代碼。
PrivateSubCommand1_Click （　?。?br />DimzpAsString,paiAsString,tAsString
Dima（1To50）AsInteger,b（3To15）AsInteger
‘a(chǎn)數(shù)組存儲(chǔ)按序輸入的各個(gè)牌，b數(shù)組存儲(chǔ)每個(gè)牌型（3～10，JQKA2）的數(shù)量
DimiAsInteger,cAsInteger,kAsInteger,flagAsBoolean
Consts=″34567890JQKA2″‘輸出牌型，牌10用0代替
zp=Text1．Text
i=1：c=1：flag=True
DoWhilei＜=Len（zp）Andflag=True
pai=Mid（zp,i,1）
Ifpai＞=″3″Andpai＜=″9″Then
a（c）=Val（pai）：i=i+1
ElseIfpai=″1″Then‘要用2位數(shù)字代表某個(gè)牌
k=①
Ifk＞=10Andk＜=15Then
a（c）=k
i=i+2
Else
flag=False
EndIf
Else
flag=False
EndIf
c=c+1
Loop
Ifflag=FalseThen
List1．AddItem″輸入數(shù)據(jù)有誤″
Else
Fori=1Toc-1‘洗牌，統(tǒng)計(jì)每個(gè)牌型的張數(shù)
κ②
Nexti
List1．AddItem″共有″+Str（c-1）+″張牌″
Fori=1ToLen（s）
t=″″
Fork=1To③‘輸出每個(gè)牌型及其數(shù)量
t=t+Mid（s,i,1）
Nextk
IfLen（t）＞0ThenList1．AddItemt
Nexti
EndIf
EndSub