以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算下均分(设满分为10分),
请填空补充完整。
Private Sub Form_Click()
Dim Max as Integer,Min as Integer
Dial i as Integer,x as Integer,s as Integer
Dim p as Single
Max=0
Min=10
For i=1 To 8
x=Val (InputBox("请输入分数:"))
If 【 】 Then Max=x
If 【 】 Then Min=x
s=s+x
Next i
s= 【 】
p=s/6
MsgBox"最后得分:"&P
End Sub
第1题:
第2题:
“去掉一个最高分,去掉一个最低分,再求平均得分”的操作,是为了减小误差。 ()
第3题:
歌唱大赛选手成绩计算:歌唱大赛选手成绩计算方法如下:去掉一个最高分,去掉一个最低分,将剩下分数的平均值作为选手的最后成绩。这里假设共有10位评委,都是按照百分制打分,用数组来存放10个评委的分数。
第4题:
选做题:编写一个竞赛评分程序。(设4位选手,5位评委)评分标准:去掉一个最高分,去掉一个最低分,求出选手的平均分。(使用随机函数产生选手成绩,随机函数的使用程序样例见附件)。
第5题:
1、某项体育赛事会邀请N位评委(最多十位),每位评委会给出1-9之间的一个整数作为评分值。评分统计程序要去掉一个最高分,去掉一个最低分,然后计算平均值并显示,输出显示时保留两位小数。