填空题以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分(设满分为10分)，请填空补充完整。 Private Sub Form_Click() Dim Max as Integer,Min as Integer Dial i as Integer,x as Integer,s as Integer Dim p as Single Max=0 Min=10 For i=1 To 8 x=Val (InputBox("请输入分数：")) If{{U}} 【13】 {{/U}}Then Max=x If{{U}} 【14】 {{/U}}Then Min=x s=s+x Next i s={{U}} 【15】 {{/U}} p=s/6 MsgBox"最后得分："&P End Sub

1、

【正确答案】 1、[13] x＞Max或x＞-Max[14] x＜Mill或x＜=Min[15] s-Max-Min

【答案解析】[解析] 根据题意，首先要找出最大值与最小值，所给程序用循环读入数据并找出最大值与最小值，并对读入的数据进行求和操作。此时用总和减去最大值和最小值再求出平均分，就可完成题目要求。位置语句的作用是记录最高分，因此，在当前输入的分数x大于(也可以是大于或等于)以前的最高分数Max时，就应该使Max取当前的x值。因此，该位置应该填x＞Max、或x＞=Max、或Max＜x、或Max＜=x。位置语句的作用是记录最低分，因此，在当前输入的分数x小于(也可以是小于或等于)以前的最低分数Min时，就应该使Min取当前的x值。因此，该位置应该填x＜Min、或x＜=Min、或Min＞x、或Min＞=c。本题中For循环结束后，变量s的值为所有8个分数值的总和，而题目要求计算平均分的前提是去掉一个最高分和一个最低分，因为最高分储存在变量Max中，最低分储存在变量Min中，应该在总分s中将Max和Min减掉。应该填s-Max-Min或s-Min-Max。