![[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令](http://www.mshxw.com/aiimages/31/260396.png "[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令")
[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。 ![[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令](/uploadfile/member/20180926/1537964710.jpg "[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令")
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问题解析:
1sum-max-min或 sum-min-max 本题考查解决。实际问题的能力。题目综合性较强，需要对基本算法有所了解。按照题目要求，我们需要先找出最大值和最小值，然后对所有的数进行求和，求和结果减去最大值和最小值，再取平均数即可。掌握了该程序的流程，就很容易回答。
