题型：综合题 题类：常考题 难易度：普通
浙江省温州市十五校联盟2018-2019学年高二下学期信息技术期末考试试卷
实现上述功能的VB程序如下，请回答下列问题：
Private Sub Command1_Click()
Dim a(20) As Long
Dim i As Integer, j As Integer, s As String List1.Clear
n = Val(Text1.Text)
a(1) = 1
List1.AddItem Str(a(1)) For i = 2 To n
s = ""
For j = 
Step -1
a(j) = ①
s = s + Str(a(j))
Next j
② Next i
① ②
①两位D组裁判分别打“难度分”，取平均值作为该参赛选手的最终难度分。
②五位E组裁判分别打“完成分”，在5个E组打分结果中，去掉一个最高分和一个最低分，然后取平均值作为该参赛选手的最终完成分。
③难度分和完成分之和，即该参赛选手的最终得分。
例如：某参赛选手打分如下：
|
D组裁判打分 |
E组裁判打分 |
|||||
|
6.5 |
6.9 |
9.5 |
9.0 |
8.3 |
8.8 |
7.6 |
该选手“难度分”为(6.5+6.9)/2=6.7。E组裁判打分去掉一个最高分和一个最低分之后，计算“完成分”为(9.0+8.3+8.8)/3=8.7。所以该选手最终得分为6.7+8.7=15.4分。
小杜编写一个VB程序:程序运行时从数据库读取参赛选手人数和参赛选手的打分数据，依次存储在数组a中;单击“统计”按钮，依据数组a中的相关数据统计各选手的“难度分”“完成分”和“最终得分”，并在列表框List1中输出。数组a各元素的含义如下，程序运行界面如图所示。
| 数组元素 | 数组元素的含义 |
| a(0) | 存储参赛人数n |
| a(1) | a(1)和a(2)为第1位选手的D组两位裁判的打分。 a(3)、a(4)、…、a(7)为第1位选手的E组五位裁判的打分 |
| … | |
| a(7) | |
| a(8) | a(8)和 a(9)为第2位选手的D组两位裁判的打分。 a(10)、a(11)、…、a(14)为第2位选手的E组五位裁判的打分 |
| … | |
| a(14) | |
| … | … |
实现上述功能的VB程序如下，请回答下列问题：
试题篮
