题目内容
某次大奖赛有7个评委同时为一位选手打分,去掉一个最高分和一个最低分,其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。
sub commandl_click()
Dim mark!,aver!,i%,maxl!,minl!
aver=0
For i=1 TO 7
mark=InputBox(”请输入第”&i&”位评委的打分”)
工f i=i Then
maxl=mark:minl=mark
E1Se
If mark<minl Then
minl=mark
Elself mark>maxl Then
【 】
End If
End If
【 】
Next i
aver=(aver-maxl-minl)/5
MsgBox aver
End sub
查看答案
搜索结果不匹配?点我反馈
更多问题