问题
填空题
以下是一个比赛的评分系统,假设有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 【13】 then max=hum
if 【14】 then min=num
sum=sum+num
Next i
sum= 【15】
avg=sum/6
Msgbox "最后得分:" & avg
End sub
答案
参考答案:[13]x>max
[14]x<min
[15]sum-max-min
解析: 将最高分max的初值设为0,最低分min的初值设为10,循环8次输入每个裁判的判分,如果高于max则将值赋予max,如果低于rain则将值赋予min,并将每个裁判的判分加入总和。这样在循环完8次后max里存放的是最高分,min里存放的是最低分。用sum减去最高分和最低分再除以6就是选手的实际得分。