您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
问题:

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

Pfivale Sub Commaildl_C1iCk()
Dimk As hteger
Dimsum As Single,maxAs Single,min As Single
sum=Text1(0)
max=Text1(0)
min=______
Fork=1 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)
Nextk
Text2=(Sum-max-min)/5
End Sub

可能感兴趣的题目: