下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。 Private Sub Commandl_Click()Max=0Min=10For 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-Maxp=s/18Print
主观题
下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。 Private Sub Commandl_Click()Max=0Min=10For 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-Maxp=s/18Print