网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
以下是一个竞赛评分程序。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 【 】 Then Max=x
If 【 】 Then Min=x
s=s+x
Next i
s= 【 】
p=s/6
MsgBox"最后得分："&P
End Sub
参考答案
更多 “ 以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分(设满分为10分)，请填空补充完整。Private Sub Form_Click()Dim Max as Integer,Min as IntegerDial i as Integer,x as Integer,s as IntegerDim p as SingleMax=0Min=10For i=1 To 8x=Val (InputBox("请输入分数："))If 【 】 Then Max=xIf 【 】 Then Min=xs=s+xNext is= 【 】p=s/6MsgBox"最后得分："PEnd Sub ” 相关考题
考题
（11）下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Mix=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If nMax Then Max=n If nMix Then Mix=n s=s+n s=s-Mix-Max P=s/18 Print"最高分";Max;"最低分";Mix 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 singlemax=0min=10For i=1 to 8num=val(inputbox("请输入分数" )if 【 】 then max=humif 【 】 then min=numsum=sum+numNext isum=【 】avg=sum/6Msgbox "最后得分:" avgEnd sub
考题
奥运赛场上，七位裁判员给一名跳水运动员评分后，去掉一个最高分和一个最低分，平均得9.42分；只去掉一个最高分，平均得9.35分；只去掉一个最低分，平均得9.5分。这个运动员的最高分与最低分相差多少分?（ ）A．0.6B．0.7C．0.8D．0.9
考题
以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。Private Sub Form_Click()Dim Max As Integer,Min As IntegerDim i As Integer,x As Integer，s As IntegerDim p As SingleMax=0Min=10For i=1 To 8x=Val(InputBox("请输入分数："))If【 】Then Max=xIf【 】 Then Min=xs=s+xNext is=【 】p=s/6MsgBox"最后得分："pEnd Sub
考题
有七位考官对一位应聘者评分，如果去掉一个最高分和一个最低分，则平均分为7分；如果只去掉一个最高分，则平均分为6.75分；如果只去掉一个最低分，则平均分为7.25分。那么，这位应聘者所得的7个分数中，最高分与最低分的差值为（ ）分。
A1.5
B2
C3
D3.5
考题
歌唱大赛选手成绩计算：歌唱大赛选手成绩计算方法如下：去掉一个最高分，去掉一个最低分，将剩下分数的平均值作为选手的最后成绩。这里假设共有10位评委，都是按照百分制打分，用数组来存放10个评委的分数。
热门标签
最新试卷
