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

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

[填空题] 下列是一个体 *** 评分程序。设满分为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＜Min Then Min=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循环“头语句”，而没有“结束语句”，因此空白处应填入Next i，循环体结束。