问题
填空题
以下是一个比赛的评分系统，假设有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就是选手的实际得分。