题目

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） 若希望程序在运行时列表框list1内容清空，则应该在代码中添加语句（单选，填字母：A . list1.additem \B . list1.clear \C . list1.caption ） （2） 在程序划线处填入合适代码，使程序完整 ① ② ③  （3） 加框处代码有错误，请改正。 答案： 【1】B 【1】k-i【2】a(j)-b(j)>a(j+1)-b(j+1)【3】p=p+1 p*2<k or k*2=p and xiaofen<0 或 p<k-p or k*2=p and xiaofen<0

查看本题答案和解析