当前位置: 高中信息技术 / 综合题
  • 1. (2018高二上·浙江月考) 用VB设计一个模拟选手得分程序,在文本框Text1中输入裁判人数(人数大于2),然后点击Command1按钮,在List1中产生70到100的随机数为裁判的打分,去除一个最高分,去除一个最低分,取其他裁判打分的平均分作为最终得分显示在文本框Text2中,运行效果如图所示。

    1. (1) 若要在程序运行时,修改窗体显示的标题为“得分计算”,则下面语句可行的是。(单选,填字母:A .Command1.Caption=“得分计算”/B .Form1.Name=“得分计算”/C .Form1.Text=“得分计算”/D .Form1.Caption=“得分计算”)
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim n As Integer   '裁判人数

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

      Dim AveScore As Single  '存储最终得分

      n = Val(Text1.Text): sum = 0

      If n <= 2 Then MsgBox ("输入数据要大于2,请重新输入!")

      If n > 2 Then

          List1.Clear

          Randomize

          score = Int(Rnd() * 31) + 70

          List1.AddItem Str(score)

         

          max = score

          min = score

          For i = 2 To n

              score = Int(Rnd() * 31) + 70

              List1.AddItem Str(score)

              If score > max Then max = score

              If score < min Then min = score

              sum = sum + score

          Next i

          AveScore =

          Text2.Text = Str(AveScore)

      End If

      End Sub

    3. (3) 若要将最终得分保留一位小数(四舍五入),下列代码可行的是______________________。
      A . AveScore=int(AveScore+0.5) B . AveScore=int(AveScore*10+0.5)/10 C . AveScore=int(AveScore*100+0.5)/100

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