主观

(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

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服