下列關(guān)于某紙牌游戲的算法是：隨機(jī)產(chǎn)生兩組牌，每組17張，牌從小到大
分別為“3～10、J、Q、K、A、2”，每種牌最多4 張，四張相同的牌如3333稱為炸彈牌 型，炸彈不能拆成其他牌型。按照如下規(guī)則出牌：
①先出順子牌型（順子指連續(xù)的5 張及以上的牌，如345678，順子最小從3 開始，最大到A），若有多個順子，先長后短，長度相同按從小到大順序出；
②再按三帶一牌型（3張相同的牌帶一張單牌）、對子牌型（2張相同）、單張牌型的順 序出牌，同一牌型從小到大出；
③最后出炸彈，若有多個炸彈，從小到大出。
設(shè)計以下VB程序，牌“10”用0 代替，比較兩組出牌次數(shù)，界面如圖所示，請回答下 列問題。
（1）若A組初始牌為：4567880JQQQQKAAA2，B組初始牌為：56778888JQQKKKA22，
則A組出牌次數(shù)

小于

小于

B組。（填：大于/等于/小于）
（2）請在橫線處填入合適代碼。
Consts=“34567890JQKA2“'用0代替牌10
Dims1As String,s2As String's1存儲A組牌，s2存儲B組牌
Dimb（1To18）As String
'數(shù)組b存儲各類牌型，其中b（1）到b（4）可存儲炸彈牌型，b（5）到b（18）存儲其他牌型
PrivateSubCommand1_Click （　　）
'隨機(jī)產(chǎn)生A組和B組牌分別在文本框Text1、Text2中顯示，代碼略
EndSub
Subarrange（stAs String）'整理牌型的過程
Dima（3To15）AsInteger,iAsInteger
DimjAsInteger,tAsInteger,nAsInteger
DimkAsInteger,maxAsInteger,lastAsInteger
DimsaAs String,stemAsString,flagAsBoolean
'數(shù)組元素a（3）到a（15）分別存儲牌3～JQKA2的張數(shù)'代碼略
t=17
For i=1To18b（i）=““
Nexti
DoWhilet＞0n=0
For i=3To15'尋找炸彈牌型，若有則存儲到數(shù)組b中
Ifa（i）=4Then

①

①

n=n+1
b（n）=stem+stem+stem+stem
a（i）=0：t=t-4
EndIf
Nexti

②

②

flag=True
DoWhileflag'尋找順子牌型，若有則存儲到數(shù)組b 中
flag=False：max=0：k=1
Fori=4To14
Ifa（i-1）＞=1Anda（i）＞=1Then k=k+1
Ifk＞maxThen
max=k last=i+1
EndIf
Else
k=1
EndIf
Nexti
Ifmax＞=5Then
flag=True：sa=““
Forj=last-max+1Tolast stem=Mid（s,j-3，1）sa=sa+stem+““

③

③

Nextj
n=n+1：b（n）=sa t=t-max
EndIf
Loop
'尋找并存儲三帶一、對子、單張牌型，代碼略
Loop
EndSub
PrivateSubCommand2_Click （　　）
Dim count1AsInteger'count1統(tǒng)計A組出牌次數(shù)
Dim count2AsInteger'count2統(tǒng)計B組出牌次數(shù)
Callarrange（s1）
'在List1中顯示A組出的牌型，統(tǒng)計出牌次數(shù)，代碼略
Callarrange（s2）
'在List2中顯示B組出的牌型，統(tǒng)計出牌次數(shù)，代碼略
Ifcount2＞count1Then
Label3．Caption=“A組出牌次數(shù)小于B組“
ElseIfcount2=count1Then
Label3．Caption=“A組出牌次數(shù)等于B組“
Else
Label3．Caption=“A組出牌次數(shù)大于B組“
EndIf
EndSub