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

[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名 为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数， 单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一 个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click()Dim k As IntegerDim sum As Single, max As Single, min As Single sum = Text1(0)max = Text1(0)min = _________For k = _________To 6If 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 = ( _________) / 5End Sub

TextA(0) , A , sum-max-min

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