下面是一个体操评分程序。20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。 Private Sub Command1_Click()  Max=0  Min=10 For I=1 To 20  N=Val(

admin2012-03-22  16

问题 下面是一个体操评分程序。20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。
   Private Sub Command1_Click()
    Max=0
    Min=10
   For I=1 To 20
    N=Val(InputBox("请输入分数"))
   If  ______Then Max=N
   If N<Min Then Min=N
   S=S+N
   Next I
   S=  ______
   P=S/18
   Print"最高分";Max"最低分";Min
   Print"最后得分:";P
   End Sub

选项

答案N>Max S-Max-Min

解析
转载请注明原文地址:https://kaotiyun.com/show/Hhhp777K
0

最新回复(0)