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

admin2010-03-22  21

问题 以下是一个比赛的评分系统,假设有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://jikaoti.com/ti/ywP0FFFM
0

最新回复(0)