AB兩個(gè)籃球隊(duì)進(jìn)行了多場比賽，現(xiàn)在要統(tǒng)計(jì)比分并確定獲勝球隊(duì)。計(jì)分規(guī)則為勝場多的隊(duì)伍獲勝，若勝場相同，則計(jì)算累計(jì)小分（小分=本隊(duì)得分-失分），小分多獲勝，若還是相同則算平局。
小藍(lán)同學(xué)根據(jù)上述算法編寫了一個(gè)VB程序?qū)崿F(xiàn)比賽結(jié)果統(tǒng)計(jì)。每場比分記錄在文本框Text1中，單擊“統(tǒng)計(jì)”按鈕Command1，把兩隊(duì)各場的比分按A隊(duì)小分降序顯示在列表框List1輸出，同時(shí)在文本框Text2輸出最終結(jié)果。部分程序界面如圖所示，VB代碼如下，回答下列問題：

Private Sub Command1_Click （　?。?br />Dim a（1 To 20）As Integer,b（1 To 20）As Integer
Dim i As Integer,j As Integer,t As Integer,p As Integer,k As Integer,xiaofen As Integer
'從文本框讀取比分，場次k,AB兩隊(duì)各場的得分分別記錄在數(shù)組a、b,代碼略
For i=1 To k–1'對比分?jǐn)?shù)據(jù)按A隊(duì)小分降序排序
For j=1 To①______
If ②______Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
t=b（j）：b（j）=b（j+1）：b（j+1）=t
End If
Next j
Next i
p=0：xiaofen=0
For i=1 To k'統(tǒng)計(jì)小分并輸出比分
If a（i）＞b（i）Then ③______
xiaofen=xiaofen+a（i）-b（i）
List1.AddItem Str（a（i））+“：“+Str（b（i））
Next i
If p*2＞k Or k=p*2 And xiaofen＞0 Then
Text2.Text=“A隊(duì)獲勝“
ElseIf p＜=k-p Then
Text2.Text=“B隊(duì)獲勝“
Else
Text2.Text=“兩隊(duì)?wèi)?zhàn)平了“
End If
End Sub
（1）若希望程序在運(yùn)行時(shí)列表框List1清空，則應(yīng)該在代碼中添加語句

B

B

（單選，填字母：A.List1.additem/B.List1.clear/C.List1.清空/D.List1.caption）。
（2）在程序畫線處填入合適代碼，使程序完整。
①

k-i

k-i

.
②

a（j）-b（j）＜a（j+1）-b（j+1）

a（j）-b（j）＜a（j+1）-b（j+1）

.
③

p=p+1

p=p+1

.
（3）加框處代碼有錯(cuò)，請改正。
改正：

p*2＜k Or k=p*2 And xiaofen＜0

p*2＜k Or k=p*2 And xiaofen＜0

.