填空题：以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command

以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。
PrivateSubCommand1_Click（）
　DimkAsInteger
　DimsumAsSingle,maxAsSingle,minAsSingle
　　sum=Text1（0）
　　max=Text1（0）
　　min=______
　Fork=______To6
　　Ifmax<Text1（k）Then
　　　max=Text1（k）
　　EndIf
　　Ifmin>Text1（k）Then
　　　min=Text1（k）
　　EndIf
　sum=sum+Text1（k）
　　Nextk
　Text2=（______）/5