更多"程序的功能是，在10个评委中，去除一个最高分和一个最低分，然后求平均分"的相关试题:
[填空题]下列是一个体操评分程序。设满分为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 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
[填空题]
下面是一个体操评分程序。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
[填空题]以下是一个竞赛评分程序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
[填空题]下面是一个体操评分程序，20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。请在空白处填入适当的代码。
Max=0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If______Then Max=n
If______Then Min=n
s=s+n
Next i
s=______
p=s/18
Print"最高分："; Max，"最低分："; Min
Print"最后得分："; p
[填空题]以下是一个竞赛评分程序。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个评委的分数，去掉一个最高分，去掉一个最低分，求出其余8个人的平均分，输出平均分，最高分，最低分。
[填空题]以下是一个比赛的评分系统，假设有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
