问题
填空题
某次大奖赛有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
ElseIf mark>max1 Then
(14)
End If
End If
(15)
Next i
aver=(aver-max1-min1)/5
MsgBox aver
End Sub
答案
参考答案:max1=matk