下列是一个体操评分程序。没满分为10分,20位评委,除去一个最高分和一个最低分,计箅平均分。 Private Sub Corrmland!Click() Max=0 Min=10 For i=1 To 20 n=Va

admin2013-04-11  24

问题 下列是一个体操评分程序。没满分为10分,20位评委,除去一个最高分和一个最低分,计箅平均分。
    Private Sub Corrmland!Click()
    Max=0
    Min=10
    For i=1 To 20
    n=Val(InputBox(“请输入分数”)
    If n>Max Tifen MaX=n
    If n    s=s+n
    s=s-Min-Max
    P=s/18
    Print”最高分”;Max;“最低分”;Min
    Print“最后得分:”;P
End Suh

选项

答案1 5 4 0

解析
转载请注明原文地址:https://jikaoti.com/ti/27O0FFFM
0

最新回复(0)