填空题
以下是一个比赛的评分系统，假设有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{{U}} 【13】 {{/U}}then max=hum
if{{U}} 【14】 {{/U}}then min=num
sum=sum+num
Next i
sum={{U}} 【15】 {{/U}}
avg=sum/6
Msgbox "最后得分:" & avg
End sub