2. 计算机
  3. 以下是一个比赛的评分系统，假设有8名评委，评分标准是去掉一个最高分和一个最低分，剩余分数的平均分即为选手的得分。试将程序补充完整。 Private sub Form_Click( ) Dim ma

以下是一个比赛的评分系统，假设有8名评委，评分标准是去掉一个最高分和一个最低分，剩余分数的平均分即为选手的得分。试将程序补充完整。 Private sub Form_Click( ) Dim ma

admin2010-03-22  48
问题 以下是一个比赛的评分系统，假设有8名评委，评分标准是去掉一个最高分和一个最低分，剩余分数的平均分即为选手的得分。试将程序补充完整。
            Private sub Form_Click( )
                  Dim max as integer,min as integer,i as integer,num as integer,sum as integer,avg as single
                  max=0
                  min=10
                  For i=1 to 8
                        num=val(inputbox("请输入分数" )
                        if  【  】  then max=hum
                        if  【  】  then min=num
                        sum=sum+num
                  Next i
                  sum=【  】  
                  avg=sum/6
                  Msgbox "最后得分:" & avg
            End sub
选项
答案x＞max； x＜min ；sum-max-min
解析 将最高分max的初值设为0，最低分min的初值设为10，循环8次输入每个裁判的判分，如果高于max则将值赋予max，如果低于rain则将值赋予min，并将每个裁判的判分加入总和。这样在循环完8次后max里存放的是最高分，min里存放的是最低分。用sum减去最高分和最低分再除以6就是选手的实际得分。
转载请注明原文地址:https://www.kaotiyun.com/show/Guwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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