以下是一个竞赛评分程序。其功能是去掉8位评委中的一个最高分和一个最低分，计算平均分。
Dim max As Integer，min As Integer
Dim i As Integer，x As Integer，S
As Integer
max=0：min=10
For i=1 To 8
X=Val(InputBox(”请输入得分(0～10)：＂))
If x< min Then min=X
s=s+x
Next i
MsgBox”最后得分：＂& s
有如下语句：
①max=x
②If x >max Then max=x
③If max >x Then max=x
④S=(S—max—min)／6
⑤s=(max—min)／6
⑥s=s／6
程序中有两个画线，将程序补充完整的正确语句是( )。

A、 ①⑤
B、 ②④
C、 ③⑥
D、 ②⑥

【正确答案】 B

【答案解析】根据题意，代码功能是输入8个数，去掉一个最小值和一个最大值，求出剩余6个数的平均值。代码中，用For循环语句实现输入8个数，并将当前最小值赋给min，当前所有数的和赋给s，因此第一个横线中的代码应该实现将当前最大值赋给max，即如果当前x大于max，则max=x，其中②If x >max Then max=x实现了此功能。For循环结束后，输出s的值，故第二个横线中的代码应该实现为s赋予剩余6个数的平均值。当前s的值为8个数的和，求剩余6个数的平均值应该先减去min和max再除以6，即④s=(s—max－min)／6。