以下是一个比赛的评分系统，假设有8名评委，评分标准是去掉一个最高分和一个最低分，剩余分数的平均分即为选手的得分。试将程序补充完整。Private sub Form_Click( )Dim max as integer,min as integer,i as integer,num as integer,sum as integer,avg as singlemax=0min=10For i=1 to 8num=val(inputbox("请输入分数" )if 【 】 then max=humif 【 】

以下是一个比赛的评分系统，假设有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