[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输出7个分数，单击“计算得分”命令

[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为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= (7)

For k=1 To 6

If max c 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=(sum-max-min)/5

End Sub