某次大奖赛有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

题库:计算机等级考试 类型:填空题 时间:2017-07-03 14:24:16 免费下载:《填空》Word试卷

某次大奖赛有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

本题关键词:个人分红保险精算规定,最低分钟通气量,最小成本分析,最大胃酸分泌量测定,最小成本分析法,灵枢·顺气一日分为四时,最大胃酸分泌量,评分权数和,行为细分,每分钟最大通气量;