AB兩個籃球隊進行了多場比賽，現(xiàn)在要統(tǒng)計比分并確定獲勝球隊。計分規(guī)則為勝場多的隊伍獲勝，若勝場相同，則計算累計小分（小分=本隊得分-失分），小分多獲勝，若還是相同則算平局。
小藍同學(xué)根據(jù)上述算法編寫了一個VB程序?qū)崿F(xiàn)比賽結(jié)果統(tǒng)計。每場比分記錄在文本框Text1中，單擊“統(tǒng)計”按鈕Command1，把兩隊各場的比分按A隊小分降序顯示在列表框List1輸出，同時在文本框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兩隊各場的得分分別記錄在數(shù)組a、b,代碼略
For i=1 To k–1'對比分?jǐn)?shù)據(jù)按A隊小分降序排序
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)計小分并輸出比分
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隊獲勝“
ElseIf p＜=k-p Then
Text2.Text=“B隊獲勝“
Else
Text2.Text=“兩隊?wèi)?zhàn)平了“
End If
End Sub
（1）若希望程序在運行時列表框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）加框處代碼有錯，請改正。
改正：

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

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

.