(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
订单号:
遇到问题请联系在线客服
订单号:
遇到问题请联系在线客服