[填空题] 下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。 Private Sub Command1_Click()Max=0Min=10For i=1

18 查阅

[填空题] 下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。

Private Sub Command1_Click()

Max=0

Min=10

For i=1 To 20

n=Val(InputBox("请输入分数"))

If n>Max Then Max=n

If n

s=s+n

______

s=s-Min-Max

p=s/18

Print"最高分";Max;"最低分";Min

Print"最后得分:";p

End Sub

参考答案:

Next i

本题在For循环中接收用户输入20个数,并把最大的数赋给Max,最小的数赋给Min。程序中有For循环“头语句”,而没有“结束语句”,因此空白处应填入Nexti,循环体结束。

计算机考试