15.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'對比分數(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=“兩隊戰(zhàn)平了“
End If
End Sub
(1)若希望程序在運行時列表框List1清空,則應(yīng)該在代碼中添加語句
(單選,填字母:A.List1.additem/B.List1.clear/C.List1.清空/D.List1.caption)。
(2)在程序畫線處填入合適代碼,使程序完整。
①
.
②
.
③
.
(3)加框處代碼有錯,請改正。
改正:
.