編寫VB程序，功能為：單擊“發(fā)牌”按鈕“Command1”后，從一副撲克牌（不包括大王、小王、J、Q、K、A）中隨機(jī)抽取5張牌，牌的花色（????）忽略，顯示在列表框“List1”中。如果這5張牌由一個對子和一個順子（3張牌連續(xù)）組成，則在標(biāo)簽“Label1”中顯示“運(yùn)氣不錯：）”，否則顯示“運(yùn)氣一般：|”。程序運(yùn)行界面如圖所示。

實(shí)現(xiàn)上述功能的VB程序如下：
Private Sub Command1_Click （　?。?br />List1．Clear
Dim five（1 To 5）As Integer
Dim i As Integer,j As Integer,k As Integer
Dim p As Integer,find_pair As Boolean
'隨機(jī)抽取5張牌，將牌的點(diǎn)數(shù)存儲在數(shù)組five中，并在List1中顯示。代碼略
i=5：p=1：find_pair=False
Do While i＞=2
j=p
Do While j＜=i-1
If five（j）＞five（j+1）Then
t=five（j）：five（j）=five（j+1）：five（j+1）=t
ElseIf five（j）=five（j+1）And Not find_pair Then
t=five（1）：five（1）=five（j）：five（j）=t
t=five（2）：five（2）=five（j+1）：five（j+1）=t
find_pair=True
i=i+1
p=_______
Exit Do
End If
j=j+1
Loop
i=i-1
Loop
k=0
For i=3 To 4
If   Then k=k+1
Next i
If five（1）=five（2）And k=2 Then
Label1．Caption=“運(yùn)氣不錯：）“
Else
Label1．Caption=“運(yùn)氣一般：|“
End If
End Sub
請回答下列問題：
（1）窗體標(biāo)題顯示的文字為“對子和順子”，是通過修改窗體的

Caption

Caption

屬性實(shí)現(xiàn)的。
（2）完善程序在橫線處填寫正確代碼。
（3）程序代碼中，加框處代碼有錯，請改正。
（4）單擊“發(fā)牌”按鈕隨機(jī)抽取的5張牌為“2、1、2、3、2”，則在標(biāo)簽“Label1”中顯示的是

A

A

。（單選，填字母：A．運(yùn)氣不錯：）/B．運(yùn)氣一般：|）