以下是一个比赛的评分系统,假设有8名评委,评分标准是去掉一个最高分和一个最低分,剩余分数的平均分即为选手的得分。试将程序补充完整。
Private sub Form_Click( )
Dim max as integer,min as integer,i as integer,num as integer,sum as integer,avg as single
max=0
min=10
For i=1 to 8
num=val(inputbox("请输入分数" )
if 【 】 then max=hum
if 【 】 then min=num
sum=sum+num
Next i
sum=【 】
avg=sum/6
Msgbox "最后得分:" & avg
End sub
第1题:
第2题:
选做题:编写一个竞赛评分程序。(设4位选手,5位评委)评分标准:去掉一个最高分,去掉一个最低分,求出选手的平均分。(使用随机函数产生选手成绩,随机函数的使用程序样例见附件)。
第3题:
歌唱大赛选手成绩计算:歌唱大赛选手成绩计算方法如下:去掉一个最高分,去掉一个最低分,将剩下分数的平均值作为选手的最后成绩。这里假设共有10位评委,都是按照百分制打分,用数组来存放10个评委的分数。
第4题:
15.在某项体育比赛中,七位裁判为一选手打出的分数如下: 90 89 90 95 93 94 93 去掉一个最高分和一个最低分后,所剩数据的平均值为 ,方差为 .
第5题:
1、某项体育赛事会邀请N位评委(最多十位),每位评委会给出1-9之间的一个整数作为评分值。评分统计程序要去掉一个最高分,去掉一个最低分,然后计算平均值并显示,输出显示时保留两位小数。