题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术——VB基础知识
Private Sub Command1_Click( )
Dim s As String, tmp As String, As String
Dim n As Integer, i As Integer
Dim flag As Boolean
Dim cnt As Integer ‘存储符合条件的单词数
s=Text1.Text
n=Len(s)
flag False
List1.Clear
For i =1 Ton
c= Mid(s, i, 1)
If c >= “a” And < “z” Or c > = “A” And c < = “z” Then
①
If= Text2. Text Then flag True: cnt= cnt +1
Else
If flag Then List1. AddItem tmp
tmp = “”
②
End If
Next i
If cnt = 0 Then
List1.AddItem “找不到符合条件的单词.”
End If
End Sub
① ②
①两位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程序如下，请回答下列问题：
试题篮
