问题
填空题
以下是一个比赛的评分系统，假设有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 8num=val(inputbox("请输入分数" )if 【13】 then max=humif 【14】 then min=numsum=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就是选手的实际得分。