以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的

文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。

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 = ______

For k = ______ To 6

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 = （______） / 5