（11）下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Mix=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n>Max Then Max=n If n>Mix Then Mix=n s=s+n s=s-Mix-Max P=s/18 Print"最高分";Max;"最低分";Mix Print"最后得分：";p End Sub
题目
（11）下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Mix=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n>Max Then Max=n If n>Mix Then Mix=n s=s+n s=s-Mix-Max P=s/18 Print"最高分";Max;"最低分";Mix Print"最后得分：";p End Sub
相似考题
更多“(11)下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。 Pr ”相关问题
-
第1题：
以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。
Private Sub Form_Click()
Dim Max As Integer,Min As Integer
Dim i As Integer,x As Integer，s As Integer
Dim p As Single
Max=0
Min=10
For i=1 To 8
x=Val(InputBox("请输入分数："))
If【 】Then Max=x
If【 】 Then Min=x
s=s+x
Next i
s=【 】
p=s/6
MsgBox"最后得分："&p
End Sub
正确答案：x＞Max xMin s-Min-Max
x＞Max xMin s-Min-Max 解析：本题中先给最大值变量赋值为0，最小值变量赋值为10。然后把输入的分数x与最大值和最小值比较，如果x比最大值大，则把x赋值给Max，故第一空填x＞Max：如果x比最小值小，则把x赋值给Min，故第二空填 xMin。因为算平均分之前要把最高分和最低分去掉，故第三空应该填s-M9x-Min。 -
第2题：
选做题：编写一个竞赛评分程序。（设4位选手，5位评委）评分标准：去掉一个最高分，去掉一个最低分，求出选手的平均分。（使用随机函数产生选手成绩，随机函数的使用程序样例见附件）。
选择赛制;编排比赛轮次;抽签进入自己的位置号;编排竞赛日程;编印秩序册 -
第3题：
歌唱大赛选手成绩计算：歌唱大赛选手成绩计算方法如下：去掉一个最高分，去掉一个最低分，将剩下分数的平均值作为选手的最后成绩。这里假设共有10位评委，都是按照百分制打分，用数组来存放10个评委的分数。
节奏较简单;内容与文字具有童趣并易于记忆和理解;歌词内容应富于爱、富于没、富于想象、富于教益;歌词形式与内容应适于用动作来表现 -
第4题：
有七位考官对一位应聘者评分，如果去掉一个最高分和一个最低分，则平均分为7分；如果只去掉一个最高分，则平均分为6.75分；如果只去掉一个最低分，则平均分为7.25分。那么，这位应聘者所得的7个分数中，最高分与最低分的差值为（ ）分。
A1.5
B2
C3
D3.5答案：C解析：
-
第5题：
1、某项体育赛事会邀请N位评委（最多十位），每位评委会给出1-9之间的一个整数作为评分值。评分统计程序要去掉一个最高分，去掉一个最低分，然后计算平均值并显示，输出显示时保留两位小数。
错