试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省稽阳联谊学校2020届高三下学期信息技术4月联考试卷

AB两个篮球队进行了多场比赛,现在要统计比分并确定获胜球队。计分规则为胜场多的队伍获胜,若胜场相同,则计算累计小分(小分=本队得分-失分),小分多获胜,若还是相同则算平局。

小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框text1中,单击“统计”按钮command1,把两队各场的比分按A队小分降序显示在列表框list1输出,同时在文本框text2输出最终结果。部分程序界面如图所示,VB代码如下,回答下列问题:

Private Sub Command1_Click()

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两队各场的得分分别记录在数组a、b,代码略

For i = 1 To k – 1   ‘对比分数据按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     ‘统计小分并输出比分

  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.清空  D . list1.caption)
(2)、在程序划线处填入合适代码,使程序完整

 ② ③ 

(3)、加框处代码有错,请改正
返回首页

试题篮