2. 计算机
  3. 某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 sub commandl_click() Dim mark!，aver!，i％，maxl!，minl! aver=0 F

某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 sub commandl_click() Dim mark!，aver!，i％，maxl!，minl! aver=0 F

admin2010-04-08  45
问题 某次大奖赛有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 markminl=mark
Elself mark>maxl Then
【  】
End If
End If
【  】
Next i
aver=(aver-maxl-minl)／5
MsgBox aver
End sub
选项
答案　maxl=mark,aver=averr+mark
解析 通过。mark和mini比较得出最低分存人minl中，通过mark和maxl比较得出最高分存入maxl中，然后利用aver累加所有的评分，最后从aver中减去最高分和最低分再除以5即为参赛者最后得分。
转载请注明原文地址:https://kaotiyun.com/show/YOwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)