更多"以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算平均"的相关试题:
[填空题]以下是一个竞赛评分程序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=Va1(1nputBox("请输入分数:"))
If 【13】 Then Max=x
If 【14】 Then Min=x
s=s+x
Next i
s= 【15】
p=s/6
MsgBox"最后得分:"& 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
[填空题]以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算下均分(设满分为10分),
请填空补充完整。
Private Sub Form_Click( )
Dim Max as Integer,Min as Integer
Dial 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 【13】 Then Max=x
If 【14】 Then Min=x
s=s+x
Next i
s= 【15】
p=s/6
MsgBox"最后得分:"&P
End Sub
[填空题]以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算下均分(设满分为10分),
请填空补充完整。
Private Sub Form_Click( )
Dim Max as Integer,Min as Integer
Dial 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 【13】 Then Max=x
If 【14】 Then Min=x
s=s+x
Next i
s= 【15】
p=s/6
MsgBox"最后得分:"&P
End Sub
[填空题]下面是一个体操评分程序。20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。
Private Sub Command1_Click( )
Max=0
Min=10
For I=1 To 20
N=Val(InputBox("请输入分数"))
If (12) Then Max=N
If N<Min Then Min=N
S=S+N
Next I
S= (13)
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<Min Then Min=n
s=s+n
______
s=s-Min-Max
p=s/18
Print "最高分"; Max; "最低分"; Min
Print "最后得分: "; p
End Sub
[填空题]以下是一个比赛的评分系统,假设有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
[简答题]青年歌手大奖赛的比赛规则是:评审委员会由n名评委组成,去掉一个最高分,去掉一个最低分,计算其余评委打分的平均值,作为参赛选手的最终成绩。请编写程序,通过键盘依次输入评委的人数及所有评委的打分,并计算出参赛选手的最终成绩。
[简答题]设计程序题:青年歌手大奖赛的比赛规则是:评审委员会由n名评委组成,去掉一个最高分,去掉一个最低分,计算其余评委打分的平均值,作为参赛选手的最终成绩。请编写程序,通过键盘依次输入评委的人数及所有评委的打分,并计算出参赛选手的最终成绩。
[填空题]某次大奖赛有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
(14)
End If
End If
(15)
Next i
aver=(aver-max1-min1)/5
MsgBox aver
End Sub