以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分

admin2010-03-30  26

问题 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。

   Private Sub Commandl_Click()
     Dim k As Integer
     Dim  sum As  Single,  max;  As  Single,  min  As  Single
     sum=Text1(0)
     max=Text1(0)
     min= _____
     For k= ______ To  6
       If max<Text1(k)  Then
          max = Text1(k)
       End If
       If min>Texl(k)  Then
          min = Text1(k)
       End If
       sum=sum+Text1(k)
     Next  k
     Text2=  (______)  /5
   End Sub

选项

答案sum或max或Text1(0)或 Text1(0).Text, 1, sum-max-min或 sum-min-max

解析 本题考查解决。实际问题的能力。题目综合性较强,需要对基本算法有所了解。按照题目要求,我们需要先找出最大值和最小值,然后对所有的数进行求和,求和结果减去最大值和最小值,再取平均数即可。掌握了该程序的流程,就很容易回答。
转载请注明原文地址:https://kaotiyun.com/show/GBmp777K
0

最新回复(0)