以下是一个比赛评分程序。在窗体上建立一个名为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
参考答案:text1(0)
解析: 此空为程序初始化部分,控件数组中最大值、最小值、和都初始化为text1(0)的值。之后的程序已经可以完整地实现题设要求。此题也可以书写为sum或者max。