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

PrivateSubCommandl_Click()
DimkAsInteger
DimsumAsSingle,max;AsSingle,minAsSingle
sum=Text1(0)
max=Text1(0)
min=_____
Fork=______To6
Ifmax<Text1(k)Then
max=Text1(k)
EndIf
Ifmin>Texl(k)Then
min=Text1(k)
EndIf
sum=sum+Text1(k)
Nextk
Text2=(______)/5
EndSub
提示:未搜索到的试题可在搜索页快速提交,您可在会员中心"提交的题"快速查看答案。
答案
查看答案
搜题