以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分几位最后得分)，如图16-9所示。请填空。
Private Sub Command1_Click()
Dim k As Integer
Dim sum Ad Single, max As Single, min As Single
sum=Text1(0)
max=Text1(0)
min= 【10】
For k= 【11】 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=( 【12】 )/5
End Sub
