AB兩個(gè)籃球隊(duì)進(jìn)行了多場(chǎng)比賽,現(xiàn)在要統(tǒng)計(jì)比分并確定獲勝球隊(duì)。計(jì)分規(guī)則為勝場(chǎng)多的隊(duì)伍獲勝,若勝場(chǎng)相同,則計(jì)算累計(jì)小分(小分=本隊(duì)得分-失分),小分多獲勝,若還是相同則算平局。
小藍(lán)同學(xué)根據(jù)上述算法編寫(xiě)了一個(gè)VB程序?qū)崿F(xiàn)比賽結(jié)果統(tǒng)計(jì)。每場(chǎng)比分記錄在文本框Text1中,單擊“統(tǒng)計(jì)”按鈕Command1,把兩隊(duì)各場(chǎng)的比分按A隊(duì)小分降序顯示在列表框List1輸出,同時(shí)在文本框Text2輸出最終結(jié)果。部分程序界面如圖所示,VB代碼如下,回答下列問(wèn)題:
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
'從文本框讀取比分,場(chǎng)次k,AB兩隊(duì)各場(chǎng)的得分分別記錄在數(shù)組a、b,代碼略
For i=1 To k–1'對(duì)比分?jǐn)?shù)據(jù)按A隊(duì)小分降序排序
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)計(jì)小分并輸出比分
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隊(duì)獲勝“
ElseIf p<=k-p Then
Text2.Text=“B隊(duì)獲勝“
Else
Text2.Text=“兩隊(duì)?wèi)?zhàn)平了“
End If
End Sub
(1)若希望程序在運(yùn)行時(shí)列表框List1清空,則應(yīng)該在代碼中添加語(yǔ)句
B
B
(單選,填字母:A.List1.additem/B.List1.clear/C.List1.清空/D.List1.caption)。
(2)在程序畫(huà)線處填入合適代碼,使程序完整。
①
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)加框處代碼有錯(cuò),請(qǐng)改正。
改正:
p*2<k Or k=p*2 And xiaofen<0
p*2<k Or k=p*2 And xiaofen<0
.