填空题
以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分（设 满分为10分）。请填空补充完整。
Private Sub Form_Click1
Dim Max As Integer, Min As Integer
Dim 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 2Then Max = x
If 3Then Min = x s = s + x
Next i
s = 4
p = s / 6
MsgBox "最后得分：" & p
End Sub
1、
【正确答案】
1、x>Max ， x
【答案解析】本题中先给最大值变量赋值为 0，最小值变量赋值为 10。然后把输入的分数 x 与最大值和最小值比较，如果 x 比最大值大，则把 x 赋值给 Max，故第一空填 x>Max；如果 x 比最小值小，则把 x 赋值给 Min， 故第二空填 x