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

[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为 Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入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= 【11】 For k= 【12】 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=( 【13】 )/5End Sub

【11】Text1(0)

【12】1【13】sum-max-min[评析] 要循环比较各个数，找出最大值和最小值，首先就要把第1个数的值赋值给最大值和最小值变量，而把值赋值给最小值变量为min=Text1(0)：由于已经把第1个数的值加到变量sum中了，所以从第2个数开始循环，而第2个数的控件数组索引为1；而求平均值时把最大值和最小值去掉了，即sum-max-min。