統(tǒng)計(jì)最長的順子牌。點(diǎn)擊“抓牌”按鈕隨機(jī)生成1—13之間的整數(shù)，將之轉(zhuǎn)換為撲克牌的牌號（整數(shù)1對應(yīng)的牌號是A，整數(shù)2對應(yīng)著牌號2，10的牌號是0，以此類推，如下表）顯示在文本框Text1中，并存入數(shù)組a中，同時(shí)選出最長的順子牌（順子牌是最小3開始，要求連續(xù)牌號連續(xù)，A、2不能當(dāng)順子牌；如牌號為5，7，6，J，5，2，K，4，Q，A，2，J，則順子牌號有4，5，6，7；J，Q，K若順子牌數(shù)量相同，輸出較小的順子牌）顯示在文本框Text2中。VB程序運(yùn)行界面如圖所示。隨機(jī)整數(shù)1-13對應(yīng)的牌號如下。
（1）上述程序界面中有Caption屬性的對象共有

4

4

個(gè)。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請改正。
Dim a（1 To 13）As Integer,b（1 To 13）As Integer
Const ph=“34567890JQKA2“
Private Sub Command1_Click （　?。?br />Randomize
s=““
For i=1 To 13
a（i）=Int（Rnd*13+1）
s=s+Mid（ph,①

（a（i）+10）Mod13+1

（a（i）+10）Mod13+1

，1）
If i＜＞13 Then s=s+“，“
②

b（a（i））=b（a（i））+1

b（a（i））=b（a（i））+1

Next i
Text1.Text=s
k=1：Max=0：s=““
For i=4 To 13
If b（i）＞0 And b（i-1）＞0 Then
k=k+1
If k＞Max Then
Max=k：org=③

i-k+1

i-k+1

End If
Else
k=1
End If
Next i
For j=org To org+Max-1
s=s+
If j＜＞org+Max-1 Then s=s+“，“
Next j
Text2.Text=s
For i=1 To 13
b（i）=0
Next i
End Sub