1. (2021·浦江模拟) 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. （1） 若希望程序在运行时列表框list1内容清空，则应该在代码中添加语句（单选，填字母：A . list1.additem \B . list1.clear \C . list1.caption ）
3. （2） 在程序划线处填入合适代码，使程序完整

   ① ② ③ 

5. （3） 加框处代码有错误，请改正。