当前位置: 高中信息技术 / 综合题
  • 1. (2021高二下·浙江月考) 某比赛项目由多位评委打分,然后根据项目难度系数计算最终得分。规则为:

    最终得分=(所有评委打分总和-1个最高分-1个最低分)×项目难度系数

    编写VB程序,实现计算最终得分的功能。在文本框Text1中输入项目难度系数和多位评委的打分,中间用“,”隔开并以“,”结尾,然后点击计算按钮,在文本框Text2中显示最终得分。程序运行界面如图所示。

    1. (1) 程序中计算按钮的对象名是  (单选,填字母:A .Command1/B .Cmd1/C .Cmd1_Click)。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Cmd1_Click()

          Dim a(1 To 100) As Single

          Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer

          Dim Tot As Single, tmp As Single

          Dim s As String, v As String, ch As String

          s = Text1.Text

          n = 1:v=""

         

          Do While n <= Len(s)

              ch = Mid(s, n, 1)

              If ch <> "," Then

                  v = v & ch

              Else

                  a(m) = Val(v)

                  

                  m = m + 1

              End If

              n = n + 1

          Loop

          For i = 2 To m - 2

              For j = m - 1 To i + 1 Step -1

                  If a(i) < a(j) Then

                      tmp = a(i): a(i) = a(j): a(j) = tmp

                  End If

              Next j

          Next i

          Tot = 0

          For

              Tot = Tot + a(i)

          Next i

          Text2.Text =

      End Sub

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

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