更多"某次比赛规定选手成绩为五位评委去掉最高分与最低分后的平均成绩,已知某人"的相关试题:
[填空题]设有十位评委给某位选手打分,以去掉一个最高分和一个最低分后的平均分作为该选手的成绩。试编写程序,要求从键盘输入评委的评分并存入到数组中,计算并输出选手成绩。
[填空题]
某次大奖赛有7个评委同时为一位选手打分,去掉一个最高分和一个最低分,其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 Sub command1_click( ) Dim mark!, aver!, i%,max1!,min1! aver = 0 For i = 1 To 7 Mark = InputBox(“请输入第”& i & “位评为的打分”) If i = 1 then max1 =mark : min1=mark Else If mark < min1 then min1= mark ElseIf mark> max1 then 【1】 End If End If 【2】 Next i aver = (aver - max1- min1)/5 MsgBox aver End Sub
1()
[单项选择]六位同学数学考试的平均成绩是92.5分,他们的成绩是互不相同的整数,最高分是99分,最低分是76分,则按分数从高到低居第三位的同学至少得( )分。
A. 80分
B. 90分
C. 95分
D. 97分
[单项选择]体操比赛有六位裁判评分,去掉一个最高分9.80后,剩下五个分数的平均分减少0.05分。去掉一个最低分9.42后,剩下四个数的平均分是多少
A. 9.50
B. 9.52
C. 9.54.
D. 9.60
[填空题]以下是一个比赛的评分系统,假设有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 【13】 then max=hum
if 【14】 then min=num
sum=sum+num
Next i
sum= 【15】
avg=sum/6
Msgbox "最后得分:" & avg
End sub
[填空题]以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输 入负数时结束输入,输出结果。请补充完整下列程序段。
Dim x,amax,amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While【 】
If x>amax Then
amax=x
End If
If【 】Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print"max=";amax,"min=";amin
[填空题]以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入。请填空。
Private Sub Command1_Click( )
Dim x,amax,amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While______
If x>amax Then
amax=x
End If
If______Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print "max=";amax,"min=";amin
End Sub
[单项选择]某次消防知识竞赛,比赛规定,每答对一题得4分,每答错一题倒扣2分,没答的得。分。一共30题中,某消防员只有5题没答,最后他一共得70分。则他一共答对( )道题。
A. 5
B. 10
C. 15
D. 20
[填空题]下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。
Private Sub Commandl_Click( )
Max=0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If n>Max Then Max=n
If n<Min Then Min=n
s=s+n
_______
s=s-Min-Max
p=s/18
Print "最高分";Max;"最低分";Min
Print "最后得分:";p
End Sub
[填空题]下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。
Private Sub Command1_Click( )
Max=0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If n>Max Then Max=n
If n s=s+n
______
s=s-Min-Max
p=s/18
Print"最高分";Max;"最低分";Min
Print"最后得分:";p
End Sub
[填空题]以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算平均分(设满分为10分)。请填空补充完整。
PrivateSubForm_Click( )
Dim Max as Integer,Min as Integer
Dim i as Integer,x as Integer,s as Integer
Dimp p as Single
Max=0
Min=10
Fori=1 To 8
x=Vid(1nputBox("请输入分数:"))
If______Ihen Max=x
If______ThhcnMin=x
s=s+x
Nexti
S=______
p=s/6
MsgBox"最后得分:"&p
EndSub
[填空题]程序的功能是,在10个评委中,去除一个最高分和一个最低分,然后求平均分。
main( )
{
int a[10],i,max,min;
float s=0:
for(i=0;i<10;i++)
{
scanf("%d",&a[i]);
s=s+a[i];
}
max=min=a[0];
for(i=1;i<10;i++)
{
if(max
[单项选择]某次考试,某班语文成绩优秀的有28人,数学成绩优秀的有32人,英语成绩优秀的有34人,语文、数学(此时包含数学)成绩都是优秀的有22人,语文、英语成绩都是优秀的有24人,数学、英语成绩都是优秀的有25人,语文、数学、英语成绩都达到优秀的有18人,那么,该班语文、数学、英语三科中至少有一科成绩是优秀的有()人。
A. 35
B. 41
C. 94
D. 71
E. 以上答案均不正确
[单项选择]选手:比赛:裁判
A. 司机:意外:交警
B. 歌手:合唱:指挥
C. 演员:演出:观众
D. 男女:厕所:标识
[单项选择]某单位有185人,在某次乒乓球比赛中,有12%的男员工和12.5%的女员工参加这次比赛,则该单位男员工有()人
A. 25
B. 65
C. 105
D. 125
[单项选择]短跑决赛中,前三名甲、乙、丙是A、B、C队的选手。已知:
①A队选手的成绩比B队选手的成绩好
②C队选手的成绩比乙差
③C队选手的成绩比丙好
根据上述条件,下列选项中,()项肯定为真。
A. 甲、乙、丙依次为C队、B队和A队选手
B. C队选手是冠军,A队选手是亚军,B队选手是季军
C. 甲、乙、丙依次为C队、A队和B队选手
D. A队选手是冠军,B队选手是亚军,C队选手是季军