问题
填空题
某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。
Sub Command1_Click()
Dim mark!，aver!，i%，max1!，min1!
aver=0
For i=1 To 7
mark=InputBox("请输入第"&i&"位评委的打分")
If i=1 then
max1=mark:min1=mark
Else
If mark＜min1 then
min1=mark
Else If mark＞max1 then
(12)
End If
End If
(13)
Next i
aver=(aver-max1-mini)/5
MsgBox aver
End Sub
答案
参考答案：(12) max1=mark (13) aver=aver+mark
解析： 本题考查的是VBA编程基础。
通过mark和min1比较得出最低分存入min1中，通过mark和rnax1比较得出最高分存入max1中，然后利用avet累加所有的评分，最后从aver中减去最高分和最低分再除以5即为参赛者最后得分。