![[填空题] 以下是一个比赛评分程序。在窗体上建立一个名称为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入6个分数，单击"计算](http://www.mshxw.com/aiimages/31/248822.png "[填空题] 以下是一个比赛评分程序。在窗体上建立一个名称为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入6个分数，单击\"计算")
[填空题] 以下是一个比赛评分程序。在窗体上建立一个名称为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入6个分数，单击"计算得分"命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所示。请填空。
![[填空题] 以下是一个比赛评分程序。在窗体上建立一个名称为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入6个分数，单击"计算](/uploadfile/member/20180926/1537965023.jpg "[填空题] 以下是一个比赛评分程序。在窗体上建立一个名称为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入6个分数，单击\"计算")
Private Sub Command1_Click()
Dim k As Integer
Dim Sum As Single,max As Single,min As Single
Sum=Text1(0)
max=Text1(0)
min= (7)
For k=0 To 5
If max＜Text1(k)Then
max=Text1(k)
End If
If min＞Text1(k)Then
min=Text1(k)
End If
Sum=Sum+Text1(k)
Next k
Text2= (8) /4
End Sub
参考答案：
(Sum-Text1(0)-max-min)问题解析:
本题考查了文本框控件的数组，控件数组是由一组相同类型的控件组成，这些控件共用一个相同的名字，具有同样的属性设置。控件数组建立后，只要改变一个控件的Name属性，并把index属性设置为空，就能把控件从数组中删除。控件数组中的控件执行相同的事件过程。题目正是使用了控件数组的这个性质，然后求数组的各元素之和的。Min开始要初始化，所以要给它赋值。k是条件变量，应该从0开始。最后求平均值，要用所求的和减去最大值和最小值。
