学进去

AB两个篮球队进行了多场比赛，现在要统计比分并确定获胜球队。计分规则是胜场多的队伍获胜，若胜场相同，则计算累计小分（小分=本队得分-对手得分），小分多获胜，若还是相同，则算平局。小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框Text1中，单击“统计”按钮command1，把两队每场按AB两队比分差降序显示在列表框list1中，同时在文本框Text2输出最终结果。部分程序界面如图所示。

Private sub command1_click()
Dim a(1 to 20) as integer,b(1 to 20) as integer,i as integer
Dim j as integer,t as integer,p as integer,k as integer,xiaofen as integer
‘从文本框读取AB两队各场的比分分别存数组a、b，场次k，代码略
For i=1 to k-1
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
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    then   _________
Text2.text = “B队获胜”
Else
Text2.text = “两队平局”
End if
End sub
(1)在程序划线处填入合适代码，使程序完整
(2)加框处代码有错误，请改正。
(3)若希望程序在运行时列表框list1内容清空，则应该在代码中添加语句_____（单选，填字母：A.list1.additem B.list1.clear C.list1.caption ）