当前位置: 高中信息技术 / 综合题
  • 1. (2022·温州模拟) 小李要编写一个文艺汇演节目的计分系统。有m位评委给n个节目打分,采用100分制,0分表示放弃评分。计分方式为:不计0分,求去掉一个最高分和一个最低分后的平均分,最后从高到低输出成绩。编写VB程序,实现上述功能。运行程序时,在列表框List1中显示n个节目的m个分数,单击“计算”按钮Command1,在列表框List2中显示n个节目的最终得分。程序界面如图所示。

    1. (1) 分析语句Private Sub Command1_Click(),其中Command1、Click、Command1.Click依次表示为(单选,填字母: A .对象名、属性名、过程名/ B .对象名、方法名、过程名/ C .对象名、事件名、过程名)。
    2. (2) 实现上述功能的部分VB程序如下,请在划线处填入合适的代码。

      'n和m是常量,分别表示节目数和评委数,代码略

      Dim df(1 To m * n) As Integer

      Private Sub Form Load()

      '从数据库中读取n个节目的m个评委的评分、依次存入数组df中,并显示在List1中,代码略。

      End Sub

      Private Sub Command1_ Click ()

          Dim i As Integer, j As Integer, cnt As Integer

          Dim sum As Integer, max As Integer, min As Integer

          Dim index(1 To n) As Integer, score(1 To n) As Single

          For i=1 To n

              x=(i-1)*m+1

              y=i*m

              sum=0:cnt=0

              For j=x To y

                 If df(j)=0 Then cnt=cnt+1

                 sum =

              Next j

              max = df(x): min = df(x)     '统计每个节目的最高分与最低分

              For j=x+1 To y

                 If df(j) > max Then max = df(j)

                 If df(j)<>0And()Then min=df(j)

              Next j

              If cnt<m-2 Then score(i)=

              index(i) = i

          Next i

          For i=1 To n

              For j=nToi+1Step -1

                  If  Then

                      t = index(j): index(j) = index(j- 1): index(j- 1) = t

                  End If

              Next j

          Next i

          For i=1 To n

              List2.AddItem"节目" & index(i) & "得分:" & Int (score (index(i))*100)/100

          Next i

      End Sub

    3. (3) 程序中加框处代码有错,请改正。

微信扫码预览、分享更方便