以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。
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