以下是一个竞赛评分程序。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+xNex

题目

以下是一个竞赛评分程序。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

相似考题

1.假设每个歌手的“最后得分”的计算方法是：去掉一个最高分和一个最低分，取剩下分数的平均分。根据“评分”表求每个歌手的“最后得分”并存储于表TEMP中，表 TEMP中有两个字段：“歌手号”和“最后得分”，并且按最后得分降序排列，生成表 TEMP的SQL语句是 ______。A．SELECT歌手号，(COUNT(分数)-MAX(分数)-MIN(分数)/SUM(*)-2)最后得分； FROM评分INTO DBF TEMP GROUP BY歌手号ORDER BY最后得分DESCB．SELECT歌手号，(COUNT(分数)-MAX(分数)-MIN(分数)/(SUM(*)-2)最后得分； FROM评分INTO DBF TEMP GROUP BY评委号ORDER BY最后得分DESCC．SELECT歌手号，(SUM(分数)-MAX(分数)-MIN(分数)/COUNT(*)-2)最后得分； FROM评分INTO DBF TEMP GROUP BY评委号ORDER BY最后得分DESCD．SELECT歌手号，(SUM(分数)-MAX(分数)-MIN(分数)/COUNT(*)-2)最后得分； FROM评分INTO DBF TEMP GROUP BY歌手号ORDER BY最后得分DESC

2.以下是一个竞赛评分程序。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

3.（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

4.以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click（ ）Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1（0）max = Text1（0）min = ______For k = ______ To 6If max < Text1（k） Thenmax = Text1（k）End IfIf min > Text1（k） Thenmin = Text1（k）End Ifsum = sum + Text1（k）Next kText2 = （______） / 5

更多“以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算平均分(设满分为10分)。请填空 ”相关问题

  • 第1题：

    某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。

    sub commandl_click()

    Dim mark!，aver!，i％，maxl!，minl!

    aver=0

    For i=1 TO 7

    mark=InputBox(”请输入第”＆i＆”位评委的打分”)

    工f i=i Then

    maxl=mark：minl=mark

    E1Se

    If mark<minl Then

    minl=mark

    Elself mark>maxl Then

    【 】

    End If

    End If

    【 】

    Next i

    aver=(aver-maxl-minl)／5

    MsgBox aver

    End sub


    正确答案：maxl=markaver=averr+mark
    maxl=mark,aver=averr+mark 解析：通过。mark和mini比较得出最低分存人minl中，通过mark和maxl比较得出最高分存入maxl中，然后利用aver累加所有的评分，最后从aver中减去最高分和最低分再除以5即为参赛者最后得分。

  • 第2题：

    阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

    [说明]

    某单位组织一次职业技术考核比赛，由十名评委对选手的现场表现打分(0到100以内的数值)。本程序接收原始评分后，去掉一个最高分、一个最低分，最后计算并输出选手最后得分。在接收输入第i个评分时，若输入数据的类型、范围不正确，程序将给出相应提示，并等待下一次输入，直至正确接收第i个评分为止。程序的运行界面如下：

    在开发过程中，文本框名为Text1，界面上有上至下三个按钮分别取名为CmdMark、CmdReresh和CmdExit。

    [Visual Basic代码]

    Private Sub CmdMark_Click() ’按钮“输入评分”的单击事件响应代码

    Dim i As Integer,temp As Variant ’声明变量

    Dim marks(1 To 10),maxMark,minMark,sumMark,mark As Single

    sumMark=0

    Text1.Text=“编号”&Chr(9)&“评分”& vbCrLf

    For i=1 To 10 ’接收十个评分输入

    Do While 1=1 ’验证并接收第i个评委的评分

    temp=InputBox(“请输入”&i&“号评委的评分:”)

    If (1) IsNumeric(temp)Then

    Msg Box“数据类型错误，请重试!”

    ElseIf CSng(temp)＜0 Or CSng(temp)＞100 Then

    MsgBox“数值范围错误，请重试!”

    Else:Exit Do

    End If

    Loop

    marks(i)=CSng(temp)

    If i=1 Then maxMark=(2):minMark=(2)

    If marks(i)＞maxMark Then maxMark=marks(i)

    If minMark＞marks(i)Then (3)

    sumMark=sumMark+marks(i)

    Text1.Text=Text1.Text & i & Chr(9) & marks(i) & vbCrLf输出第i个评委的评分

    Next

    mark=( (4))/8 ’计算选手最后得分

    Text1.Text=Text1.Text &"去掉一个最高分:"&maxMark&vbCrLf&_

    "去掉一个最低分:"&minMark&vbCrLf&_

    "选手最后得分:"&mark

    End Sub

    Private Sub Command2_Click() ’按钮“刷新屏幕”的单击事件响应代码

    (5).Text=“单击”输入评分“按钮，开始统分……”

    End Sub

    Private Sub Command3_Click() 按钮“退出程序”的单击事件响应代码

    End

    End Sub


    正确答案：(1) Not (2) marks(1)或marks(i) (3) minMark=marks(i) (4) sumMark-maxMark-minMark (5) Text1
    (1) Not (2) marks(1)或marks(i) (3) minMark=marks(i) (4) sumMark-maxMark-minMark (5) Text1 解析：(1)程序在输入数据temp不是数值(即IsNumeric (temp)返回False值)时报告错误，因而此处应填写逻辑运算符：取非；
    (2)由程序最后的输出可推断：maxMark和minMark分别用于记录最高分和最低分。它们通过For循环求得，此处需要为其赋初值；
    (3)当第i个评分marks(i)小于当前minMark的值时，应该更新minMark；
    (4)根据程序说明，选手最后的分为去掉一个最高分、一个最低分后的平均分；
    (5)略。

  • 第3题：

    公司级发表会表述正确的是（）

    • A、未全程参与的评委的分数取消
    • B、评分方式最好去掉一个最高分，一个最低分，以平均分为发表成绩
    • C、该活动圈的二级主管对活动成果进行点评
    • D、鼓励参加人员进行现场交流，给予一定的纪念品
    • E、评委在现场评审及现场评审会议打分需要保密

    正确答案:A,B,D,E

  • 第4题：

    某场歌手赛，共有10个评委，试编写一程序，输入10个评分，去掉最高分和最低分，求平均分（均为BCD码）。


    正确答案: O.RG 0H
    N.EQU #5
    B.LOCK EQU #30H
    I.SELSORT： MOV R7，N
    D.EC R7
    M.OV R1，BLOCK
    I.SST1： MOV R0，BLOCK
    M.OV A，R7
    M.OV R6，A
    M.OV A，@R0
    M.OV B，A
    I.SST2： INC R1
    M.OV A，@R1
    C.LR C
    S.UBB A，B
    J.C ISST3
    M.OV A，@R1
    M.OV R2，A
    M.OV B，@R1
    I.SST3： DJNZ R6，ISST2
    M.OV A，B
    X.CH A，@R1
    M.OV B，R2
    M.OV @R1，B  MOV @R1，A
    D.JNZ R7，ISST1
    M.OV R0，BLOCK
    M.OV @R0，#0 ；去掉最低分
    M.OV A，BLOCK
    ADD A,#9  
    MOV R0,A 
    MOV @R0,#0 ;去掉最高分 
    AD: MOV R0,BLOCK  
    INC RO  
    MOV R1,#8  
    CLR A  
    CLR C  
    MOV B,#0 
    ADL: ADD A,@R0  
    DA A 
    MOV R2,A  
    ADDC A,#0 
    MOV B,A  
    MOV A,R2  
    DJNZ R1,ADL  
    MOV R5,0  
    MOV R4，B  
    MOV R3，A  
    MOV R2,#0  
    MOV R1，#8 
    R5R4R3/R2R1 = R4R3  
    MOV R1,#00H  
    MOV R2,#0FH  
    MOV R3,#04H  
    MOV R4,#05H  
    MOV R5,#06H  
    LCALL _DIV  
    AJMP $ 
    _DIV: ;{  
    CLR C  
    MOV 30H,#0  
    MOV 31H,#0  
    MOV 32H,#0 
    _DIV_LOOP: CLR C  
    MOV A,R3  
    SUBB A,R1 
    MOV R3,A  
    MOV A,R4  
    SUBB A,R2  
    MOV R4,A  
    MOV A,R5 
    SUBB A,#0  
    MOV R5,A  
    JC _DIV_END 
    _INC_SHANG: CLR C  
    MOV A,30H  
    ADDC A,#1  
    MOV 30H,A 
    MOV A,31H  
    ADDC A,#0  
    MOV 31H,A 
    MOV A,32H  
    ADDC A,#0  
    MOV 32H,A  
    LJMP _DIV_LOOP 
    _DIV_END: CLR C 
    MOV A,R1  
    ADDC A,R3  
    MOV A,R2  
    ADDC A,R4  
    MOV R3,30H  
    MOV R4,31H  
    END 

  • 第5题：

    运动员最后得分是：几名裁判员去掉一个最高分和一个最低分，中间分的平均分为运动员的最后得分。


    正确答案:正确

  • 第6题：

    6名裁判员评分时，去掉2个最高分和2个最低分，取两个中间分的平均分为运动员的最后得分。


    正确答案:错误

  • 第7题：

    武术比赛每位队员的成绩是（）。

    • A、最高分
    • B、最低分
    • C、平均分
    • D、去掉最高分和最低分后的平均分

    正确答案:D

  • 第8题：

    评标委员会成员对投标文件进行评分时，若评标委员会成员总数为（）人以上，则该平均值以去掉一个最高分和一个最低分后计算。

    • A、7
    • B、6
    • C、8
    • D、5

    正确答案:A

  • 第9题：

    问答题
    某场歌手赛，共有10个评委，试编写一程序，输入10个评分，去掉最高分和最低分，求平均分（均为BCD码）。

    正确答案： O.RG 0H
    N.EQU #5
    B.LOCK EQU #30H
    I.SELSORT： MOV R7，N
    D.EC R7
    M.OV R1，BLOCK
    I.SST1： MOV R0，BLOCK
    M.OV A，R7
    M.OV R6，A
    M.OV A，@R0
    M.OV B，A
    I.SST2： INC R1
    M.OV A，@R1
    C.LR C
    S.UBB A，B
    J.C ISST3
    M.OV A，@R1
    M.OV R2，A
    M.OV B，@R1
    I.SST3： DJNZ R6，ISST2
    M.OV A，B
    X.CH A，@R1
    M.OV B，R2
    M.OV @R1，B  MOV @R1，A
    D.JNZ R7，ISST1
    M.OV R0，BLOCK
    M.OV @R0，#0 ；去掉最低分
    M.OV A，BLOCK
    ADD A,#9  
    MOV R0,A 
    MOV @R0,#0 ;去掉最高分 
    AD: MOV R0,BLOCK  
    INC RO  
    MOV R1,#8  
    CLR A  
    CLR C  
    MOV B,#0 
    ADL: ADD A,@R0  
    DA A 
    MOV R2,A  
    ADDC A,#0 
    MOV B,A  
    MOV A,R2  
    DJNZ R1,ADL  
    MOV R5,0  
    MOV R4，B  
    MOV R3，A  
    MOV R2,#0  
    MOV R1，#8 
    R5R4R3/R2R1 = R4R3  
    MOV R1,#00H  
    MOV R2,#0FH  
    MOV R3,#04H  
    MOV R4,#05H  
    MOV R5,#06H  
    LCALL _DIV  
    AJMP $ 
    _DIV: ;{  
    CLR C  
    MOV 30H,#0  
    MOV 31H,#0  
    MOV 32H,#0 
    _DIV_LOOP: CLR C  
    MOV A,R3  
    SUBB A,R1 
    MOV R3,A  
    MOV A,R4  
    SUBB A,R2  
    MOV R4,A  
    MOV A,R5 
    SUBB A,#0  
    MOV R5,A  
    JC _DIV_END 
    _INC_SHANG: CLR C  
    MOV A,30H  
    ADDC A,#1  
    MOV 30H,A 
    MOV A,31H  
    ADDC A,#0  
    MOV 31H,A 
    MOV A,32H  
    ADDC A,#0  
    MOV 32H,A  
    LJMP _DIV_LOOP 
    _DIV_END: CLR C 
    MOV A,R1  
    ADDC A,R3  
    MOV A,R2  
    ADDC A,R4  
    MOV R3,30H  
    MOV R4,31H  
    END 
    解析： 暂无解析

  • 第10题：

    单选题
    武术比赛每位队员的成绩是（）。
    A

    最高分

    B

    最低分

    C

    平均分

    D

    去掉最高分和最低分后的平均分


    正确答案： A
    解析： 武林比赛中每位队员的成绩是去除最高分和最低分后的平均分。

  • 第11题：

    单选题
    设有关系评分（歌手号，分数，评委号），如果每个歌手的“最后得分”的计算方法是：去掉一个最高分和一个最低分，取剩下分数的平均分。根据关系“评分”求每个歌手的“最后得分”并存储于表TEMP中，表TEMP中有两个字段：“歌手号”和“最后得分”，并且按最后得分降序排列，生成表TEMP的SQL语句是（　　）。
    A

    SELECT歌手号（COUNT（分数）-MAX（分数）-MIN（分数））/（SUM（*）-2）最后得分FROM评分INTO DBF TEMP GROUP BY歌手号ORDER BY最后得分DESC

    B

    SELECT歌手号（COUNT（分数）-MAX（分数）-MIN（分数））/（SUM（*）-2）最后得分FROM评分INTO DBF TEMP GROUP BY评委号ORDER BY最后得分DESC

    C

    SELECT歌手号（SUM（分数）-MAX（分数）-MIN（分数））/（COUNT（*）-2）最后得分FROM评分INTO DBF TEMP GROUP BY评委号ORDER BY最后得分DESC

    D

    SELECT歌手号（SUM（分数）-MAX（分数）-MIN（分数））/（COUNT（*）-2）最后得分FROM评分INTO DBF TEMP GROUP BY歌手号ORDER BY最后得分DESC


    正确答案： D
    解析：
    根据题干要求的计算歌手“最后得分”的计算方法，应使用SUM计算分数而非COUNT。求每个歌手的“最后得分”，应该按照歌手号分组，即GROUP BY歌手号。

  • 第12题：

    判断题
    6名裁判员评分时，去掉2个最高分和2个最低分，取两个中间分的平均分为运动员的最后得分。
    A

    对

    B

    错


    正确答案： 对
    解析： 暂无解析

  • 第13题：

    以下是一个比赛的评分系统，假设有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 【 】 then max=hum

    if 【 】 then min=num

    sum=sum+num

    Next i

    sum=【 】

    avg=sum/6

    Msgbox "最后得分:" & avg

    End sub


    正确答案：x＞max； xmin ；sum-max-min
    x＞max； xmin ；sum-max-min 解析：将最高分max的初值设为0，最低分min的初值设为10，循环8次输入每个裁判的判分，如果高于max则将值赋予max，如果低于rain则将值赋予min，并将每个裁判的判分加入总和。这样在循环完8次后max里存放的是最高分，min里存放的是最低分。用sum减去最高分和最低分再除以6就是选手的实际得分。

  • 第14题：

    奥运赛场上，七位裁判员给一名跳水运动员评分后，去掉一个最高分和一个最低分，平均得9.42分；只去掉一个最高分，平均得9.35分；只去掉一个最低分，平均得9.5分。这个运动员的最高分与最低分相差多少分?（ ）

    A．0.6

    B．0.7

    C．0.8

    D．0.9


    正确答案：D
    最低分为：9.35×6-9.42×5=9(分)；最高分：9.5×6-9.42×5=9.9(分)；最高分与最低分相差9.9-9=0.9(分)。

  • 第15题：

    施工组织设计各评分点得分应当取所有技术标评委评分中（）为最终得分。

    • A、最低评分
    • B、分别去掉一个最高和最低评分后的平均值
    • C、最高评分
    • D、所有评委评分求和后平均

    正确答案:B

  • 第16题：

    剔除食品感观分析中的异常值可以选择去掉一个最高分，去掉一个最低分的方法进行。


    正确答案:错误

  • 第17题：

    竞技健美操的艺术分的计算是（）名艺术裁判员，去掉1个最高分，去掉1个最低分，所剩的平均分为最后的艺术分。

    • A、2
    • B、3
    • C、4
    • D、1

    正确答案:C

  • 第18题：

    奥运会跳水比赛，10位评委打分，去掉最高及最低分求平均分，解题思路步骤描述不正确的是（） （1）定义一个10个元素的数组，存储评委打分。 （2）找出评委打分的最高分和最低分。 （3）去掉一个最高分和一个最低分，求评委打分总和。 （4）求出选手最终平均得分。

    • A、1-2-3-4
    • B、2-3-4-1
    • C、1-4-2-3
    • D、1-3-4-2

    正确答案:B,C,D

  • 第19题：

    有七位考官对一位应聘者评分，如果去掉一个最高分和一个最低分，则平均分为7分；如果只去掉一个最高分，则平均分为6.75分；如果只去掉一个最低分，则平均分为7.25分。那么，这位应聘者所得的7个分数中，最高分与最低分的差值为（）分。

    • A、1.5
    • B、2
    • C、3
    • D、3.5

    正确答案:C

  • 第20题：

    根据《广州市建设工程监理评标办法》的规定，计算投标人综合得分正确的方法是（）

    • A、取所有评委的评分的算术平均值；
    • B、取各评委的评分去掉一个最高分和一个最低分后计取的算术平均分；
    • C、评委人数超过五名时，取各评委的评分去掉一个最高分和一个最低分后计取的算术平均分；
    • D、评委为五名时，取所有评委的评分的算术平均值。

    正确答案:B

  • 第21题：

    多选题
    公司级发表会表述正确的是（）
    A

    未全程参与的评委的分数取消

    B

    评分方式最好去掉一个最高分，一个最低分，以平均分为发表成绩

    C

    该活动圈的二级主管对活动成果进行点评

    D

    鼓励参加人员进行现场交流，给予一定的纪念品

    E

    评委在现场评审及现场评审会议打分需要保密


    正确答案： C,B
    解析： 暂无解析

  • 第22题：

    单选题
    竞技健美操的艺术分的计算是（）名艺术裁判员，去掉1个最高分，去掉1个最低分，所剩的平均分为最后的艺术分。
    A

    2

    B

    3

    C

    4

    D

    1


    正确答案： B
    解析： 暂无解析

  • 第23题：

    单选题
    根据《广州市建设工程监理评标办法》的规定，计算投标人综合得分正确的方法是（）
    A

    取所有评委的评分的算术平均值；

    B

    取各评委的评分去掉一个最高分和一个最低分后计取的算术平均分；

    C

    评委人数超过五名时，取各评委的评分去掉一个最高分和一个最低分后计取的算术平均分；

    D

    评委为五名时，取所有评委的评分的算术平均值。


    正确答案： A
    解析： 暂无解析

  • 第24题：

    判断题
    运动员最后得分是：几名裁判员去掉一个最高分和一个最低分，中间分的平均分为运动员的最后得分。
    A

    对

    B

    错


    正确答案： 对
    解析： 暂无解析

相关内容